Anzeige
Archiv - Navigation
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Leere Zellen überspringen
12.01.2016 10:59:12
Rene
Hallo zusammen,
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 :)

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leere Zellen überspringen
12.01.2016 11:04:23
Daniel
Hi
das hier: If Cells(ActiveWB.Worksheets(2)).Value "" Then ist Nonsens
die Cells-Funktion braucht als Parameter die Zeilennummer und die Spaltennummer bzw den Spaltenbuchstaben der Zelle,
du gibst aber hier ein ganzes Worksheet-Objekt als Parameter an.
Gruß Daniel

AW: Leere Zellen überspringen
12.01.2016 11:12:03
otto
Hi,
Bei ClearContents ist egal ob in der Zelle was drinsteht oder nicht.
Allerdings Zellangabe in diesem Format:
Range("B4:D4").ClearContents
...
otto

AW: Leere Zellen überspringen
12.01.2016 12:00:37
Rene
:( ich bin doof, ich danke dir :)
Anzeige

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige