Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
848to852
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
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
suchen und auswerten
27.02.2007 18:05:36
Christian
Hallo Excelprofis,
wieder einmal habe ich ein "kleines" Problem, da meine VBa-Kenntnisse sehr beschränkt sind.
Ich habe in sder Spalte A Nummern stehen und in Spalte B, C und D Namen.
Nun will ich das eine Schleife durchlaufen wird die mir den Namen aus Spalte F einliesst und schaut ob der Name in Spalte B C oder D vorkommt und wenn ja wo überall (sprich in welcher Zeile und mit der dazugehörigen Nr) und es z.B in einer Msgbox ausgeben.
z.B. rainer als Name 1 mit Nr 22
rainer als Name 2 mit Nr 22
rainer als Name 2 mit Nr 545
Zur Verdeutlichung hab ich euch eine kleine Bespieltabelle hochgeladen.

Die Datei https://www.herber.de/bbs/user/40733.xls wurde aus Datenschutzgründen gelöscht


ich hoffe mir kann jemand weiterhelfen, da ich ans Ende meiner minimalen VBA-Kenntnisse gestoßen bin.
Schon einmal Vielen Dank im voraus für die Bemühungen, ich hoffe ich höre von euch ....
Danke
Christian

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: suchen und auswerten
28.02.2007 20:31:08
worti
Hallo Christian,
meinst du sowas:

Sub NummernUndNamen()
Dim c As Range, c1 As Range
Dim Suchbereich As Range
Dim ersterFund As String
Set Suchbereich = Range("B2:D7")
For Each c In Range("F2:F8")
Set c1 = Suchbereich.Find(c)
If Not c1 Is Nothing Then
ersterFund = c1.Address
Do
MsgBox "Name " & c & " gefunden mit Nummer " & Range("A" & c1.Row)
Set c1 = Suchbereich.FindNext(c1)
Loop Until c1 Is Nothing Or c1.Address = ersterFund
End If
Next c
End Sub

AW: suchen und auswerten
28.02.2007 21:26:36
Luschi
Hallo Christian,
habe mal Dein Problem mit Vba gelöst.
Das Ergebnis findest Du hier: https://www.herber.de/bbs/user/40765.xls
Ha be im Quellcode auch 1 paar Kommentare reingeschrieben.
Gruß von Luschi
aus klein-Paris
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige