Usedrange Verständnisproblem?
05.12.2012 11:26:25
Matze,Matthias
benutze dieses Makro um die Zeilen des UsedRange zu löschen.
Wichtig ist ab Zeile3 , die ersten 2 Zeilen müssen bleiben!
Sub DB_Kill()
Dim strPW As String
Dim n
strPW = InputBox("Passwort erforderlich!", "Passwortabfrage")
With Tabelle4
.Unprotect
Select Case strPW
Case .Cells(1, 1).Value
Case Else
MsgBox "Kennwort ungültig", vbExclamation + vbOKOnly, "Falsches Kennwort"
Exit Sub
End Select
Intersect(.Rows("3:" & Rows.Count), .UsedRange).Delete 'mache ich hier was falsch?
.Protect
End With
End Sub
Makro gestartet, alles ist weg, ABER:wenn ich nun dieses Makro starteSub shUrange()
Debug.Print ActiveSheet.UsedRange.Address
End Sub
sehe ich im Direktfenster : $A$1:$P$54 somit ist klar das der Usedrange noch besteht, was muss ich tun, damit wirklich nur noch A1:P2 als Userrange da sind?
grübelder Matze