auch leere Zeile löschen Code vervollständigen
09.03.2008 15:35:31
Fred
Ich habe ein Problem und weis nicht wie ich es lösen soll. Über einen Button kann ich eine bestimmte Zeile Löschen. Das funzt auch prima, leider habe ich festgestellt, das ich auch ab und zu mal eine Leere Zeile Löschen muss. Das bin ich bis jetzt immer umgangen mit :On Error Resume Next( siehe Code unten). Da das löschen nur funktioniert wenn etwas in der Zeile steht. Leider weiss ich nicht, wie ich es anstellen kann das auch gelöscht wird, wenn die Zeile leer ist. Natürlich sollte der Bereich den ich vorgegeben habe eingehalten werden. Der beginnt von A4 bis M4 abwerts siehe Unten stehenden Code
bin für jede Hilfe dankbar.
Grüße Fred
hier mal der kommplette Code
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim Blatt As Long
For Blatt = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(Blatt).Unprotect Password:="Bertelsmann1969"
Next Blatt
Dim vntReturn As Variant
Do
vntReturn = InputBox("Zu löschende Zeilen Nummer eingeben AUßER ZEILE" & _
" 1 BIS 3 diese sind nicht löschbar")
If StrPtr(vntReturn) = 0 Then Exit Sub 'Abbrechen gedrückt
If IsNumeric(vntReturn) Then
vntReturn = CDec(vntReturn)
If Fix(vntReturn) = vntReturn Then
If vntReturn Rows.Count Then
MsgBox "Nur Zahlen von 4 bis " & CStr(Worksheets(1).Rows.Count) & _
" erlaubt.", vbExclamation, "Hinweis"
Else
Exit Do
End If
Else
MsgBox "Nur ganze Zahlen erlaubt", vbExclamation, "Hinweis"
End If
Else
MsgBox "Nur Zahlen erlaubt.", vbExclamation, "Hinweis"
End If
Loop
On Error Resume Next
Range(Cells(vntReturn, 1), Cells(vntReturn, 13)).SpecialCells(xlCellTypeConstants). _
ClearContents
On Error GoTo 0
SuperKopieren
For Blatt = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(Blatt).Protect Password:="Bertelsmann1969", DrawingObjects:=True, _
Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Next Blatt
Application.ScreenUpdating = True
End Sub