Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
612to616
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
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suchen und ersetzen, denke fuer Euch leichte

Suchen und ersetzen, denke fuer Euch leichte
19.05.2005 14:05:37
Chris
Hallo Leute,
folgendes Problem
ICh hab eine
Tabelle1
Name----Gruppe
Chris-------A
Thomas---B
Tom--------A
Uli----------C
Tabelle 2
Name----Gesucht
Chris
Thomas
Tom
Tom
Uli
Chris
Tom
jetzt sollen in der zweiten Tabelle sobald der NAme auftaucht in der ersten Tabelle geschaut werden und dan die Richtige Gruppe zugeordnet werden.
Geht nicht mit Wenn verschachtelungen da die Tabelle zu gross. Glaube das es eine funktion geben koennte, weis es aber nicht. Denke fuer Euch ist es einfach.
Tabelle 2
Name----Gesucht
Chris-----A
Thomas---B
Tom-------A
Tom-------A
Uli----------C
Chris-----A
Tom-------A
Danke schon mal fuer Eure lehrreichen Tips!
Gruss
Chris

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen und ersetzen, denke fuer Euch leichte
19.05.2005 14:16:36
Georg
Hi,
schau dir mal SVERWEIS() an.
mfg Georg
AW: Suchen und ersetzen, denke fuer Euch leichte
19.05.2005 14:28:32
delta46
Ich hoffe dies hilft dir weiter
For zeile = 1 To 10
For z_suchen 1 To 4
If Worksheets("Tabelle2").Cells(zeile, 1) = Worksheets("Tabelle1").Cells(z_suchen, 1) Then
Worksheets("Tabelle2").Cells(zeile, 2) = Worksheets("Tabelle1").Cells(z_suchen, 2)
End If
Next z_suchen
Next zeile
Viel Spaß noch
AW: Suchen und ersetzen, denke fuer Euch leichte
19.05.2005 14:33:29
delta46
Ich hoffe dies hilft dir weiter:
For zeile = 1 To 10
For z_suchen 1 To 4
If Worksheets("Tabelle2").Cells(zeile, 1) = Worksheets("Tabelle1").Cells(z_suchen, 1) Then
Worksheets("Tabelle2").Cells(zeile, 2) = Worksheets("Tabelle1").Cells(z_suchen, 2)
End If
Next z_suchen
Next zeile
Anzeige

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige