ich möchte gerne in einer Spalte nach einen Begriff suchen und dann ausgeben.
Ferner nach leere Zeile suchen und in Label ausgeben.
s. Beispielmappe
Danke, für Eure Hilfe.
Gruß, Hanni
https://www.herber.de/bbs/user/89309.xlsm
Private Sub CommandButton2_Click()
Dim Reihe As Range, strText As String
Dim Eingabe As Variant
Eingabe = ""
For Each Reihe In Range("B2:B11")
If Reihe = Eingabe Then
If strText = "" Then
strText = Reihe.Offset(0, -1).Text
Else
strText = strText & vbLf & Reihe.Offset(0, -1).Text
End If
End If
Next
If strText = "" Then
Me.Label3 = "komplett"
Range("B12") = "komplett"
Else
Me.Label3 = strText
End If
End Sub