Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Verküpfungen auf Tabellenblätter II

Verküpfungen auf Tabellenblätter II
Stefan
Hallo nochmal,
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
Wer kann mir sagen was ich falsch gemacht habe ?
Danke schon mal
Gruß
Stefan

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Verküpfungen auf Tabellenblätter II
25.11.2011 07:01:25
Stefan
Frage hat sich erledigt. Habs gefunden wie ichs hin bekomme...
:-)
Stefan
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige