ich habe 12 Tabellenblätter (Januar-Dezember) wo ein bestimmter bereich nur gelöscht werden soll.
Hab dies Makro mal gebastelt, wo auch meine wünsche angegeben sind.
Der User soll den Löschvorgang NICHT sehen:
Sub loesche_jan_dez()
'muss ich diese blätter sichtbarmachen umden untenangegebenbereich zu löschen?
Sheets("Januar").Visible = True
Sheets("Februar").Visible = True
Sheets("Maerz").Visible = True
Sheets("April").Visible = True
Sheets("Mai").Visible = True
Sheets("Juni").Visible = True
Sheets("Juli").Visible = True
Sheets("August").Visible = True
Sheets("September").Visible = True
Sheets("Oktober").Visible = True
Sheets("November").Visible = True
Sheets("Dezember").Visible = True
Sheets(Array("Januar", "Februar", "Maerz", "April", "Mai", "Juni", "Juli", "August", _
"September", "Oktober", "November", "Dezember")).Select
'das soll nicht sichtbar sein, wenn das makroläuft.
Sheets("Januar").Activate 'aktives blatt
Range("F11:AJ38").Select 'bereich wird makiert was gelöscht werden soll
Selection.ClearContents ' löschvorgang
Range("A9:A10").Select 'zellen makiert in allen blättern gleich
'bis hierhin ausblenden
'hintergrund mappe für application.run (fortschrittanzeige)
Sheets("1").Visible = True
Sheets("1").Select 'blauer hintergund auf sheet "1"
MsgBox "Daten Januar bis Dezember werden gelöscht!" + Chr(13) + "Sicherung wird durchgefü _
hrt!"
Application.Run "'Orginal AW2008.xls'!test1"
Sheets("1").Visible = False 'hintergrund aus
Sheets("Inhaltsverzeichnis").Select
End Sub