AW: variablen Bereich auslesen
13.10.2007 11:47:17
Gerd
Hallo Ralf,
guck mal, ob Du damit hinkommst.
Sub test()
Dim lngSuchbegriffZeile As Long, lngGefundenZeile As Long
Dim wsTrain As Worksheet, wsAuftrag As Worksheet, rngLfdeNummern
Set wsTrain = Worksheets("TRAIN_KOMALOG")
Set wsAuftrag = Worksheets("Aufträge")
With wsAuftrag
Set rngLfdeNummern = .Range(wsAuftrag.Cells(2, 1), .Cells(Rows.Count, 2).End(xlUp))
For lngSuchbegriffZeile = 2 To wsTrain.Cells(Rows.Count, 1).End(xlUp).Row
If Not IsEmpty(wsTrain.Cells(lngSuchbegriffZeile, 2).Value) Then
lngGefundenZeile = 0
On Error Resume Next
lngGefundenZeile = rngLfdeNummern. _
Find(CLng(wsTrain.Cells(lngSuchbegriffZeile, 2).Value), _
lookat:=xlWhole, LookIn:=xlValues).Row
On Error GoTo 0
If lngGefundenZeile > 0 Then .Cells(lngGefundenZeile, 6).Value = "e"
End If
Next
End With
End Sub
Gruß Gerd