hat jemand eine Idee wie ich in der Datei 71871.xls
in der Tabelle: BlankJahr in Spalte F noch die Abkürzungen aus der Tabelle: Bezeichnungen Spalte D zuweisen kann?
Vielen Dank für eure Hilfe
Maik
F | |
3 | FB |
verwendete Formeln | ||
Zelle | Formel | Bereich |
F3 | =WENN(ISTFEHLER(SVERWEIS(D3;Bezeichnungen!C:D;2;0));"";SVERWEIS(D3;Bezeichnungen!C:D;2;0)) |
Die Datei https://www.herber.de/bbs/user/71888.xls wurde aus Datenschutzgründen gelöscht
H | |
2 | BTS |
verwendete Formeln | ||
Zelle | Formel | Bereich |
H2 | =WENN(ISTFEHLER(SVERWEIS(G2;Bezeichnungen!C:D;2;0));"";SVERWEIS(G2;Bezeichnungen!C:D;2;0)) |
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 5 And Target "" Then
Application.EnableEvents = False
Cells(Target.Row, 8) = Application.VLookup(Worksheets("Blanko Jahr").Cells(Target. _
Row, 7), Worksheets("Bezeichnungen").Range("C:D"), 2, 0)
Application.EnableEvents = True
End If
End If
Gruß HajoPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
Application.EnableEvents = False
If Target.Column = 5 And Target "" Then
Cells(Target.Row, 8) = Application.VLookup(Worksheets("Blanko Jahr").Cells(Target. _
Row, 7), Worksheets("Bezeichnungen").Range("C:D"), 2, 0)
ElseIf Target.Column = 7 Then
Cells(Target.Row, 8) = ""
End If
Application.EnableEvents = True
End If
Gruß Hajo