Suchen

Forumthread: Suchen
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Suchen

Suchen

16.02.2014 20:49:45

Hannelore

Hallo,
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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suchen

16.02.2014 21:17:37

fcs
AW: Suchen

17.02.2014 03:43:19

Hannelore
Frage ist beantwortet

17.02.2014 08:25:18

fcs
AW: Frage ist beantwortet

17.02.2014 12:21:37

Hannelore

AW: Suchen

16.02.2014 21:17:37

fcs

Hallo Hanni,
die Suche mit dem Commandbutton1 scheint ja zu funktionieren.
Für den Commandbutton2 muss der code etwa wie folgt aussehen.
Gruß
Franz

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