Tabellenblattnahme, Beitrag 1008-1012 21.09.08
24.09.2008 22:57:34
Werner
Deine Hilfe mit den Code:
Private Sub Worksheet_Change _
(ByVal Target As Range)
If Target.Address = "$D$12" Then
TabelleXXX.Name = Range("D12").Value
End If
End Sub
hat Super funktioniert, nochmals Danke!!
Nun habe ich aber noch ein weiteres Problem, ich habe nicht nur eine Tabelle sondern mehrere die geändert werden sollen. Ich habe folgendes versucht:
Private Sub Worksheet_Change _
(ByVal Target As Range)
If Target.Address = "$D$12" Then
TabelleXXX.Name = Range("D12").Value
If Target.Address = "$D$13" Then
TabelleXX1.Name = Range("D13").Value
If Target.Address = "$D$14" Then
TabelleXX2.Name = Range("D14").Value
End If
End Sub
So hat das leider nicht geklappt.
Wie kann ich den Code ändern, dass es auch mit mehreren Tabellenblätter funktioniert?
Gruß Werner