|
Hallo Werner,
vielen Dank! Das ist natürlich eine wesentlich elegantere Lösung, besonders das mit dem With Befehl =)
Wenn ich das ganze aber jetzt noch weiterspinne, komme ich zu einem etwas größeren Problem, denke ich.
Angenommen der gefundene Wert im Sheet 2 kommt mehrmals vor (z.B. 2 mal), möchte ich das die Daten aus beiden Reihen in die UF eingefügt werden. Und zudem will ich das ganze dynamisch gestalten, da es durchaus auch sein kann, dass der Wert 10 mal gefunden wird. Habe mir erstmal ganz banal sowas ausgedacht,was natürlich nicht funktioniert...leider...:
Private Sub Search0_Click()
Dim wb As Workbook
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim such As String, LetzteZeile As Long, i As Long
Dim ctr As Control
Set wb = ActiveWorkbook
Set ws1 = wb.Worksheets("Übersicht")
Set ws2 = wb.Worksheets("Datenbank")
such = UserForm1.TextBox1.Value
With ws2
LetzteZeile = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = 5 To LetzteZeile
If .Cells(i, 2) = such Then
MsgBox "Wert gefunden"
For Each ctr In UserForm1.Controls
If ctr.Name Like Nummer* Then
UserForm1.Nummer* = .Cells(i, 1)
Exit For
End If
Exit For
End If
Next i
End With
End Sub
Hoffe, das wird nicht zu kompliziert.
Grüße
|