bitte um Hilfe
21.12.2017 12:49:22
Stefan
ich hoffe ihr könnt mir bei meinem Problem helfen.
Es geht um dieses Sub:
Private Sub TextBox5_AfterUpdate()
Dim lzeile As Long
Dim lspalte As Long
Dim X
Dim Y
With Namen
lzeile = Worksheets("Orte").Cells(Rows.Count, 1).End(xlUp).Row
lspalte = Worksheets("Orte").Cells(1, Columns.Count).End(xlToRight).Column
For X = 2 To lzeile
For Y = 1 To lspalte
If .TextBox5.Text = "" Then Exit Sub Else
.TextBox6.Text = WorksheetFunction.VLookup(.TextBox5.Text, _
Worksheets(3).Cells(X, Y), _
Worksheets(3).Cells(X, 1), False)
Next
Next
End With
End Sub
möchte wenn in der Textbox5 was drin steht soll er in Textbox6 per SVERWEIS den Wert aus Textbox5 in einem Bereich vergleichen , den dazugehörigen Wert in Textbox6 schreiben.die Matrix besteht aus 2 Spalten
Wert von Textbox5 steht in Spalte 2
Wert was in Textbox6 eingetragen werden soll steht in Spalte 1
Ich bring es einfach nicht hin.
Anzeige