Forums Neueste Beiträge
 

suchfunktion, dann 2 spalten weiterspringen

06/05/2008 - 14:15 von Tom | Report spam
Hallo,

habe mal wieder ein seltenes Problem, habe keinerlei Antworten darauf
im Forum gefunden.

Folgendes:
Ich will in einer Liste über VBA nach Öffnen der Datei ein bestimmte
Nr. suchen, dies ist soweit kein
Problem. Jetzt steht aber in der gleichen Zeile, 2 Spalten weiter eine
bestimmte Zahl, die ich zur
Weiterverarbeitung benötige. Wie kann ich jetzt zu dieser Zelle
springen mit VBA.

Mein Code sieht so aus:

Private Sub Workbook_Open()
Worksheets(ActiveWorkbook.Worksheets.Count).Select
Cells.Find(What:="2536033990", After:=ActiveCell, LookIn:=xlFormulas,
_
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

MsgBox "Teile beistellen", , "Beistellung"
End Sub

Nr. 2536033990 Suchkriterium ist in Spalte B, die Zahl zur
Weiterverarbeitung in Spalte D.

Wàre super, wenn mir jemand helfen könnte.

Danke

Gruß

Tom,
 

Lesen sie die antworten

#1 Alexander Wolff
06/05/2008 - 14:19 | Warnen spam
Ich will in einer Liste über VBA nach Öffnen der Datei ein bestimmte
Nr. suchen, dies ist soweit kein
Problem. Jetzt steht aber in der gleichen Zeile, 2 Spalten weiter eine
bestimmte Zahl, die ich zur
Weiterverarbeitung benötige. Wie kann ich jetzt zu dieser Zelle
springen mit VBA.




=INDEX(D1:D999;VERGLEICH(nr;B1:B999;))

aufzeichnen (das geht mit "Makrorekorder an / F2 / Makrorekorder aus" auf
der Zelle, wo Du die Formel eingetragen hast) und dann einfach einer
Variablen oder Zelle zuweisen.
Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2

Ähnliche fragen