Zellen über Button auf 0 setzen

Forumthread: Zellen über Button auf 0 setzen

08.12.2008 08:45:18

m-andi

Guten morgen,
Ich habe folgendes Problem:
Ich möchte auf der Ersten Seite meiner Excel-Mappe einen Butten haben mit dem ich einzelne Felder in der Gesamten Arbeitsmappe Löschen kann.
Also z.B. auf dem Blatt 2 die Felder A12:A18; B23; dann auf Blatt 2 C60; D34; auf Blatt 3 C2:F12; usw....
Kann mir bitte dazu jemand den Quellcode verraten, das wäre spitze.
Vielen Dank
Andi

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellen über Button auf 0 setzen

08.12.2008 08:52:30

Beverly

AW: Zellen über Button auf 0 setzen

08.12.2008 08:52:30

Beverly

Hi Andi,


Worksheets("Tabelle1").Range("A12:A18", "B23").ClearContents
Worksheets("Tabelle2").Range("C60", "D34").ClearContents
'  usw.

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Öffne deine Excel-Datei und navigiere zur ersten Seite deiner Arbeitsmappe.
Füge einen Button hinzu:
- Gehe zu "Entwicklertools" und wähle "Einfügen".
- Wähle den "Button (Formularsteuerelement)" und platziere ihn auf dem Blatt.
Weise dem Button ein Makro zu:
- Klicke mit der rechten Maustaste auf den Button und wähle "Makro zuweisen".
- Klicke auf "Neu", um den VBA-Editor zu öffnen.

Füge den folgenden VBA-Code ein, um die gewünschten Zellen auf 0 zu setzen:

Sub ZellenAufNullSetzen()
   Worksheets("Tabelle1").Range("A12:A18", "B23").ClearContents
   Worksheets("Tabelle2").Range("C60", "D34").ClearContents
   ' Weitere Zellen können hier hinzugefügt werden
End Sub

Schließe den VBA-Editor und teste den Button, indem du darauf klickst. Die angegebenen Zellen sollten nun auf 0 gesetzt werden.

Häufige Fehler und Lösungen

Fehler: Button funktioniert nicht
Lösung: Stelle sicher, dass du den Code korrekt zugewiesen hast und dass die Formularsteuerelemente aktiviert sind.
Fehler: Zellen werden nicht gelöscht
Lösung: Überprüfe die Blattnamen im Code. Sie müssen genau mit den Namen in deiner Arbeitsmappe übereinstimmen.

Alternative Methoden

Verwendung von Excel-Formeln: Anstatt den Inhalt manuell auf 0 zu setzen, kannst du Formeln wie =0 in die entsprechenden Zellen eingeben.
VBA-Shortcut: Du kannst auch eine Tastenkombination für dein Makro festlegen, um das Setzen der Zellen auf 0 zu beschleunigen.

Praktische Beispiele

Wenn du auf deiner Excel-Seite den "Plus Minus Button Excel" nutzen möchtest, kannst du den Button so programmieren, dass er nicht nur auf 0 setzt, sondern auch den Inhalt der Zellen um einen bestimmten Wert erhöht oder verringert.

Hier ist ein Beispielcode für einen Plus Minus Button:

Sub ZellenPlusMinus()
    Dim cell As Range
    For Each cell In Worksheets("Tabelle1").Range("A12:A18")
        cell.Value = cell.Value + 1 ' Erhöhe den Wert um 1
    Next cell
End Sub

Tipps für Profis

Benutze die If-Bedingung: Du kannst den Code erweitern, um nur Zellen zu löschen, die einen bestimmten Wert haben, z.B. If cell.Value <> 0 Then cell.ClearContents.
Makros schützen: Vergiss nicht, deine Makros zu schützen, damit sie nicht versehentlich geändert werden.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Zellen auf einmal auswählen?
Du kannst mehrere Zellbereiche durch Kommas in Range angeben, z.B. Range("A1:A10, B1:B10").

2. Kann ich auch ganze Spalten oder Zeilen löschen?
Ja, du kannst ganze Spalten oder Zeilen mit Columns("A:A").ClearContents oder Rows("1:1").ClearContents löschen.

3. Was ist der Unterschied zwischen ClearContents und Delete?
ClearContents entfernt nur den Inhalt der Zelle, während Delete die Zelle selbst entfernt und die angrenzenden Zellen verschiebt.

Beliebteste Forumthreads (12 Monate)