Beim Ausführen des untenstehenden Codes wird spBuchstabe (dritte Zeile) markiert und ein Kompilierungsfehler gemeldet : "Variable oder Prozedur anstelle eines Moduls erwartet".
Der Code ist hinter einem Worksheet und die Funktion "spBuchstabe" ist in einem Modul abgelegt.
Mir ist nicht klar, was da nicht funktioniert. Kann mir jemand helfen?
Danke, Peter
Sub Worksheet_Deactivate()
'Anfang und Ende eines bestehenden Bereiches anpassen
Dim strSpa As String
strSpa = spBuchstabe(Range("k_Daten").Row)
Set Bereich = Worksheets(Me.Name).Range(strSpa & lngAnf, strSpa & lngEnd)
ActiveWorkbook.Names.Add _
Name:="k_Daten", _
RefersTo:=Bereich, Visible:=True
End Sub
Public Function spBuchstabe(Spalte As Long) As String
Dim rg As String
rg = Cells(1, Spalte).Address(True, False)
spBuchstabe = Left(rg, InStr(1, rg, "$") - 1)
End Function