Hallo zusammen,
ich habe von Euch ein Marko geschrieben bekommen welches, nach Eingabe in Spalte H ein Datum mit ausgibt. Nun möchte ich noch eine ergänzende Angabe mit hinein bringen!
Lässt sich nach dem Datum auch die KW (Kalenderwoche) mit ausgeben! und wie würde die Programmzeile dann aussehen!
If Not ...
If Not Intersect(Target, ws.Range("H7:H1000")) Is Nothing Then
Target.Value = Target.Value & " " & Date ' nur mit Datum; soll aber auch mit KW
End If
End If
...Wunsch- Ausgabe! Text..... 18.08.08; KW34
MFG
Lemmi