Hallo liebe VBA Freunde,
ich bin es zur zweiten. Ich habe mal wieder ein kleines Problem. Ich habe von einem Makro in ein anderes eine Variable übergeben.
Ausschnitt aus meinem Code:
Sub Test1 ()
Dim Suchergebnis As Range
Dim SuchWert As String
SuchWert = Range("D7")
With Worksheets("Datenbank").Range("U1:Z100")
Set Suchergebnis = .Find(SuchWert)
If Not Suchergebnis Is Nothing Then
Call Test2(Suchergebnis)
Else
Msgbox ("hier gibts nichts!")
End If
End With
End Sub
Sub Test 2 (Suchergebnis As Range)
Dim start As Long
Dim firstaddress
start = 6
firstaddress = Suchergebnis.Address
Do
Worksheets("Datenbank").Cells(Suchergebnis.Row, 1).Copy Worksheets("Tabelle7").Cells(6, start)
start = start + 6
Set Suchergebnis = .FindNext(Suchergebnis) 'UND HIER das mag er nicht machen!
Loop While Not Suchergebnis Is Nothing And Suchergebnis.Address <> firstaddress
End Sub
Weiß jemand von euch wieso er das .FindNext nicht machen möchte? und wie ich am besten den Code zum Laufen bringe.
Vielen Dank im Voraus
VlG
Lucas
|