Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Manfredo am April 12, 2019, 23:06:44 Nachmittag

Titel: Office 2007: Tabellenblattlöschung
Beitrag von: Manfredo am April 12, 2019, 23:06:44 Nachmittag

Hallo!
Eine Frage als Excel-Laie an die Profis!
Folgende Aufgabe habe ich mir gestellt. Im Excel 2007 habe ich 12 Tabellenblätter angelegt, von Januar bis Dezember. In diesen Tabellenblättern werde von verschiedenen Personen Eintragungen gemacht. Nun wollte ich immer am 01.01. des Folgejahres, automatisch alle Tabellenblätter automatisch leeren lassen. Wie könnte man das Problem lösen?
Danke im Voraus!

Titel: Antw:Office 2007: Tabellenblattlöschung
Beitrag von: maninweb am April 13, 2019, 08:34:19 Vormittag

Hallo,

könntest z.B. Dir eine Leer-Version als Vorlage irgendwo abspeichern.

Gruß

Titel: Antw:Office 2007: Tabellenblattlöschung
Beitrag von: MasterOfHardness am April 16, 2019, 11:27:17 Vormittag

Die Lösung von maniweb ist sicher die einfachste, sie kommt völlig ohne VBA aus.

Aber natürlich kann man diese Aufgabenstellung auch mit VBA lösen. Guggst du Anhang!

Titel: Antw:Office 2007: Tabellenblattlöschung
Beitrag von: Manfredo am April 19, 2019, 21:46:38 Nachmittag

Danke für die Hilfe,
werde es austesten!
MfG.

Titel: Antw:Office 2007: Tabellenblattlöschung
Beitrag von: AlterDresdner am April 22, 2019, 21:18:15 Nachmittag

Hallo,
zur Ergänzung
Variante 1: bei jedem Blatt fragen:
...
    With .Sheets(i)
      .Activate
      If MsgBox("Sollen wirklich alle Einträge entfern werden?", vbYesNo, "Sicher? Alles weg?") = vbYes Then
...
Variante 2: nur einmal fragen:
...
With Application.ThisWorkbook
  If MsgBox("Sollen wirklich alle Einträge entfern werden?", vbYesNo, "Sicher? Alles weg?") = vbNo Then Exit Sub
  For i = 1 To .Sheets.Count
    .Sheets(i).Cells.Value = vbNullString
  Next i
End With
...
Gruß der Martin