---

Hi,

ich muss Daten aus einer Excel-Datei auslesen und in meine bestehende Zeichnung einfuegen. Die Excel-Datei besteht aus mehreren 100 Zeilen. Um die richtige Zeile zu finden, in deren Zellen die benoetigten Daten fuer die Zeichnung stehen, habe ich aus einer Text-Datei einen Wert ausgelesen, der auch in der ersten Spalte der Excel-Datei in irgendeiner Zeile steht.
Mein Problem besteht jetzt also darin, die entsprechende Zelle/Zeile zu finden. Wie durchsuche ich eine bestimmte Spalte in einer Excel-Datei nach einem Wert, um dann an die Daten in dieser Zeile zu gelangen?

Ich hoffe, ich konnte mein Problem verstaendlich erklaeren.  Wenn nicht, habt Nachsicht, ich habe erst mit VBA angefangen zu programmieren. Fragt also einfach nach. 

MfG & vDiV JoKurt87

------------------
shit's getting real:

(sqrt(-shit))^2

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ok ich war selbst zu voreilig.  Ich habe eine Loesung gefunden:

Code:

---

With excelSht.Range("a1:a639")
    Set suche = .Find("test", LookIn:=xlValues)
    If Not suche Is Nothing Then
        FirstAddress = suche.Address
        Do
            MsgBox suche.Row
            Set suche = .FindNext(suche)
        Loop While Not suche Is Nothing And suche.Address <> FirstAddress
    End If
End With

---

Gibt es jetzt darueber hinaus noch die Moeglichkeit die Range nicht bei Zelle A:639 enden zu lassen, sondern in der ganzen Spalte A suchen zu lassen, und wenn ja, wie? 

------------------
shit's getting real:

(sqrt(-shit))^2

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

servus, Range("a:a")

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P. Sport ist Mord
Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus ebenfalls;-)

Code:

---

Sub test()
    Dim i&
    i = Cells(Rows.Count, 1).End(xlUp).Row 'die 1 für Spalte A
    MsgBox i
End Sub

---

lg trekkie

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke fuer die beiden Loesungsmoeglichkeiten! 

------------------
shit's getting real:

(sqrt(-shit))^2

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP