suche Wert mit VBA und gebe Zeilenposition aus

31/08/2008 - 20:17 von Thom | Report spam
Hallo liebe NG

Ich habe in der Tabelle2 in der Spalte A bis C Diverse Eintràge. Ca. 2000
Zeilen.

Jetzt will ich auf Tabelle1 auf A1 den Zeilenwert eines bestimmten Artikels
aus Tabelle2 eintragen, und dies
Mittels VBA. So im Sinne von, suche einen Wert und gebe die Zeilennummer
dazu aus.

Beispiel: In Tabelle2 ist auf C128 der Artikel "ABC" eingetragen. In der
Tabelle1 muss also nach Ausführung des Makros in A1 der wert "128" sein.

Ich hoffe mich einiger massen verstàndlich ausgedrückt zu haben.

Für Tipps danke ich im Voraus.

Gruss Thom
 

Lesen sie die antworten

#1 Patrick Görg
31/08/2008 - 20:57 | Warnen spam
Hallo Thom,

versuch es mal damit

Worksheets("Tabelle2").Activate
Worksheets("Tabelle2").UsedRange.Select
Selection.Find(What:="ABC", After:=ActiveCell, LookIn:=xlFormulas,
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False).Activate
Worksheets("Tabelle1").Cells(1, 1).Value = ActiveCell.Address

Erklàrung :
Worksheets("Tabelle2").Activate
Wechselt zu Tabelle 2

Worksheets("Tabelle2").UsedRange.Select
Selektiert den benutzten Bereich, in dem gesucht werden soll

Selection.Find(What:="ABC", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False).Activate
Sucht "ABC" in dem benutzten Bereich und aktiviert die Zelle

Worksheets("Tabelle1").Cells(1, 1).Value = ActiveCell.Address
Schreibt in Tabelle 1, 1.Zeile, 1. Spalte die Adresse der aktivierten
Zelle in Tabelle 2

fertig

Ich hoffe es klappt !

Grüße

Patrick

Ähnliche fragen