Makro funktioniert nicht mehr
Kirsten
habe dank eurer Hilfe das nachstehende Makro in meiner Mappe. Es benennt meine Tabellenblätter entsprechend einer Zelleingabe automatisch um.
Private Sub Worksheet_change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
If Target.Address = "$B$5" Then
For NameAnders = 1 To 10
Sheets(NameAnders).Name = NameAnders
Next
Sheets(1).Name = "KW " & Range("B5").Value
Sheets(1).Range("b5").Calculate
Sheets(1).Range("B5").Select
Sheets(2).Range("i1").Value = Sheets(1).Range("b3").Value
Sheets(2).Range("k1").Value = Sheets(1).Range("b3").Value
Sheets(2).Range("d2").Value = Sheets(1).Range("f13").Value
Sheets(2).Name = Sheets(2).Range("d2").Value & " Übersicht "
Sheets(3).Range("b5").Value = Sheets(1).Range("b5").Value + 1
Sheets(3).Name = "KW " & Sheets(3).Range("b5").Value
Sheets(4).Range("i1").Value = Sheets(3).Range("b3").Value
Sheets(4).Range("k1").Value = Sheets(3).Range("b3").Value
Sheets(4).Range("d2").Value = Sheets(3).Range("f13").Value
Sheets(4).Name = Sheets(4).Range("d2").Value & " Übersicht "
Sheets(5).Range("b5").Value = Sheets(3).Range("b5").Value + 1
Sheets(5).Name = "KW " & Sheets(5).Range("b5").Value
Sheets(6).Range("i1").Value = Sheets(5).Range("b3").Value
Sheets(6).Range("k1").Value = Sheets(5).Range("b3").Value
Sheets(6).Range("d2").Value = Sheets(5).Range("f13").Value
Sheets(6).Name = Sheets(6).Range("d2").Value & " Übersicht "
Sheets(7).Range("b5").Value = Sheets(5).Range("b5").Value + 1
Sheets(7).Name = "KW " & Sheets(7).Range("b5").Value
Sheets(8).Range("i1").Value = Sheets(7).Range("b3").Value
Sheets(8).Range("k1").Value = Sheets(7).Range("b3").Value
Sheets(8).Range("d2").Value = Sheets(7).Range("f13").Value
Sheets(8).Name = Sheets(8).Range("d2").Value & " Übersicht "
Sheets(9).Range("b5").Value = Sheets(7).Range("b5").Value + 1
Sheets(9).Name = "KW " & Sheets(9).Range("b5").Value
Sheets(10).Range("i1").Value = Sheets(9).Range("b3").Value
Sheets(10).Range("k1").Value = Sheets(9).Range("b3").Value
Sheets(10).Range("d2").Value = Sheets(9).Range("f13").Value
Sheets(10).Name = Sheets(10).Range("d2").Value & " Übersicht "
End If
Application.ScreenUpdating = True
End Sub
Sobald ich jetzt aber ein neues Blatt einfüge oder die Tabellenblätter verschiebe, funktioniert das Makro nicht mehr. Entweder wird "Sheets(NameAnders).Name = NameAnders" angemeckert, oder aber "Sheets(1).Range("B5").Select".
Leider hab ich überhaupt keine Ahnung, warum das Makro dann nicht mehr läuft.
Dachte zuerst, es hängt mit Anweisung "For NameAnders = 1 To 10" zusammen. Aber egal was ich da versucht habe, es klappt einfach nicht.
Kann mir vielleicht von euch jemand behilflich sein?
Lieben Dank schon mal im voraus.
Gruss
Kirsten