Werte einer Tabelle auf Null setzen

Forumthread: Werte einer Tabelle auf Null setzen

14.11.2018 12:28:30

Thomas

Hallo zusammen,
ich habe eine Excel-Tabelle in der ich alle Werte
per VBA-Makro auf null setzten möchte. Ich benutze
hierzu ein VBA-Makro. Dieses hat aber ein kleines
Manko, das falls statt eines Wertes der Zahl als
Formel eingegeben wird (z. B. =5+5) diese nicht
auf Null gesetzt wird.
Ich benutze zur Zeit folgendes Makro:

Sub SetToZero()
Range("D8:O73").Select
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.FormulaR1C1 = "0"
Range("D80:O139").Select
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.FormulaR1C1 = "0"
Range("D146:O224").Select
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.FormulaR1C1 = "0"
Range("D231:O324").Select
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.FormulaR1C1 = "0"
Range("A1").Select
MsgBox "FERTIG"
End Sub

Anbei die Beispieldatei:
https://www.herber.de/bbs/user/125382.xlsm
Vielleicht kann mir hier einen Tipp geben wie
ich das Makro umstricken muss.
Vielen Dank.
Gruß
Thomas

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Werte einer Tabelle auf Null setzen

14.11.2018 12:32:30

PeterK
AW: Werte einer Tabelle auf Null setzen

14.11.2018 12:56:57

Thomas
AW: Werte einer Tabelle auf Null setzen

14.11.2018 13:14:41

Werner

AW: Werte einer Tabelle auf Null setzen

14.11.2018 12:32:30

PeterK

Hallo
Range("D8:O73").Value=0 usw. und alle Selections raus

AW: Werte einer Tabelle auf Null setzen

14.11.2018 12:56:57

Thomas

Hallo Peter,
aber mit Range("D8:O73").Value=0 usw. und alle Selections raus werden auch alle Summenformeln überschrieben. Diese sollen jedoch erhalten bleibem.
Viele Grüße
Thomas

AW: Werte einer Tabelle auf Null setzen

14.11.2018 13:14:41

Werner

Hallo Thomas,
das geht nicht. In einer Zelle kann entweder eine Formel oder ein Wert stehen.
Nur ein Formelergebnis aus einer Zelle mit Formel raus zu nehmen geht nicht.
Dazu müsstest du die Ausgangswerte deiner Summenformel auf 0 setzen.
Gruß Werner

Infobox / Tutorial

Werte einer Tabelle in Excel auf Null setzen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um alle Werte in einer Excel-Tabelle per VBA auf null zu setzen, kannst du das folgende Makro verwenden. Dieses Makro stellt sicher, dass nur Werte und nicht Formeln betroffen sind:

Sub SetToZero()
    Dim cell As Range
    For Each cell In Range("D8:O324")
        If IsNumeric(cell.Value) Then
            cell.Value = 0
        End If
    Next cell
    MsgBox "Alle Werte wurden auf null gesetzt!"
End Sub

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
Füge ein neues Modul hinzu, indem du mit der rechten Maustaste auf „VBAProject“ klickst und „Einfügen“ > „Modul“ wählst.
Kopiere den obigen Code in das Modul.
Schließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf „Ausführen“ klickst.

Häufige Fehler und Lösungen

Problem: Formeln werden auf null gesetzt.
- Lösung: Stelle sicher, dass du nur numerische Werte veränderst. Der oben angegebene Code überprüft, ob ein Wert numerisch ist, bevor er ihn auf null setzt.
Problem: Das Makro funktioniert nicht wie gewünscht.
- Lösung: Überprüfe, ob das Makro korrekt in ein neues Modul eingefügt wurde und dass der richtige Bereich angegeben ist.

Alternative Methoden

Wenn du eine einfache Möglichkeit suchst, alle Werte auf null zu setzen, ohne VBA zu verwenden, kannst du die folgenden Schritte ausführen:

Markiere den Bereich, den du auf null setzen möchtest.
Drücke F2, um in die Bearbeitungsansicht zu gelangen.
Drücke die Entf-Taste, um den Wert zu löschen und die Zelle auf null zu setzen.

Diese Methode ist nützlich, wenn du nur wenige Zellen hast, die du auf null stellen möchtest.

Praktische Beispiele

Angenommen, du hast eine Tabelle mit Verkaufszahlen in den Zellen D8 bis O73. Um diese Werte auf null zu setzen:

Führe das obige Makro aus, um alle Verkaufszahlen schnell auf null zu setzen.
Achte darauf, dass alle Formeln, die auf diesen Zellen basieren, weiterhin korrekt funktionieren.

Tipps für Profis

Nutze die SpecialCells-Methode, um gezielt nur bestimmte Zelltypen auszuwählen. Zum Beispiel, um nur die Zellen ohne Formeln zu bearbeiten.
Du kannst das Makro anpassen, um nach bestimmten Bedingungen zu filtern, z.B. nur Werte über einem bestimmten Betrag auf null zu setzen.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass nur Werte und keine Formeln auf null gesetzt werden?
Verwende die IsNumeric-Überprüfung im VBA-Code, um sicherzustellen, dass nur numerische Werte bearbeitet werden.

2. Kann ich das Makro auch für andere Bereiche verwenden?
Ja, ändere einfach den Bereich im Code (z.B. Range("A1:B10")), um andere Zellen zu bearbeiten.

3. Funktioniert das Makro in allen Excel-Versionen?
Ja, das Makro sollte in den meisten modernen Excel-Versionen, die VBA unterstützen, funktionieren.

Beliebteste Forumthreads (12 Monate)

Werte einer Tabelle auf Null setzen

Forumthread: Werte einer Tabelle auf Null setzen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Werte einer Tabelle in Excel auf Null setzen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread