Fehlercode mit automatisierter Zählung
19.11.2023 22:53:04
Tao
Hallo liebes Forum.
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
Ich habe die Exceltabelle als Datei angehängt.
Die USerform Planer habe ich auf das fehlerhafte Makro reduziert.
Vielleicht könnte mir jemand helfen.
Lieben Gruß
https://www.herber.de/bbs/user/164441.xlsm