Microsoft Excel

Herbers Excel/VBA-Archiv

Suchen und ersetzen, denke fuer Euch leichte

Betrifft: Suchen und ersetzen, denke fuer Euch leichte von: Chris
Geschrieben am: 19.05.2005 14:05:37

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

  


Betrifft: AW: Suchen und ersetzen, denke fuer Euch leichte von: Georg
Geschrieben am: 19.05.2005 14:16:36

Hi,

schau dir mal SVERWEIS() an.

mfg Georg


  


Betrifft: AW: Suchen und ersetzen, denke fuer Euch leichte von: delta46
Geschrieben am: 19.05.2005 14:28:32

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


  


Betrifft: AW: Suchen und ersetzen, denke fuer Euch leichte von: delta46
Geschrieben am: 19.05.2005 14:33:29

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


 

Beiträge aus den Excel-Beispielen zum Thema "Suchen und ersetzen, denke fuer Euch leichte"