Urlaubsplaner

[schauan]

Hallöchen,

das Makro schreibt Daten nach X46 und AM46.
In S46 und AH46 wird der Tag aus den beiden Zellen übernommen und per Formatierung als Tageskürzel ausgegeben.
In M36 hab ich noch nichts eingetragen. Du könntest im Code Modul1 bei den anderen wks diese Zeile hinzufügen:
wks.Range("M36") = Selection.Cells(1, 1).Value

Bei mir sieht das so aus:

Arbeitsblatt mit dem Namen 'Formular'

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

AA

AB

AC

AD

AE

AF

AG

AH

AI

AJ

AK

AL

AM

46

Von:

Mo,

09.01.2017

bis:

Fr,

13.01.2017

Zelle	Format	Wert
S46	TTT","	09.01.2017
T46	TTT","
U46	TTT","
V46	TTT","
W46	TTT","
X46	TT.MM.JJJJ	09.01.2017
AH46	TTT","	13.01.2017
AI46	TTT","
AJ46	TTT","
AK46	TTT","
AL46	TTT","
AM46	TT.MM.JJJJ	13.01.2017

Zelle	Formel
S46	=WENN(X46="";"";X46)
AH46	=WENN(AM46="";"";AM46)

Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg

[Jürschen175]

Hey, schau dir bitte das nochmal an.
Ich bekomme das Datum nicht weg in AH 46. Da sollte der Tag stehen. z.b. Mo

Danke für alles

[schauan]

Hallöchen,

gehe mal in die Zelle bzw. oben in die Bearbeitungsleiste, wenn Du drin bist, und drücke ENTER. Irgendwas war da verkorkst und Excel dachte wohl, das ist ein Text..

[Jürschen175]

hab ich gemacht aber geht auch nicht.
Hab auch das Format neu eingegeben und die Formel neu gesetzt immer wieder kommt das Datum.

Kann man da in unsere VBA Code was eingeben damit es automatisch kommt?

[schauan]

Hallöchen,

eventuell bei den wks so. Praktisch immer vor der Wertübernahme das Format nochmal setzen.

wks.Range("X46").NumberFormat = "dd/mm/yyyy;@"
wks.Range("X46").Value = Cells(5, Selection.Column).Value
wks.Range("AM46").NumberFormat = "dd/mm/yyyy;@"
wks.Range("AM46").Value = Cells(5, Selection.Column + Selection.Columns.Count - 1).Value

[Jürschen175]

Hallo

es will einfach nicht wegen gehen.
Hab jetzt mal eine neue Zelle eingefügt. Und danach dein Makro gemacht.
Vielleicht baue ich morgen das Formular nochmal neu. Vielleicht  geht es dann

[schauan]

Hallöchen,

so, noch'n Versuch ...

[Jürschen175]

Hi,
ich habe jetzt auch die Formel geändert( statt WENN eine Text(TT) Formel)
Jetzt geht alles wieder.

Nochmal Danke für alles