es läuft, aber mehr als bescheiden ;-)
20.04.2007 15:36:07
oxe
Habe hier ne Funktion gebastelt, die mir ein paar Blätter wo etwas eingetragen wurde wieder leert, aber ich glaube meine Lösung ist mehr als suboptimal, das braucht nämlich ewig... Vielleicht mag mal jemand nen Vorschlag machen, wie das besser wäre? Was gemacht werden soll ist glaube ich recht ersichtlich, also ich meine in welchen Bereichen, die Aktion soll dann einfach "löschen!" sein.
Wäre sehr dankbar!
Option Explicit
Sub Loeschen()
'Löscht alle Einträge in den Monatsblättern, Steuerung und Daten
If MsgBox("Wirklich alle Einträge löschen?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
On Error Resume Next 'Fehler übergehen wenn Probleme auftreten
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim helperMonat As Byte
Dim helperUser As Byte
Dim helperTag As Byte
Dim monat As String
Dim wksMonat As Worksheet
helperMonat = 1
While helperMonat ""
helperMonat = helperMonat + 1
Wend
helperUser = 3
While helperUser ""
helperMonat = helperMonat + 1
Wend
helperUser = 7
While helperUser
Anzeige