actionbrowser.com
#1 Guten Tag, Ich habe vor Kurzem mal wieder in VBA reingeguckt und bin auf einen Fehler gestoßen, bei dem ich nicht weiß, wie es zustande kommt.
Ich weiß nicht, was ich dagegen machen soll und bin schon seit gestern auf der Suche im Internet. Vielleicht, kann mich hier jemand helfen. Danke im Voraus MfG. Be Link Zuletzt bearbeitet: 11. September 2016 #2 In Zeile 2 hast Du die Variable Punktrechnung1 definiert und referenzierst diese als Punktrechnung. Das kann nicht funktionieren. Be Link Cadet 2nd Year Ersteller dieses Themas #3 Habe ich gerade geändert, geht immernoch nicht. Danke aber für deine Hilfe ^^ #4 Die Formel, die du in der Zeile einfügen willst ist falsch. Nimm da mal das führende = raus, sodass es eben keine Formel ist und dann guck es dir in deinem Sheet an. Wenn du da wieder ein = vorsetzt, liefert dir Excel einen Fehler. #5 Hallo Be Link, Ich würde vermuten, dass die Formel fehlerhaft ist. Excel laufzeitfehler 1004 anwendungs oder objektdefinierter fehler mac. Leider habe ich heute keine Zeit dies zu testen. #6 Wenn ich das = Herausnehme, wird mir die richtige Formel in die Zelle geschrieben. D. h. wenn ich das = wieder einfüge, funktioniert alles. Wenn ich das = jedoch in den CODE eingebe, gibt es wieder den Fehler.
Hallo zusammen, die Tabelle besteht aus 55 Blättern (53 für Kalenderwochen). Die Arbeitsmappe ist geschützt. Der erste Teil des Codes färbt das Tabellenblatt rot, welches der aktuellen Kalenderwoche entspricht. Der weitere Teil des Code ist dafür da, einen Hinweistext beim Öffnen anzuzeigen und die Arbeitsblätter zu sperren und dabei die Auto-Gliederung zuzulassen. Mein Code ist leider noch fehlerhaft. Es wird folgender Fehler ausgegeben: Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler Hier der VBA-Code: Private Sub Workbook_BeforeClose(Cancel As Boolean) Worksheets("" & DatePart("ww", Date, vbMonday, vbFirstFourDays)) = xlNone End Sub ____________________________________________________________________________ Sub Workbook_Open() MsgBox "MUSTERTEXT. ", 0, "Hinweis" Dim i As Long For i = 1 To Sheets(i). Protect userinterfaceonly:=True, Password:="Passwort" Sheets(i). Excel laufzeitfehler 1004 anwendungs oder objektdefinierter fehler en. EnableOutlining = True 'für Gliederung Sheets(i). EnableAutoFilter = True 'für Autofilter Next i Worksheets("" & DatePart("ww", Date, vbMonday, vbFirstFourDays)) = 3 Kann mir jemand sagen, wo der Fehler liegt?
Es sieht jedoch so aus, als würden Sie versuchen, die letzte nicht leere Zeile in einer bestimmten Spalte einer Tabelle zu erhalten. Wenn Sie Ihre Funktion ändern, denke ich, dass es funktionieren wird: Function FindLastDataLine(strColName As String) As Long FindLastDataLine = (, strColName)(xlUp) End Function Tiago Cardoso 2011-07-30 в 14:15 Der Fehler wird möglicherweise nicht behoben, es wird jedoch die ItemCount innerhalb des Bereichs zurückgegeben. Excel laufzeitfehler 1004 anwendungs oder objektdefinierter fehler de. Function FindLastDataLine(strColName As String) As Long FindLastDataLine = Evaluate("COUNTA(" & strColName & ")") End Function Sub PracticeMacro() intItemCount = FindLastDataLine("A:A") MsgBox ("There are " & intItemCount & " rows of data in column A. ") End Sub Beachten Sie, dass es andere Möglichkeiten gibt, diese COUNTA Excel-Funktion aufzurufen... Lance Roberts 2011-06-23 в 22:54 Versuchen: FindLastDataLine = _ Range(strColName)( - 1, 0)(xlUp) Reihen ist eine Eigenschaft.