Makro zum Löschen kürzen?
08.10.2019 16:53:54
Marcs
ich hab in einer Excel Datei mehrere Tabellenblätter die per Button->Passwortabfrage->Bestätigung->Makro jeweils in unterschiedlichen Bereichen geleert werden sollen.
Ich hab mir dazu etwas zusammengebaut was auch soweit,wie gewollt funktioniert.
Nur denke ich, dass geht bestimmt kürzer und da hört es bei mir auch schon wieder auf.
Vielleicht hat da ja jemand eine Idee:
Grüsse
Sub Alle_Tab_loeschen()
Dim sPassWord As String
sPassWord = InputBox("Löschung vorbereiten:", , "Mein Passwort")
Select Case sPassWord
Case BE_Passwort
If MsgBox("Möchten Sie wirklich alle vorhandenen Planwerte in dieser Exceldatei _
löschen?", _
vbYesNo + vbExclamation, "Daten löschen?") = vbYes Then
Application.ScreenUpdating = False
Call Werte_kopieren_8H
With Worksheets("Tab1").Range("V5:OB6, V14:OB26, V41:OB41, V43:OB62, _
V78:OB78, V80:OB97, V112:OB112, V114:OB131") 'Bereich
.ClearContents 'alle Zellwerte löschen
.ClearComments 'alle Kommentare löschen
With .Interior 'Hintergrundfarbe auf "keine" setzen
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End With
With Worksheets("Tab2").Range("M8:BZ82")
.ClearContents
.ClearComments
With .Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End With
With Worksheets("Tab3").Range("K8:AO82")
.ClearContents
.ClearComments
With .Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End With
With Worksheets("Tab4").Range("M8:BZ82")
.ClearContents
.ClearComments
With .Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End With
With Worksheets("Tab5").Range("F13:BS88")
.ClearContents
.ClearComments
With .Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End With
End If
Worksheets("Tab1").Select
Case Else
Beep
MsgBox "Gibbet nicht! ;-)"
End Select
End Sub