Fehlercode mit automatisierter Zählung
16.11.2023 17:22:35
Tao
Tao hat ein Problem.
Eine VBA Programmierung lief in der alten Exceltabelle perfekt. Ich habe jetzt eine neue gebaut (Monatskalender) und dort bekomme ich mit derselben VBA einen Fehlercode "1004").
Das Makro soll in einer Spalte (Datum/Tag in einem Monat) alle bereits für diesen Tag eingetragenen Urlauber ermitteln (diese sind mit einem U markiert). Der erste EIntrag hat U1, der zweite U2, usw.
Wenn ich jetzt mit dem Makro den nächsten Urlauber eintrage, soll dieser fortlaufend automatisch sein U mit der entsprechenden Nr. bekommen.
meine VBA:
Sub Urlaub_Click()
Dim letzte As Long, Zahl As Long
Dim Bereich As Range, Zelle As Range
With ActiveCell
letzte = Cells(Rows.Count, 1).End(xlUp).Row - 5
Set Bereich = Cells(6, .Column).Resize(letzte, 1)
For Each Zelle In Bereich
If Left(Zelle, 1) = "U" And IsNumeric(Mid(Zelle, 2)) Then
Zahl = IIf(Zahl CLng(Mid(Zelle, 2)), CLng(Mid(Zelle, 2)), Zahl)
End If
Next
.Value = "U" & Zahl + 1
ActiveCell.Offset(0, 1).Select
End With
End Sub
Vielleicht könnte mir jemand helfen.
Lieben Gruß
P.S.: der Fehler wird bei: Set Bereich = Cells(6, .Column).Resize(letzte, 1) angezeigt
Thomas