VBA - Anzahl der Zeilen im benutztem Bereich ?!

[Michael Klein]

Hi,

ich glaube eine ganz einfache Frage für euch:
Weshalb funktioniert folgender Code nicht ?

>>>
Sub Anzahl_der_zeilen()

Dim x As Long

For i = 1 To ThisWorkbook.Worksheets(1).UsedRange.Rows.Count

x = i
MsgBox x

Next i

End Sub
>>>

Es sind die ersten 5 Zeilen belegt. Also müßte er von 1 hoch zählen bis 5 !
Ich bekomme aber nur einmal die MessageBox zu sehen ! Sie gibt mir nur eine
1 aus !
Was ist an dem Code falsch ?

Freundliche Grüße

[stefan onken]

hallo Michael,
steht der Code in einem anderen Workbook als dem, welches
das aktive ist ? Probier dann statt ThisWorkbook
ActiveWorkbook.
Ist es evtl ein anderes Tabellenblatt, zB Worksheets(2) ?

Gruß
stefan

>-----Originalnachricht-----

>.
>