Ich habe ein kleines Problem mit Zeilennummern!
Wir mußten aus ca. 40 Tabellen Daten zusammen kopieren!
Jetzt haben wir festgestellt, daß z.B. nach 11434
mit 15311 weiter geht, kann man das wieder gerade biegen?
Wir müßen die Einträge zählen und die sind nicht o. K.
Wir benutzen folgende Makros zum zählen!
Sub zaehlen()
Range("A65536").End(xlUp).Select 'letzte Zeile suchen
zeile = ActiveCell.Row
MsgBox zeile - 1
Cells(1, 1).Select
End Sub
Hier war das Ergebniss 17195
Sub zählenlangsam()
x = 1
Do
reihe = x
WERT = Cells(reihe, 1).Value
x = x + 1
Loop Until WERT = ""
MsgBox x - 3
End Sub
Hier war das Ergebnis 12845
Der Uterschied ist über 4000!
Kann uns da jemand auf die schnelle einen Tip geben!
Willie
P. S. es hat wohl noch mehr Lücken