Command Button-Löschen

Computer: Software & Programmierung Office Software
#1

Hallo zusammen,

ich habe folgendes vor: ich möchte per commandbutton bestimmte Werte aus excel löschen.!
Kann mir einer Helfen wie das funktioniert!??

vielen Dank!

Gruß
Kamal

#2

Hallo, Kamal.

ich habe folgendes vor: ich möchte per commandbutton bestimmte
Werte aus excel löschen.!

Die Frage, die sich jetzt stellt, ist, an welcher Stelle Du Dich befindest. Willst Du nur den Code wissen, der den Inhalt der Zellen löscht, oder bist Du noch auf der Suche nach dem CommandButton?

VG
Carsten

#3

Hallo Carsten,

ich bin leider kein excel Profi, daher wäre ich dir dankbar wenn du mir mit dem Button sowie d. Code weiterhelfen kannst :smile:

P.s. in bestimmten Zellen sind Formeln, die aber stehen bleiben sollen!

Danke & Gruß
Kamal

#4

hi,
kann mir jemand bitte weiterhelfen?

Danke!

#5

Hallo Kamal.

ich bin leider kein excel Profi, daher wäre ich dir dankbar
wenn du mir mit dem Button sowie d. Code weiterhelfen kannst

)

P.s. in bestimmten Zellen sind Formeln, die aber stehen
bleiben sollen!

Ok.

Um einen CommandButton auf ein Tabellenblatt zu bekommen, gehe bitte folgendermaßen vor:

  • Menü „Ansicht“ > „Symbolleisten“ > „Steuerelement-Toolbox“

  • Klicke in der Symbolleiste auf das Steuerelement „Befehlsschaltfläche“

  • Zeige mit der Maus auf das Tabellenblatt, halte die linke Maustaste gedrückt und ziehe mit der Maus den Commandbutton auf die gewünschte Größe.

  • Doppelklicke auf den CommandButton. Es öffnet sich der „VisualBasic-Editor“. In dem Code-Fenster wird bereits eine Prozedur angezeigt mit dem Namen „CommandButton1_Click“.

  • Schreibe dort folgenden Text hinein:

    Cells(1, 1).ClearContents

  • gehe zurück zu Excel

  • Klicke in der Symbolleiste „Steuerelement-Toolbox“ auf das Symbol"Entwurfsmodus beenden" (es ist das Symbol mit dem grünlichen Dreieck).

  • Schreibe irgendetwas in die Zelle „A1“

  • Klicke auf den CommandButton, dann wird der Inhalt in Zelle „A1“ gelöscht.

Soweit erst einmal.

VG
Carsten

#6

Guten Tag,

hallo Carsten,

vielen Dank , hat geklappt!
aber falls ich C5 bis G10 und I5 bis M10 löschen möchte, wie lautet dann den Code?

Danke & Gruß

#7

aber falls ich C5 bis G10 und I5 bis M10 löschen möchte, wie
lautet dann den Code?

Hallo Kamal,

so:

Private Sub CommandButton1_Click()
Range(„C5:G10,I5:M10“).ClearContents
End Sub
’
oder so:

Private Sub CommandButton1\_Click()
Dim Zelle As Range
For Each Zelle In Range("C5:G10,I5:M10")
 If Not Zelle.HasFormula Then Zelle.ClearContents
Next Zelle
End Sub

Gruß
Reinhard

#8

alles Prima…
vielen Dank!