florian86
Goto Top

VBA 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

Content-Key: 329351

Url: https://administrator.de/contentid/329351

Ausgedruckt am: 29.03.2024 um 06:03 Uhr

Mitglied: Kraemer
Kraemer 14.02.2017 um 13:35:05 Uhr
Goto Top
Moin,

ohne die Tabelle ist das hier schlicht Raterei.

Gruß Krämer
Mitglied: Florian86
Florian86 14.02.2017 aktualisiert um 13:59:34 Uhr
Goto Top
anbei ein Screenshot

Die Formel steht in der Zelle für Code
screenshot_2
Mitglied: Kraemer
Lösung Kraemer 14.02.2017 um 14:18:00 Uhr
Goto Top
Range("f10").FormulaLocal = "=WENN(ISTLEER(A10);"""";""40""+$J$6&TEXT(KALENDERWOCHE(($D$6);21);""00"")&WOCHENTAG($D$6;2))"