VBA Zelleninhalt suchen und in UserForm übernehmen
09.06.2017 12:12:29
Silvana
ich bin leider keine große Leuchte in VBA und finde die Lösung leider nicht selbst.
Ich möchte über eine UserForm Daten in eine Tabelle übertragen (das funktioniert schon). Im weiteren Verlauf sollen Daten aus diesem Tabellenblatt ausgelesen werden können und in eine UserForm eingelesen werden. Da ist mein Problem.
Ich bekomme es hin, dass die Daten gefunden werden, nur die Übertragung in die UserForm klappt nicht.
Hier mein Versuch
Sub Name_Markieren()
Dim suchName As String
Dim zeLLe As Range
Dim markRange As Range
If Not TypeOf ActiveSheet Is Worksheet Then Exit Sub
suchName = InputBox("Name eingeben:", "Suchfeld")
If suchName = "" Then Exit Sub
Application.ScreenUpdating = True
With ActiveSheet
.Range(.Cells(5, 1), .Cells(.Rows.Count, 1).End(xlUp)).Interior.ColorIndex = xlNone
For Each zeLLe In .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
If InStr(zeLLe, suchName) 0 Then
If markRange Is Nothing Then
Set markRange = zeLLe
Else
Set markRange = Union(markRange, zeLLe)
End If
End If
Next
If Not markRange Is Nothing Then
markRange.Activate
Range(Selection, Selection.End(xlToRight)).Select
End If
End With
Application.ScreenUpdating = True
Ausgabe.Show 'Name UserForm
'Eintragung in die UserForm
End Sub
Die Datei zur Ansicht
https://www.herber.de/bbs/user/114153.xlsm
Vielen Dank schon mal, ich weiß das ihr mir helfen könnt :-)
Gruß Silvana