Zelländerung = Änderung Registername
23.06.2008 14:17:49
Martin
ich habe da mal eine Frage.
Ich habe ein kleines Programm geschrieben, das mir beim Öffnen des Excel Dokuments die Register nach einem bestimmten Registernamen (Max Mustermann) durchsucht.
Ist ein solches Register nicht vorhanden, wird es Erzeugt. Dabei wird der Name (Max Mustermann) in die Zelle D5 geschrieben und das Register natürlich auch Max Mustermann genannt.
Nun mein Problem:
Wenn ich in D5 des Registers Max Mustermann einen anderen Namen schreibe, dann möchte ich das anhand dieses Namens das Register neu benannt wird.
Hatte dazu folgenden Code in die Arbeitsmappe geschrieben:
Sub aenderung()
If ThisWorkbook.Worksheets("Max Mustermann").Range("D5") "Max Mustermann" Then
Sheets("Max Mustermann").Range("D5")
Worksheets("Max Mustermann").name = Sheets("Max Mustermann").Range("D5")
End If
End Sub
Da ich vorher nicht weiß, ob es ein Register Max Mustermann gibt, kann ich die Änderung nicht unter der Tabelle1(Max Mustermann) abfangen.
Wie könnte ich das lösen?
mfg Martin