gugguseli
Goto Top

Anzahl belegte Zellen zählen in Spalte A1

Hallo zusammen
Ich hoffe auf einen VBA spez. unter Euch face-smile
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

Content-Key: 124885

Url: https://administrator.de/contentid/124885

Ausgedruckt am: 29.03.2024 um 12:03 Uhr

Mitglied: 76109
76109 14.09.2009 um 16:16:46 Uhr
Goto Top
Hallo Daniel!

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
Mitglied: gugguseli
gugguseli 14.09.2009 um 16:36:29 Uhr
Goto Top
Hallo Dieter

funktioniert leider nicht... ich muss dazu sagen, dass diese Messagebox beim starten des Excel Sheets gleich angezeigt wird... der Code steht also nicht in einem Modul, sondern in "ThisWorkbook"... weiss zwar nicht ob das relevant ist ;)

Gruss Daniel
Mitglied: 76109
76109 14.09.2009 um 16:46:25 Uhr
Goto Top
Zitat von @gugguseli:
"ThisWorkbook"... weiss zwar nicht ob das relevant ist ;)
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
Mitglied: gugguseli
gugguseli 14.09.2009 um 16:56:11 Uhr
Goto Top
Hallo Dieter

Ja, es funktioniert... Ich musste nur die Zeile "Const StartLine = 5" anders positionieren ( nach Dim...)

Super danke dir
Gruss Daniel