Option Explicit
Sub U_Suchen()
Dim c As Range
Dim erster As String
Dim col As String
Dim ausgabe As String
With Selection
Set c = .Find(what:="U", after:=Selection(.Count), _
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If Not c Is Nothing Then
erster = c.Address
col = Mid(c.Address, 2, 2)
If Mid(col, 2, 1) = "$" Then col = Mid(col, 1, 1)
ausgabe = ausgabe & col & ","
Do
Set c = .FindNext(c)
col = Mid(c.Address, 2, 2)
If Mid(col, 2, 1) = "$" Then col = Mid(col, 1, 1)
If InStr(ausgabe, col & ",") = 0 Then ausgabe = ausgabe & col & ","
Loop While Not c Is Nothing And erster c.Address
End If
End With
ausgabe = Mid(ausgabe, 1, Len(ausgabe) - 1)
MsgBox ausgabe
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen