Hallo Ivy,
meinst du das in etwa so?
Private Sub Worksheet_Change(ByVal Target As Range)
If Left(Target, 7) = "Projekt" And Val(Right(Target, Len(Target) - 7)) > 0 Then
Target = Application.WorksheetFunction.VLookup(Target, Sheets("Tabelle2").Range("A:B"), 2, 0)
End If
End Sub
Der Code gehört in das Modul "Tabelle1"
Sollte das nicht helfen, dann erklär doch mal bitte den Aufbau von Tabelle1 etwas näher. Trägst du z.B. nur Projekt 1 in eine Zelle ein oder ist das Teil eines längeren Textes?
Gruß Mr. K.
|