code erweitern
13.01.2004 19:31:48
Stefan Glander
leider war meine Problembeschreibung nicht komplett.
Anfangs lautete mein Problem:
habe in Tabellenblatt "info" in den Zellen "B2" bis "B40" Kennziffern stehen.
In den Zellen "C2" bis "C40" stehen dazu Namen, sprich in "B2" = 001 und in "C2" Glander.
Auf dem Tabellenblatt "Januar" geben ich in Zelle "F3" 001 ein und möchte dann das automatisch in Zelle "I3" Glander geschrieben wird wenn ich Zelle "F3" verlasse.
Wie kann ich das in VBA realiesieren?
Darauf bekam ich folgende Hilfe aus dem Forum:
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("F3")) Is Nothing Then
Exit Sub
Else
Dim rng1 As Range
On Error GoTo Fehler
Set rng1 = Sheets("Info").Range("b2:c40")
Target.Offset(0, 3) = Application.WorksheetFunction.VLookup(Target, rng1, 2, False)
Exit Sub
End If
Fehler: Target.Offset(0, 3) = "Wert nicht vorhanden"
End Sub
Code eingefügt mit Syntaxhighlighter 2.5
Leider vergass ich zu schreiben das sich Automatisierung nicht nur auf die Zelle "F3" sondern auf "F3" bis "F20" angewendet werden soll.
Sprich wenn ich in "F3" eine Nummer eingebe soll in "I3" der entsprechend Name eingetragen werden, wenn in "F4" eine Kennziffer eingetragen wird soll in "I4" der dementsprechende Name eingetragen werden, usw.
Muss ich nun für jede Zelle von F3 bis F20 den Code schreiben?
Gruss
Stefan Glander
Anzeige