Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige