Hallo, ich stehe vor folgendem Problem, dass ich eine UDF habe, welche horizontal die Monatsnamen ausgibt.
Function Monate() As Variant Monate = Array("Jänner", "Februar", "März", "April", "Mai", "Juni", _ "July", "August", "September", "Oktober", "November", "Dezember") End Function
Was aber muss ich ändern, damit die Monate horizontal ausgegeben werden?
Ich möchte mich entschuldigen, da ich mich überhaupt nicht auskenne und diese UDF so im www gefunden habe.
Es hat sich für mich aber herausgestellt, dass die Monatsspalten auch als Zeile wunderbar in meinem täglichen Arbeitsfeld zu verwenden sind, daher die Anfrage!
Danke schon jetzt
Grüße
Lukas
ich meinte natürlich,
Was aber muss ich ändern, damit die Monate horizontal vertikal ausgegeben werden?
Hallo,
ich würde es so lösen dann kannst Du beides mit der Funktion machen
Parameter 0 oder leer oder FALSE horizontal
1 oder True vertikal
Function Monate(Optional Transpose As Boolean = False) As Variant Dim meineMonate meineMonate = Array("Jänner", "Februar", "März", "April", "Mai", "Juni", _ "July", "August", "September", "Oktober", "November", "Dezember") If Transpose = False Then Monate = meineMonate Else Monate = Application.WorksheetFunction.Transpose(meineMonate) End If End Function
wenn Du leer als vertikal willst einfach As Boolean = True verwenden
58.4k Fragen
249k Antworten
7k Nutzer