14.02.2017
1190
3
0VBA Textformatierung Kalenderwoche
Hallo,
ich habe folgende Formel im Excel...
=WENN(A10="";"";"40"+$G$6&TEXT(KALENDERWOCHE(($C$6);21);"00")&WOCHENTAG($C$6;2))
Beispielergebnis: 41071
diese möchte ich mit VBA in die Zelle schreiben. Das funktioniert auch soweit, bis auf
die Textformatierung für Kalenderwoche, hier bekomme ich nur eine 0 zurück.
Range("f10").FormulaLocal = "=WENN(A10=" & strA & ";" & strA & ";" & "40" & "+$j$6&TEXT(KALENDERWOCHE(($D$6);21);" & "00" & ")&WOCHENTAG($D$6;2))"
Beispielergebnis lautet dann: 4171
MfG
Florian86
ich habe folgende Formel im Excel...
=WENN(A10="";"";"40"+$G$6&TEXT(KALENDERWOCHE(($C$6);21);"00")&WOCHENTAG($C$6;2))
Beispielergebnis: 41071
diese möchte ich mit VBA in die Zelle schreiben. Das funktioniert auch soweit, bis auf
die Textformatierung für Kalenderwoche, hier bekomme ich nur eine 0 zurück.
Range("f10").FormulaLocal = "=WENN(A10=" & strA & ";" & strA & ";" & "40" & "+$j$6&TEXT(KALENDERWOCHE(($D$6);21);" & "00" & ")&WOCHENTAG($D$6;2))"
Beispielergebnis lautet dann: 4171
MfG
Florian86
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 329351
Url: https://administrator.de/forum/vba-textformatierung-kalenderwoche-329351.html
Ausgedruckt am: 26.07.2025 um 13:07 Uhr
3 Kommentare
Neuester Kommentar
Moin,
ohne die Tabelle ist das hier schlicht Raterei.
Gruß Krämer
ohne die Tabelle ist das hier schlicht Raterei.
Gruß Krämer
anbei ein Screenshot
Die Formel steht in der Zelle für Code
Die Formel steht in der Zelle für Code
Range("f10").FormulaLocal = "=WENN(ISTLEER(A10);"""";""40""+$J$6&TEXT(KALENDERWOCHE(($D$6);21);""00"")&WOCHENTAG($D$6;2))" 
