AW: Wert aus Listbox in ein Feld schreiben
01.07.2007 17:50:00
Hans
Mhh , ich weiss nicht so recht wie ich das Problem beschreiben soll damit man es aus außenstehender versteht.
Also ich habe zwei Dateien in denen Daten stehen jede Zeile ist ein Datensatz.
Mit dem Untenbeschribenen Skript suche in Spalte E nach dem Namen. Alle Treffer werden dann in die Listbox geschrieben.
Nun möchte ich einen Namen anwählen und mit der Auftragsnummer ( die in der Datei in der Spalte A und in der Listbox als letztes angegeben wird.
Deswegen möchte ich nach Auswahl in der Listbox diese Auftragsnummer in die Zelle A1 schreiben um es dann mittels eines Marko weiter zu verarbeiten
Private Sub cmdSearch_Click()
Dim rng As Range
Dim sFirst As String
Dim i As Integer
ListBox1.Clear
Set rng = Workbooks("DATEN_27.xls").Worksheets("Daten erfassung").Range("E:E") _
.Find(What:=txtSearch, LookIn:=xlValues, LookAt:=xlPart, After:=Range("E65536"))
If Not rng Is Nothing Then
sFirst = rng.Address
ListBox1.AddItem rng & " , " & rng.Offset(0, 1) & " , " & rng.Offset(0, 3) & " | " & rng. _
_
_
Offset(0, 4) & " " & rng.Offset(0, 5) & " | " & rng.Offset(0, -4), i
ListBox1.List(i, 1) = rng.Row
i = i + 1
Do
Set rng = Workbooks("DATEN_27.xls").Worksheets("Daten erfassung").Range("E:E"). _
FindNext( _
After:=rng)
If rng.Address = sFirst Then Exit Do
ListBox1.AddItem rng & " , " & rng.Offset(0, 1) & " , " & rng.Offset(0, 3) & " | " & _
_
rng.Offset(0, 4) & " " & rng.Offset(0, 5) & " | " & rng.Offset(0, -4), i
ListBox1.List(i, 1) = rng.Row
i = i + 1
Loop
End If
Set rng = Workbooks("DATEN_24.xls").Worksheets("Daten erfassung").Range("E:E").Find(What:= _
_
txtSearch, LookIn:=xlValues, _
LookAt:=xlPart, After:=Range("E65536"))
If Not rng Is Nothing Then
sFirst = rng.Address
ListBox1.AddItem rng & " , " & rng.Offset(0, 1) & " , " & rng.Offset(0, 3) & " | " & rng. _
_
_
Offset(0, 4) & " " & rng.Offset(0, 5) & " | " & rng.Offset(0, -4), i
ListBox1.List(i, 1) = rng.Row
i = i + 1
Do
Set rng = Workbooks("DATEN_24.xls").Worksheets("Daten erfassung").Range("E:E"). _
FindNext( _
After:=rng)
If rng.Address = sFirst Then Exit Do
ListBox1.AddItem rng & " , " & rng.Offset(0, 1) & " , " & rng.Offset(0, 3) & " | " & _
_
rng. _
Offset(0, 4) & " " & rng.Offset(0, 5) & " | " & rng.Offset(0, -4), i
ListBox1.List(i, 1) = rng.Row
i = i + 1
Loop
Else
If ListBox1.ListCount = 0 Then
ListBox1.AddItem "Nichts gefunden!"
End If
End If
End Sub