Function Spalte(Bezug As String) As String
Dim Spaltenzeichen As String
Dim Bereich, Zelle As Range
Dim SpaltenNummer As Integer
Set Bereich = Range("A1:AAA6")
For Each Zelle In Bereich
If Zelle.Text Like Bezug Then
SpaltenNummer = Zelle.Column
End If
Next
<em><strong>Spaltenzeichen = Columns(SpaltenNummer).Address(0, 0) <--- Laufzeitfehler 1004 Anwendungs/Objektdefinierter Fehler , diese Spalte ist markiert. Spaltenzeichen = "" , wenn ich mit dem Cursor drüber gehe</strong></em>
Spaltenzeichen = Left(Spaltenzeichen, InStr(Spaltenzeichen, ":") - 1)
End Function