Ich möchte in einer Tabelle über ein Commandbutton die Werte in mehreren Zellen auf Null setzten. Wie muß der Code dafür aussehen?
Hallo
Ich arbeite nicht mit Excel!
Range(„A1“).Value = 0
oder
Range(„C9“) = 0
oder
Range(„A3:B19“).Value =0
befüllt jeweils alle Zellen im angegebenen Bereich mit 0.
lg
Katharina
Danke schön! Und wie kann ich den Wert in der Zelle über einen anderen Commandbutton jeweils um eins erhöhen?
Trotzdem danke für die Antwort
Range(„A1“) = Range(„A1“)+1
Hallo Katharina,
danke für die super schnelle Hilfe. Das war genau das was ich brauchte.
Noch mals vielen Dank.
Gruß Ole
tur mir leid, kann hier nicht helfen…
Hallo, leider kann ich nicht helfen. Ich habe keine Excel 2010 und kenne mich damit nicht aus.
Mit Excel 2007 könnte ich Dir helfen. Fragen dazu kannst Du mir gerne stellen.
Mit freundlichen Grüßen
Roland57!
Hallo olerostock,
in die Ereignisprozedur „Click“ des CommandButton-Steuerelements fügst du für jede Zelle, die auf 0 gesetzt werden soll folgenden Code ein:
ActiveSheet.Range(„A1“).Value = 0
Ersetze das A1 durch den Zellbezug der Zelle, die auf 0 gesetzt werden soll.
Wenn die Zelle sich nicht im aktuellen Arbeitsblatt befindet geht es mit:
Sheets(„Blattname“).Range(„A1“).Value = 0
Wenn du statt einer 0 lieber gar nichts in der Zelle stehen haben möchtest geht es mit:
ActiveSheet.Range(„A1“).Value = „“
Man kann auch einen Zellbereich angeben, sofern er zusammenhängt:
ActiveSheet.Range(„A1:B10“).Value = 0
Viel Spaß beim Ausprobieren!
Gruß
Manuel
Hallo olerostock,
Entschuldigung, dass ich mich erst so spät zurück melde.
Die Lösung des Problems sollte wie folgt aussehen, so weit ich dein Problem richtig verstanden habe:
Du fügst eine „Befehlsschaltfläche (ActiveX)“ in deine Tabelle ein.
Im Entwurfsmodus mit der rechten Maustaste auf den neu angelegten Button klicken und „Code anzeigen“ wählen.
Nun kannst Du folgenden Code einfügen:
Private Sub CommandButton1_Click()
Cells(3, „G“) = 0
Cells(5, „G“) = 0
Cells(7, „G“) = 0
Cells(9, „G“) = 0
End Sub
Ich hoffe, ich konnte Dir damit helfen. Wenn nicht, melde Dich einfach nochmal.
Liebe Grüße
Jonas
Hallo Johnas,
hatte von Inkasso schon einen guten Tip bekommen. Deiner war bezüglich nicht zusammen hängender Zellen hilfreich.
Danke noch mal.
Gruß Ole
Hallo Inkasso,
danke für den Tip.
Klappt prima
Gruß
Ole