folgendes Makro läuft zwar einige Male gut, dann bleibt es beim Umbenennen hängen. Wenn die Datei geschlossen und dann neu gestartet wird, läuft es wieder eine Weile.
Frage läuft hier ein "Speicher" der Variablen N über - und wenn ja wie kann der nach jedem Durchlauf geleert werden.
Vielen Dank für Eure Hilfe einstweilen.
Gruß
Johannes M
Code:
Sub Alle()
Dim N As Variant
N = Range("D3").Value
On Error GoTo Fehler
Application.Run "Übertragen"
Application.ScreenUpdating = False
Sheets("Maske").Select
Sheets("Maske").Copy Before:=Sheets(4)
Sheets("Maske (2)").Select
Sheets("Maske (2)").Name = N
Sheets("Maske").Select
Range("D3").Select
ActiveWorkbook.Save
Exit Sub
Fehler:
MsgBox "Dieses Tabellenblatt exixtiert schon !" & Chr(13) & _
"Es wird als Maske (n) abgelegt. Bitte manuell umbenennen.", _
Title:="Name doppelt !"
Range("K12").Select
End Sub