AW: sverweis vs vba
18.03.2004 10:46:03
Hans W. Herber
Hallo Mehmet,
der nachfolgende Code liefert zumindest mal die erwarteten Ergebnisse:
Sub WerteFindenEintragen()
Dim iRow As Integer, iRowL As Integer, iAct As Integer, iRowT As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
iRowT = 1
With Worksheets(2)
.Columns(1).ClearContents
.Range("A1") = "CPT"
End With
For iRow = 1 To iRowL
If IsNumeric(Left(Cells(iRow, 1).Value, 4)) Then
For iAct = iRow + 1 To iRow + 7
If Cells(iAct, 5).Value = "CPT" Then
If Not IsNumeric(Cells(iAct, 2).Text) Then
iRowT = iRowT + 1
Worksheets(2).Cells(iRowT, 1).Value = Cells(iAct, 2).Value
End If
ElseIf Cells(iAct, 6).Value = "CPT" Then
If Not IsNumeric(Cells(iAct, 3).Text) Then
iRowT = iRowT + 1
Worksheets(2).Cells(iRowT, 1).Value = Cells(iAct, 3).Value
End If
End If
Next iAct
End If
Next iRow
End Sub
Gruss hans