möchte per vba feststellen, in wievielen Reihen meiner Exceltabelle etwas steht.
Wie kann ich folgenden Eintrag variabel gestallten?
"Rows("2:2").Select"
Vielleicht so?
Rows("x:x").Select
Danke für eure Hilfe!
Sub anzspalten()
Dim s As Integer, lz As Long
Dim anzahl As Integer
anzahl = 0
For s = 1 To 256
lz = Cells(65536, s).End(xlUp).Row
If lz > 1 Then
anzahl = anzahl + 1
Else
If Cells(lz, s).Value <> "" Then anzahl = anzahl + 1
End If
Next
MsgBox anzahl & " benutzte Spalten"
End Sub