UsedRange.Clear und UsedRange.Rows.Count
25.10.2005 08:07:47
Hilde
so langsam dürfte sich die Anzahl der Forumsbesucher erhöhen und die Rückmeldung eventuell auch....
also: habe noch ein Problem bzw. eine Frage:
Bevor ich innerhalb einer Prozedur Datensätze aus einer anderen Datei in meine kopiere, lösche ich die alten Daten aus dem WS raus, indem ich erst einmal die Anzahl der vorhandenen DS zähle (.UsedRange.Rows.Count) und dann deren Inhalt und Formatierung lösche - nur Überschriftenzeile bleibt erhalten (.Range("A2:T" & intZeilen).Clear)
Wenn ich nun keine DS mehr in dieses Worksheet kopiere, dann müßte doch mein UsedRange rein theoretisch leer sein. Ist er aber nicht, denn: wenn ich nochmals die DS zähle, gibt mir der Zeilenzähler über die MsgBox einen Wert größer 1 zurück (= 1 wäre ok, da ich ja die Überschriftenzeile nicht lösche).
Was bedeutet das? Dass Zellen, deren Inhalt und Formatierung mittels Clear gelöscht wurden dennoch als UsedRange identifiziert werden?
LG und Salut
Hilde
With WS
intZeilen = .UsedRange.Rows.Count
MsgBox "Zeilenanzahl in WS: " & intZeilen
.Range("A2:T" & intZeilen).Clear
End With