= date(now)+1
Gruß
F.
ausgehend von dem in der Zelle befindlichen Datum funktioniert's so:
Sub Datum()
ActiveCell.Value = ActiveCell.Value + 1
End Sub
Gruß, J.
Sub Test()
Dim Datum As Date, einen_Tag_spaeter As Date
Datum = ("01.01.03")
einen_Tag_spaeter = Datum + 1
MsgBox (einen_Tag_spaeter)
End Sub
Gruß
Frederik
Öffne dein Excel-Dokument.
Wechsel in den VBA-Editor:
ALT + F11.Füge ein neues Modul hinzu:
Schreibe den folgenden Code:
Sub Datum()
ActiveCell.Value = ActiveCell.Value + 1
End SubSchließe den Editor und kehre zu Excel zurück.
Markiere die Zelle mit dem Datum, das du um einen Tag erhöhen möchtest.
Führe das Makro aus:
ALT + F8, wähle "Datum" und klicke auf "Ausführen".Mit dieser Methode kannst du das Datum in einer Zelle um einen Tag erhöhen.
Fehler: „Typ nicht korrekt“
Fehler: Eine Zahl wird angezeigt statt eines Datums
Fehler: Der Code funktioniert nicht
Direkte Eingabe in die Zelle:
=A1+1 (wobei A1 die Zelle mit dem Datum ist) eingeben, um einen Tag zu addieren.Verwendung von VBA zur Berechnung:
Sub Test()
Dim Datum As Date
Datum = Date ' aktuelles Datum
ActiveCell.Value = Datum + 1
End SubDiese Methoden sind hilfreich, wenn du das Datum in Excel um einen Tag erhöhen möchtest, ohne direkt mit VBA arbeiten zu müssen.
Beispiel 1: Ein festes Datum erhöhen
Sub Beispiel()
Dim EndDatum As Date
EndDatum = "01.02.2003"
ActiveCell.Value = EndDatum + 1
End SubDieses Beispiel erhöht das Datum „01.02.2003“ um einen Tag.
Beispiel 2: Mit dem aktuellen Datum arbeiten
Sub AktuellesDatum()
ActiveCell.Value = Date + 1 ' Das aktuelle Datum um einen Tag erhöhen
End SubDiese Beispiele zeigen, wie du sowohl feste Daten als auch das aktuelle Datum in Excel um einen Tag erhöhen kannst.
Verwende DateAdd für mehr Flexibilität:
Sub FlexiblesDatum()
ActiveCell.Value = DateAdd("d", 1, ActiveCell.Value)
End SubMit DateAdd kannst du auch Monate oder Jahre hinzufügen, indem du einfach den Parameter änderst.
Du kannst auch mit Schleifen arbeiten, um mehrere Zellen auf einmal zu bearbeiten.
1. Wie kann ich das aktuelle Datum in VB.net erhalten?
In VB.net kannst du das aktuelle Datum einfach mit Date.Now abrufen.
2. Kann ich auch mehrere Tage auf einmal erhöhen?
Ja, du kannst den Code anpassen, indem du einfach die Zahl änderst, die du zu deinem Datum addierst. Zum Beispiel ActiveCell.Value + 5 erhöht das Datum um fünf Tage.