Verküpfungen auf Tabellenblätter II
Stefan
ich dachte eigentlich ich hab die Lösung, leider zeicht mir das Macro einen Fehler und
ich komme icht drauf was ich falsch gemacht habe...
In Zelle A1 steht der alte Name der Tabelle
In Zelle A2 steht der neue Name der Tabelle
Wird A2 geändert, so sollen die Verküpfungen in der Tabelle1 angepasst werden.
Leider bleibt das Macro bei " Range("A1:K201").Select" stehen ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A2:A2"), Target) Is Nothing Then
'Tabellennamen neu festlegen
neuTabelle = Worksheets("macro").Range("A2")
'Tabellennamen neu festlegen
altTabelle = Worksheets("macro").Range("A1")
Sheets("Tabelle1").Select
Range("A1:K201").Select
Selection.Replace What:=altTabelle, Replacement:=neuTabelle, LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
Else
End If
End Sub
Danke schon mal
Gruß
Stefan
Anzeige