Ich suche in verschiedenen Sheets in Zeile 12 den String Bemerkungen. Ich kann in untenstehender Funktion allerdings nicht das Worksheet übergeben, in welcher gesucht wird. Im Moment wird im jeweils aktiven Worksheet gesucht. Wie kann ich der Funktion ein bestimmtes Worksheet, in welchem in Zeile 12 gesucht werden soll, übergeben?
Gruss, Peter
Option Explicit
'string in Zeile finden
Function StringFindenSpalte(wks As Worksheet, rngSuche As Range, strString As String) As Long
Dim c As Range
Debug.Print wks.Name
Debug.Print rngSuche.Address
Debug.Print rngSuche.Parent.Name
With rngSuche
End With
With rngSuche
Set c = .Find(What:=strString)
End With
StringFindenSpalte = c.Column
End Function
Sub test()
Debug.Print StringFindenSpalte(Worksheets("G"), Range("12:12"), "Bemerkungen")
End Sub