Registernamen ändern sich automatisch
25.01.2021 11:41:24
Chrissy
Mein Problem:
Ich habe eine Excel-Mappe mit 30 Registerblätter. Jedes Register hat eine identische Tabelle (es sind Patientenblätter). In der Zelle E1 und E2 stehen jeweils der Vor- und der Nachname des Patienten.
Beide Zellen erhalten die Namen von einer anderen Excel-Tabelle aus einer alphabetischen Liste (nach Nachnamen sortiert) als Verknüpfung.
Wie schaffe ich es, wenn ich, nennen wir sie mal Patientenblättermappe, diese Datei öffne immer alle Register die aktuellen Namen haben. Bis jetzt habe ich es leider nur hinbekommen, daß die Namen in den Zellen E1 und E2 sich jeweils ändern, jedoch der Registername immer erst, wenn ich die Zellen E1 und E2 händisch ansteuere und ENTER drücke.
Dieses hier habe ich aus dem Internet für mich umgeändert:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$E$1" Or Target.Address = "$E$2" Then
Name = Range("E1") & " " & Range("E2")
End If
End Sub
(Quelle: www.psd-tutorials.de)
Hoffe Ihr könnt mir helfen, denn ich stoße auf meine kleinen Grenzen :)
Lieben Gruß, Chrissy.