Daten durch anklicken in der Userform anzeigen
13.08.2016 00:56:12
Falo
ich möchte mit einem Klick auf die Tabellen das die Daten die ich angeklickt habe in der Userform angezeigt wird
mit diesem Makro ist es möglich durch einen Suchbegriff, in TextBox1 in der Userform wonach zu suchen. das Ergebnis wird in der Userform angezeigt. könnt Ihr mir helfen das der angeklickten Datensatz in der Userform angezeigt wird
Gruß
Olaf
Private Sub CommandButton1_Click()
Dim lngSuch
Dim i As Integer
Dim LRow As Long
Dim rngC As Range
LRow = Cells(Rows.Count, 1).End(xlUp).Row
lngSuch = Me.TextBox1.Value
Set rngC = Range("A1:A" & LRow).Find(lngSuch, _
Range("A" & LRow), xlValues)
With UserForm1
If Not rngC Is Nothing Then
.TextBox1 = Cells(rngC.Row, 1)
.TextBox2 = Cells(rngC.Row, 2)
.TextBox3 = Cells(rngC.Row, 3)
.TextBox4 = Cells(rngC.Row, 4)
.TextBox5 = Cells(rngC.Row, 5)
.TextBox6 = Cells(rngC.Row, 6)
.TextBox7 = Cells(rngC.Row, 7)
.TextBox8 = Cells(rngC.Row, 8)
Else
MsgBox "Wert wurde nicht gefunden"
End If
End With
End Sub
Anzeige