Hinweis: In den Zellen stehen Uhrzeiten oder die Abkürzung U (sonst keine weiteren Buchstaben)
Vielen Dank,
Son
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 Ausgabe ist unsortiert, aber für viele Zwecke spielt das keine Rolle.