eigene VBA-Funktion für Formatübernahme?
Florian
habe eine Frage bzgl. einer Funtion, die ich mir bauen wollte: aus einem Template-Sheet heraus soll für beliebige (vordefinierte) Werte ein Zellformat angegeben werden (Werte stehen dabei in Spalte 1 des Templates). Bsp: Im Template steht in Spalte 1 der Wert "HERR MEIER", mit Font-Farbindex=3 und Kursiv; jetzt soll, wenn aus einer anderen Makro die Funktion entsprechend aufgerufen wird, der Wert "HERR MEIER" in jedem Datensatz in dem Format erfolgen. Geht das irgendwie? Mein Problem ist, dass die Funktion TakeFormat hier wie eine Variable eigentlich nur Werte, aber keine Formate aufnehmen kann. Könnt Ihr mir da helfen?
Danke!
Gruss Florian
Function TakeFormat(ByVal WorkAreaSheet As String, ByVal strToBeFormatted As String)
For Each ws In ThisWorkbook.Worksheets
If ws.Name = WorkAreaSheet Then
Set FormatDelivererSheet = ws
End If
Next ws
With FormatDeliverer
LastRowFormatDelivererSheet = .Cells(.Rows.Count, 1).End(xlUp).Row - Not IsEmpty(. _
Cells(.Rows.Count, 1).End(xlUp)) - 1
For iFormatDeliverer = 1 To LastRowFormatDeliverer
If .Cells(iFormatDeliverer, 1) = strToBeFormatted Then
TakeFormat.forma = .Cells(FormatDeliverer, 1).Format
End If
Next iFormatDeliverer
End With
Set FormatDelivererSheet = Nothing
End Function
Anzeige