ich habe in einer Zeile in einer Tabelle mehrerer "x" stehen. Nun möchte ich die Adresse der _ Zelle mit dem 1., 2., oder 3. (...) "x" angezeigt bekommen. Dazu habe ich eine
Function mit find und findnext geschrieben.
Diese Funktion klappt, wenn sie aus der Zelle in der Tabelle heraus aufgerufen wird, nur für _
die 1. Position.
rufe ich sie aus einer Prozedur heraus auf, klappt es auch für die anderen Positionen.
Warum? Was mache ich falsch?
Hier die Datei:
https://www.herber.de/bbs/user/83184.xlsm
_
Hier die Funktion:
Function KreuzSuchen(Position)
With Worksheets(1).Range(Cells(5, 1), Cells(5, 9))
Set firstcell = .Find("x")
Set secondcell = .FindNext(firstcell)
End With
If Position = 1 Then Ausgabe = firstcell.Address
If Position = 2 Then Ausgabe = secondcell.Address
KreuzSuchen = Ausgabe
End Function
Hier die Prozedur:
Sub Kreuzsuchen_testen()
Kreuz1 = KreuzSuchen(1)
MsgBox Kreuz1
Kreuz2 = KreuzSuchen(2)
MsgBox Kreuz2
End Sub
Rolf