Anzahl belegte Zellen zählen in Spalte A1
Hallo zusammen
Ich hoffe auf einen VBA spez. unter Euch
Ich habe folgende Frage:
Ich möchte mit folgendem Code:
Sub Workbook_Open()
MsgBox "Du hast im Moment " & ActiveSheet.UsedRange.Count & " Aufträge erfasst."
End Sub
nicht das ganze Sheet durchzählen, sondern nur die Spalt A, ab Zelle A5 und folgende... kann auch wenn nicht möglich auf A200 z.Bsp. begrenzt werden.
Wie muss der Code angepasst werden ?
Vielen Dank und Gruss Daniel
Sub Workbook_Open()
MsgBox "Du hast im Moment " & ActiveSheet.UsedRange.Count & " Aufträge erfasst."
End Sub
nicht das ganze Sheet durchzählen, sondern nur die Spalt A, ab Zelle A5 und folgende... kann auch wenn nicht möglich auf A200 z.Bsp. begrenzt werden.
Wie muss der Code angepasst werden ?
Vielen Dank und Gruss Daniel
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-Key: 124885
Url: https://administrator.de/contentid/124885
Ausgedruckt am: 29.03.2024 um 12:03 Uhr
4 Kommentare
Neuester Kommentar
Hallo Daniel!
In etwa so:
Gruß Dieter
In etwa so:
Const StartLine = 5
Sub Workbook_Open()
Dim Orders As Integer
If IsEmpty(Cells(StartLine, 1)) Then
MsgBox "Du hast noch keine Aufträge erfasst."
Else
Orders = Cells(Rows.Count, "A").End(xlUp).Row + 1 - StartLine
MsgBox "Du hast im Moment " & Orders & " Aufträge erfasst."
End If
End Sub
Gruß Dieter
Das ist nicht relevant, da die Funktion "Workbook_Open()" ja sonst nicht funktioniert.
Und wenn Du den Quelltext ohne Änderungen kopiert hast, sollte es schon funktionieren, sofern Makro's aktiviert sind?
Gruß Dieter
Und wenn Du den Quelltext ohne Änderungen kopiert hast, sollte es schon funktionieren, sofern Makro's aktiviert sind?
Gruß Dieter