Zelle über alle Tabellenblätter löschen

Forumthread: Zelle über alle Tabellenblätter löschen

13.11.2019 18:46:46

Jannick

Guten Abend zusammen,
Ich möchte gern bestimmte Zellen über alle Tabellenblätter löschen.
Ich möchte gern ab Tabelle drei anfangen und bis zur letzten gehen und
in der Zelle den Inhalt entfernen.
Ich lasse in den Tabellen Überstunden rechnen immer über alle Blätter.
Damit neue MA bei wechsel angelegt werden müssen, müssen alte Werte gelöscht werden,
damit ich meine Datei nicht verbrennen lasse.
Ich freue mich schon auf tatkräftige HILFE! :)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zelle über alle Tabellenblätter löschen

13.11.2019 18:51:26

onur

"Ich freue mich schon auf tatkräftige HILFE!" - Und wie stellst du dir das vor, wenn du die Datei nicht postest, nicht verrätst, was mit " bestimmte Zellen" gemeint ist, wie "Tabelle drei" tatsächlich heisst (und alle anderen) usw?

AW: Zelle über alle Tabellenblätter löschen

13.11.2019 18:51:27

Hajo_Zi

wähle alle Tabellen aus lösche die Zelle, Auswahl aufheben.

AW: Zelle über alle Tabellenblätter löschen

13.11.2019 20:06:55

Jannick

Hallo Hajo_Zi,
Danke für den Tipp. Hab ich schon ausgezeichnet aber die Datei wächst um jede weitere KW im Dienstplan und ist somit dynamisch. Das ist der einzige hacken den ich per vba lösen muss. Die Zelle ist erstmal nicht so wichtig welche gelöscht wird. Die schreibe ich mir nach Gedankenanstoß dann zurecht. Ich bekomme nur die dynamische Einbindung nicht gebacken die über alle Blätter ab Blatt 3 bis Ende geht nicht hin. Bsp Datei könnte erst morgen kommen weil ich unterwegs bin :(

Mal 2 Varianten ...

14.11.2019 11:29:46

Pierre

Hallo Jannick,
z. B. könnte man das so machen:

Dim ws As Worksheet
For Each ws In Worksheets
If ws.Index > 2 Then
ws.Cells(Zeile, Spalte).ClearContents
End If
Next ws

Oder aber:

Dim i As Variant
For i = 3 To Sheets.Count
Sheets(i).Cells(Zeile, Spalte).ClearContents
Next i

Um nur mal 2 Varianten zu nennen.
Gruß Pierre

AW: Zelle über alle Tabellenblätter löschen

13.11.2019 20:17:43

Klaus

Hallo Jannick,
ungetestet circa so:

Sub DelBlatt()
dim blatt as worksheet
for each blatt in worksheets
if blatt.name = Tabelle1.name or blatt.name = Tabelle2.name then
else
range("A10:C10").clearcontents
end if
next blatt
end sub

AW: Zelle über alle Tabellenblätter löschen

14.11.2019 18:27:18

Jannick

Hallo Klaus,
danke für deine Antwort. Sie hat mich letztendlich ans Ziel gebracht.

Danke für die Rückmeldung! owT.

14.11.2019 18:51:04

Klaus

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um in Excel mehrere Tabellenblätter gleichzeitig zu bearbeiten und bestimmte Zellen zu löschen, kannst du die folgende Schritt-für-Schritt-Anleitung verwenden:

Öffne deine Excel-Datei und stelle sicher, dass die Tabellenblätter, die du bearbeiten möchtest, vorhanden sind.
Aktiviere die Visual Basic for Applications (VBA) Umgebung:
- Drücke ALT + F11, um den VBA-Editor zu öffnen.
Erstelle ein neues Modul:
- Klicke im Menü auf Einfügen und wähle Modul.

Füge den folgenden VBA-Code ein:

Dim ws As Worksheet
For Each ws In Worksheets
   If ws.Index > 2 Then
       ws.Cells(10, 1).ClearContents ' Hier kannst du die Zeile und Spalte anpassen
   End If
Next ws

Führe das Skript aus:
- Drücke F5 oder klicke auf Ausführen, um den Code auszuführen. Dies löscht den Inhalt der angegebenen Zelle in allen Tabellen ab dem dritten Blatt.

Häufige Fehler und Lösungen

Fehler: „Subscript out of range“
- Lösung: Überprüfe, ob die Blattnamen korrekt sind und ob die angegebenen Indizes existieren.
Fehler: „Object variable or With block variable not set“
- Lösung: Stelle sicher, dass du tatsächlich über ein vorhandenes Arbeitsblatt iterierst.
Fehler: Zellen werden nicht gelöscht
- Lösung: Überprüfe, ob du die richtigen Zeilen- und Spaltennummern in deinem VBA-Code angegeben hast.

Alternative Methoden

Wenn du nicht mit VBA arbeiten möchtest, kannst du auch manuell mehrere Blätter löschen:

Wähle die Blätter aus:
- Halte die Strg-Taste gedrückt und klicke auf die gewünschten Blätter.
Rechtsklick auf die Auswahl und wähle Löschen.
Bestätige, dass du die Blätter wirklich löschen möchtest.

Diese Methode ist praktisch, wenn du nur wenige Blätter entfernen möchtest.

Praktische Beispiele

Beispiel 1: Du möchtest in den Zellen A10 bis C10 auf allen Blättern ab dem dritten Blatt die Inhalte löschen:

Dim ws As Worksheet
For Each ws In Worksheets
  If ws.Index > 2 Then
      ws.Range("A10:C10").ClearContents
  End If
Next ws

Beispiel 2: Wenn du nur bestimmte Blätter löschen möchtest, kannst du eine Bedingung hinzufügen:

Dim ws As Worksheet
For Each ws In Worksheets
  If ws.Name <> "Tabelle1" And ws.Name <> "Tabelle2" Then
      ws.Range("A10:C10").ClearContents
  End If
Next ws

Tipps für Profis

Nutze Variablen im VBA-Code, um die Zellen dynamisch zu gestalten.
Teste deinen Code immer in einer Kopie der Datei, um ungewollte Datenverluste zu vermeiden.
Implementiere Fehlerbehandlungsroutinen in deinem VBA-Skript, um Probleme beim Ausführen des Codes zu erkennen und zu lösen.

FAQ: Häufige Fragen

1. Wie lösche ich mehrere Blätter in Excel?
Du kannst mehrere Blätter in Excel löschen, indem du sie zuerst auswählst (mit Strg-Taste) und dann einen Rechtsklick machst und Löschen wählst.

2. Kann ich mit VBA mehrere Arbeitsblätter gleichzeitig bearbeiten?
Ja, VBA ermöglicht es dir, durch eine Schleife über die Arbeitsblätter zu iterieren und spezifische Änderungen vorzunehmen, wie das Löschen von Zellinhalten.

Beliebteste Forumthreads (12 Monate)

Zelle über alle Tabellenblätter löschen

Forumthread: Zelle über alle Tabellenblätter löschen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zelle über alle Tabellenblätter löschen

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)

Zelle über alle Tabellenblätter löschen

Forumthread: Zelle über alle Tabellenblätter löschen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Zelle über alle Tabellenblätter löschen

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)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread