Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellvergleich und Liste

Forumthread: Zellvergleich und Liste

Zellvergleich und Liste
20.05.2003 11:33:27
ThomasS
Hallo,
ich habe folgendes Problem:
In meinem gesharten File wird in die Zelle D91 automatisch die user ID geschrieben. Diese kann (muss aber nicht)ausserdem in einer oder mehreren Zellen des Bereichs A1 bis W68 vorkommen. Ich möchte mir nun die Zellen auflisten lassen, in denen die entsprechende User ID aus Zelle D91 vorkommt.
Wäre super falls jemand eine Idee hat.
Danke
Thomas

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zellvergleich und Liste
20.05.2003 14:53:03
Dan

Private Sub BereichDurchsuchen()
Dim rBereich As Range
Dim rCell As Range
Dim vGesucht As Variant
Dim bGefunden As Boolean
Dim sListe As String
Dim vResponse As Variant
Dim i As Long

Set rBereich = Range("A1:W68")
vGesucht = CStr(Range("D68").Value)
bGefunden = False
i = 0

If vGesucht = "" Then Exit Sub

For Each rCell In rBereich.Cells
If CStr(rCell.Value) = vGesucht And _
rCell.Address <> "$D$68" Then
i = i + 1
bGefunden = True
sListe = sListe & rCell.Address
If i = 10 Then
sListe = sListe & vbCrLf
i = 0
End If
End If
Next rCell

If bGefunden Then
vResponse = MsgBox(sListe, vbOKOnly, "User_ID " & vGesucht & " in anderen Cellen gefunden")
Else
MsgBox "Anderes User_ID " & vGesucht & " nicht gefunden"
End If
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige