Leere Zellen überspringen
12.01.2016 10:59:12
Rene
ich habe ein Formular und ich möchte da ein Button haben der die Zellen wieder nach Eingabe löscht aber es gibt auch leere und da ist mein Problem, er bringt ein Fehler also habe ich geforscht nach etwas der die leeren Zellen überspringt aber auch das funktioniert nicht.
Private Sub CommandButton3_Click()
CommandButton3.TakeFocusOnClick = False
If Cells(ActiveWB.Worksheets(2)).Value "" Then
Else
[B4:D4].ClearContents 'oberer Kopf
[B6:F6].ClearContents
[B8:F8].ClearContents
[B10:F10].ClearContents
[B12:F12].ClearContents
[H8:I8].ClearContents
[H12:I12].ClearContents
[H14:I14].ClearContents
[C17:C17].ClearContents 'in Ordnung Bereich Verpacker
[C18:C18].ClearContents
[C19:C19].ClearContents
[C20:C20].ClearContents
[C21:C21].ClearContents
[E17:E17].ClearContents 'nicht in Ordnung Bereich Verpacker
[E18:E18].ClearContents
[E19:E19].ClearContents
[E20:E20].ClearContents
[E21:E21].ClearContents
[C32:C32].ClearContents 'in Ordnung Bereich Zeitaufnehmer
[C33:C33].ClearContents
[C34:C34].ClearContents
[C35:C35].ClearContents
[C36:C36].ClearContents
[E32:E32].ClearContents 'nicht in Ordnung Bereich Zeitaufnehmer
[E33:E33].ClearContents
[E34:E34].ClearContents
[E35:E35].ClearContents
[E36:E36].ClearContents
[A48:A48].ClearContents 'Anmerkungen
[A49:A49].ClearContents
[A50:A50].ClearContents
[A51:A51].ClearContents
[A52:A52].ClearContents
[C48:I48].ClearContents 'Einschätzung
[C49:I49].ClearContents
[C50:I50].ClearContents
[C51:I51].ClearContents
[C52:I52].ClearContents
End If
End Sub
Ich hoffe ihr könnte mir helfen :)
Anzeige