Änderung sofort übernehmen
12.12.2003 16:11:48
Stefan Glander
ich habe folgendes Problem:
In der Datei "A" steht im Tabellenblatt "Variablen" in Zelle "F5" ein Name und in Zelle "I5" der dazugehörige Nachname. In Zelle "L5" mache ich mit dem Code
=WENN(F5="";" ";F5&","&I5)
den gesamten Namen.
Nun möchte ich mit folgendem Anweisung in der Datei "B" das 1.Tabellenblatt mit dem Gesamten Namen automatisch benennen.
Dazu gebe ich folgendes in dem Tabellblatt was zu benennen ist ein:
in Zelle "R2": =[A.xls]Variablen!$L$5.
Dann gebe ich in VBA in diesem Tabellenblatt folgenden Code ein:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("L5:L5")) Is Nothing Then
On Error GoTo fehlermeldung
If Target = "" Then Exit Sub
ActiveSheet.Name = Range("L5").Value
End If
Exit Sub
fehlermeldung:
MsgBox "Es wurden ungültige Zeichen erfasst!"
End Sub
Das Problem ist nun das der Tabellenreiter den Namen erst aktualisiert wenn ich in die Zelle "R2" gehe und diese dann wieder verlasse.
Ich möchte aber das dieses automatisch sofort nach Änderung der Daten in Zelle
"F5" bzw."I5" ändert.
Vielen Dank vorweg.
Stefan Glander