Funktion aufrufen mit Rückgabewert
16.03.2020 10:38:46
Patrick
ich bin neu hier im Forum und auch in der Excel VBA Programmierung. In Access habe ich allerdings schon viel in VBA gemacht.
Hier meine Frage.
Ich habe eine Funktion geschrieben, die mir die Formatierung eines bestimmten Feldes ausgeben _ soll:
Function FormatAuslesen(strRange As String, strAusgabe As String)
Dim strColInt, strBolt As Boolean, strColText, strRahmen
If strAusgabe = "ColInt" Then
FormatAuslesen = Range(strRange).Interior.ColorIndex
Exit Function
End If
If strAusgabe = "Bolt" Then
FormatAuslesen = Range(strRange).Font.Bold
Exit Function
End If
If strAusgabe = "ColText" Then
FormatAuslesen = Range(strRange).Font.ColorIndex
Exit Function
End If
If strAusgabe = "Rahmen" Then
FormatAuslesen = Range(strRange).BorderAround
Exit Function
End If
FormatAuslesen = Null
End Function
Diese Funktion möchte ich nun aus einem _Sub_ heraus ansprechen um mir das jeweilig gewünschte Ergebnis zu holen. Hierzu habe ich in einem Tabellenblatt das Zielfeld benannt ("Form_Gewerk"). Alternativ lautet die Adresse des Feldes Steuerung!B26
Innerhalb meines Subs möchte ich mir nun aus der Funktion wie folgt den Wert für den ColorIndex der Zellfüllung abholen:
strRange = "Form_Gewerk"
strWert = FormatAuslesen(strRange, "ColInt")
Dabei bekomme ich aber den Laufzeitfehler 1004. Kann mir Da jemand helfen? Was mache ich falsch?
Vielen Dank und viele Grüße
Patrick
Anzeige