AW: Eintrag suchen und Reihe ermitteln
08.08.2006 09:50:43
Thomas
Hab mir inzwischen selbst geholfen. Es gibt bestimmt eine elegantere Lösung. Wenn ja, wäre ich sehr dankbar.
<pre>
Private Sub CommandButton1_Click()
Dim i As Long, j As Long
Dim number As Long
Dim found As Long
For i = 7 To 1030
number = 0
If Worksheets("Tabelle1").Cells(i, 4) <> "" Or Worksheets("Tabelle1").Cells(i, 4) = 0 Then
number = Worksheets("Tabelle1").Cells(i, 4)
For j = 2 To 1896
If Workbooks("Daten von STB.xls").Worksheets("Tabelle1").Cells(j, 3).Value = number Then
Worksheets("Tabelle1").Cells(i, 6).Value = Workbooks("Daten von STB.xls").Worksheets("Tabelle1").Cells(j, 4).Value
Worksheets("Tabelle1").Cells(i, 5).Value = Workbooks("Daten von STB.xls").Worksheets("Tabelle1").Cells(j, 10).Value
Worksheets("Tabelle1").Cells(i, 3).Value = Workbooks("Daten von STB.xls").Worksheets("Tabelle1").Cells(j, 8).Value
End If
Next j
End If
Next i
End Sub
Gruß Thomas