Habe ein Makro aufgezeichnet das über ein Schalter ausgeführt wird.
Die Aufzeichnung erfolgte über Tabelle1.
Diese Tabelle kopiere ich 32-mal und gebe jede Tabelle einen anderen Namen
Das Makro läuft in Tabelle1 sehr gut, aber nicht in den anderen Tabellen.
Ändere ich im Makro den Namen von Tabelle1 auf Horst (Tabelle2) läuft das Makro da gut.
Ich möchte aber das es in jeder Tabelle läuft die gerade Aktive ist.
Das Makro befindet sich im Modul1
Sub löschen()
Dim b
MsgBox("Bitte erst Speichern unter Ordner-Jahr? Mappe-Monat? ", 32 + vbQuestion, "Speichern nicht vergessen")
b = MsgBox("Wollen Sie wirklich alle Eingaben löschen ", 32 + vbYesNo, "Löschen")
If b = 7 Then Exit Sub
Range("N1").Select
Selection.ClearContents
Selection.Consolidate Sources:= _
"'Tabelle1'!R40C8" _
, Function:=xlSum, TopRow:=False, LeftColumn:=False, CreateLinks:=False
Range("H1").Select
Selection.ClearContents
Selection.Consolidate Sources:= _
"'Tabelle1'!R1C14" _
, Function:=xlSum, TopRow:=False, LeftColumn:=False, CreateLinks:=False
Range("AZ4").Select
Selection.ClearContents
Selection.Consolidate Sources:= _
"'Tabelle1'!R31C7" _
, Function:=xlSum, TopRow:=False, LeftColumn:=False, CreateLinks:=False
Range("AZ5").Select
Selection.ClearContents
Selection.Consolidate Sources:= _
"'Tabelle1'!R32C7" _
, Function:=xlSum, TopRow:=False, LeftColumn:=False, CreateLinks:=Fals
Range("AZ6").Select
Selection.ClearContents
Selection.Consolidate Sources:= _
"'Tabelle1'!R33C7" _
, Function:=xlSum, TopRow:=False, LeftColumn:=False, CreateLinks:=False
Range("AZ7").Select
Selection.ClearContents
Selection.Consolidate Sources:= _
"'Tabelle1'!R34C7" _
, Function:=xlSum, TopRow:=False, LeftColumn:=False, CreateLinks:=False
Range("AZ8").Select
Range("O4:AH34").Select
Range("AH34").Activate
Range("O4:AH34,J4:L34,D4:E34").Select
Range("D4").Activate
Selection.ClearContents
End Sub