Hi,
gibt es eine Möglichkeit bei Excel das heutige Datum automatisch einfügen zu lassen, aber so, dass es beim nächsten öffnen nicht geändert wird?
Brauche das mal wieder für meine Rechnungen, also wenn ich meine Rechnungsvorlage öffne, soll das heutige Datum eingefügt werden. Ich speicher ab, und falls ich die Rechnung irgendwann wieder einsehen möchte, möchte ich ja wissen, wann ich die Rechnung geschrieben habe, deshalb darf sich da das Datum nicht wieder automatisch angleichen.
Vielen Dank!
Hallo wp_crew,
ohne vba-Code geht das so:
setze den Cursor in die zelle, die du mit dem aktuellen Datum versehen möchtest.
Danm ein shortcut + .
fertig ist das heutige Datum, das sich beim nächsten Öffnen der Datei nicht wieder ändert.
Gruß Finus
ja so hatte ich es bisher, aber man will ja zeit sparen wo man kann 
weiß wer wie das über vba geht?
danke!
Hallo wp_crew,
du zeichnest einfach deine Aktionen mit einem Macro auf und rufst es danach wieder auf.
Vielleicht kannst du noch „OnOpen“ einbauen mit einer Abprüfung, ob da in K2 schon ein Datum drinsteht.
Der Code könnte so aussehen:
Sub Makro2()
'
' Makro2 Makro
' Makro am 05.11.2009 von Finus aufgezeichnet
'
Range("K2").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("K2").Copy
Range("K2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks \_
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Gruß Finus
hmm… funktioniert irgendwie nicht.
mein datum steht halt in H17, hab das auch ausgetauscht aber trotzdem geht es nicht
was mach ich falsch?
Hallo,
weiß wer wie das über vba geht?
öffne mal eine neue Excel-Datei und dort den VBA-Editor. Auf der linken Seite siehst du den Projekt-Explorer, der Dir alle Objekte in der Datei anzeigt. Einfach mal auf „Diese Arbeitsmappe“ klicken und diesen Code einfügen:
Private Sub Workbook_Open()
Dim strDate As String
Dim strZiel As String
Dim varWert As Variant
strZiel = „H17“
varWert = Range(strZiel).Value
If varWert = „“ Then
strDate = Format(Now(), „dd.mm.yyyy“)
Range(strZiel) = strDate
End If
End Sub
Dann die Excel-Tabelle speichern. Beim nächsten öffnen der Datei schreibt dieser Code in Zelle H17 das aktuelle Datum, aber nur wenn in H17 noch nix drin steht. (Achtung: Makros müssen aktiviert sein, sonst funzt das nicht.)
Wenn die Funktion Deinen Vorstellungen entspricht, kannst du sie in Dein Dokument einbauen. Vorher aber besser ne Sicherungskopie machen.
Viel Erfolg!
MfG
Stephan
Hallo,
wenn Du das Datum nicht mehr geaendert haben willst, soll alles andere auch ohne Aenderungen bleiben, dann kannst Du die Rechnung als PDF abspeichern, so bleibt sie unveraenderbar. Kannst sie dann auch elektronisch versenden. Fuer diesen Fall reicht die Funktion =jetzt() fuer das Datum.
Gruss helmut
Perfekt Stephan, genau so hab ich mir das vorgestellt!
vielen lieben dank
Hallo wp_crew,
hmm… funktioniert irgendwie nicht.
das muss funktionieren, bei mir tut’s ja auch!
mein datum steht halt in H17, hab das auch ausgetauscht aber
trotzdem geht es nicht
hast du es auch an allen 3 Stellen im Code ausgetauscht?
Der Code muss dann so aussehen:
Sub Makro2()
'
' Makro2 Makro
' Makro am 05.11.2009 von Finus aufgezeichnet
'
Range("H17").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("H17").Copy
Range("H17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks \_
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Gruß Finus
Private Sub Workbook_Open
Set DateCell = Sheets(„Tabelle1“).Range("H17)
If IsEmpty(DateCell) Then DateCell.Formula = Date
End Sub
Füllt beim Öffnen der Datei die Zelle mit dem heutigen Datum, falls sie noch leer ist.