ich brauche leider nochmal eure Hilfe.
Folgenden Code würde ich gerne so anpassen das von A10 nach AL letzte Zeile der Tabelle gelöscht wird. Also nicht die komplette Zeile, sondern nur bis AL.
Dann sollen die Zeilen nach oben geschoben werden.
Sub loesche_Ab_10_bis_ende()
'Fragt ab ob Daten wirklich hinzugef?gt werden sollen
'If MsgBox("M?chtest Du die Daten wirklich l?schen? Diese k?nnen nicht wieder hergestellt _
werden!!!", vbYesNo) = vbNo Then
'Wenn Abbrechen, dann schlie?t die Eingabemaske
'Exit Sub
'End If
Dim FirstRow&
Dim Last_Row&
Dim Passwort As String
Passwort = Application.InputBox(prompt:="Geben Sie das Passwort ein", Type:=2)
If Passwort "Mikka32" Then Exit Sub
FirstRow = 10
Last_Row = ActiveSheet.Rows(ActiveSheet.UsedRange.Rows.CountLarge).Row
Rows(FirstRow).Resize(Last_Row).Delete 'statt Select -> Delete zum L?schen
ActiveSheet.Rows(9).Hidden = True
End Sub
Viele Grüße
Michael