Office: Kommando Button soll Zellen leeren

patric86 · 22. September 2015

Morgen Allerseits

Da hätte ich schon wieder Mal ein Anliegen.

Ich habe auf dem Tabellenblatt "Auswahlblatt" in B7, B11, D7, F7, und F11 jeweils ein Dropdown angelegt.

Nun habe ich über Formular-Steuerelemente einen Kommando-Button ins Tabellenblatt "Auswahlblatt" eingebaut.

Nun sollte der Code alle der 5 Zellen mit Dropdowns prüfen ob etwas in den Dropdowns ausgewählt wurde, und falls ja, dass er alle Eingaben löscht.

Also kurz gesagt, wenn man den Kommando-Button drückt sollen alle 5 Zellen mit den Dropdowns geleert werden.

Ich wollte das mit select Case lösen aber bin nicht weiter gekommen.
Dann dachte ich an if Then aber da brachte ich nur die Definition der Variablen hin und weiter bin ich nicht.
Hier der Krümel den ich habe:

Sub Löschen()

Dim a As Range
Dim b As Range
Dim c As Range
Dim d As Range
Dim e As Range

a = Worksheets("Auswahlblatt").Range("B7")
b = Worksheets("Auswahlblatt").Range("D7")
c = Worksheets("Auswahlblatt").Range("F7")
d = Worksheets("Auswahlblatt").Range("B11")
e = Worksheets("Auswahlblatt").Range("F11")

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke für eure Ideen

Lg

:)

patric86 · 23. September 2015

Ich wollt es so lösen doch irgendwie geht es nicht...

Private Sub Löschen()

Worksheets("Auswahlblatt").Range("B7", "B11", "D7", "F7", "F11").ClearContents

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke für Eure Hilfe Lg

patric86 · 23. September 2015

Laufzeitfehler 450

Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft zeigt der Debugger an...

Danke

aloys78 · 23. September 2015

Hallo Patric,

mein Vorschlag:
Code:

Option Explicit

Sub Löschen()
With Worksheets("Auswahlblatt")
.Range("B7").ClearContents
.Range("D7").ClearContents
.Range("F7").ClearContents
.Range("B11").ClearContents
.Range("F11").ClearContents
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

patric86 · 23. September 2015

Habe nun jede Zelle in einer eigenen Zeile angesteuert und es geht...

Private Sub Löschen()

Worksheets("Auswahlblatt").Range("B7").ClearContents

Worksheets("Auswahlblatt").Range("B11").ClearContents

Worksheets("Auswahlblatt").Range("D7").ClearContents

Worksheets("Auswahlblatt").Range("F7").ClearContents

Worksheets("Auswahlblatt").Range("F11").ClearContents

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke trotzdem Lg

patric86 · 23. September 2015

Danke dir Aloys!!!

Es geht sogar ohne die With Anweisung...

LG

CruelDevice · 12. Januar 2021

Hallo Patrick,

von patric86

Danke dir Aloys!!!

Es geht sogar ohne die With Anweisung...

LG
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Natürlich geht das ohne with.
Aber ohne With musstest Du 5 x Code:

Worksheets("Auswahlblatt")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

schreiben, mit dem with dann halt nur einmal *wink.gif*

Viele Grüße,
Michael

Office: Kommando Button soll Zellen leeren

Kommando Button soll Zellen leeren

Kommando Button soll Zellen leeren

Kommando Button soll Zellen leeren

Kommando Button soll Zellen leeren - Similar Threads - Kommando Button Zellen

pdf drucken mit button in excel einfügen

Excel per Button Speichern und Schliessen und "X - Button" deaktivieren

Makro aus personal.xls starten

Zufällige Zahl wiedergeben mit Schaltfläche/ Button

Comando Button

Songbook erstellen mit Button

Excel VBA mit Toggle Button Zeile einfärben