Zwei Range.find(next) hintereinander
15.10.2020 13:45:53
V8Cowboy
ich habe folgendes Problem mit meinem Code. Per Range.find/findnext wird in einer Liste ein "Ausfüller" gesucht, der mehrfach vorkommen kann.
Set Rng = KSTSTAMM.Columns(1).Find(what:=Ausf, LookIn:=xlValues, lookat:=xlWhole)
If Not Rng Is Nothing Then
firstaddress = Rng.Address
-->MACH WAS DAMIT
Do
Set Rng = KSTSTAMM.Columns(1).FindNext(Rng)
If Not Rng Is Nothing Then
If Rng.Address = firstaddress Then
Exit Do
Else
-->MACH WAS DAMIT
End If
End If
Loop
Else
End If
Das funktioniert soweit wie gewünscht, es werden mir für jeden Ausfüller nacheinander die Kostenstellen ausgegeben.
Füge ich jetzt aber statt dem Teil "MACH WAS DAMIT" ein weiteres FIND/FINDNEXT mit RNG2 ein, weil ich dann noch für jede gerade selektierte KST mehrere mögliche Werte aus einer anderen Liste ausgeben möchte, dann bekomme ich sobald der Code zurück bei RNG.findnext ist eine Fehlermeldung (ungültiger Prozeduraufruf).
Hat jemand eine Vorstellung woran das liegen könnte? Zumal der Code ja ohne dieses MACH WAS DAMIT tadellos funktioniert.
Vielen Dank im Voraus.
Gruß, Kristof