Jahreszahlen ändern



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Jahreszahlen ändern
von: PeterW
Geschrieben am: 24.06.2002 - 23:57:37

Hallo Experten,

ausgehend vom Forumsbeitrag www.herber.de/forum/messages/130753.html hab ich mir die Übungsaufgabe gestellt, nur die Jahreszahl eines vorgegebenen Datums in Zelle A1 per VBA um 1 zu erhöhen.

Alles was ich schaffe ist:


Sub NaechstesJahr()
Cells(1, 1) = CDate(Day(Cells(1, 1)) & "." & Month(Cells(1, 1)) & "." & Year(Cells(1, 1)) + 1)
End Sub

Geht das auch irgendwie einfacher?

Danke
Peter

nach oben   nach unten

Re: Jahreszahlen ändern
von: Andreas
Geschrieben am: 25.06.2002 - 00:26:13

Hallo Peter,

grossartig anders wohl nicht. Ich würds wohl so machen:

Sub EinJahrDrauf()
Dim As Date
With Range("A1")
    d = CDate(.Value)
    .Value = DateSerial(Year(d) + 1, Month(d), Day(d))
End With
End Sub

Viel Spaß,
Andreas
nach oben   nach unten

Re: Jahreszahlen ändern
von: PeterW
Geschrieben am: 25.06.2002 - 00:49:04

Hallo Andreas,

danke für Deine Anregung. Werde mal weiter üben, wie das in der von Dir angeregten Weise in eine Schleife eingebunden werden kann.

Gruß
Peter


nach oben   nach unten

Re: Jahreszahlen ändern
von: sam
Geschrieben am: 25.06.2002 - 08:04:39

Hi Peter,

bisserl einfacher gehts mit der DateAdd-Funktion:


Sub NächstesJahr()
  Range("A1") = DateAdd("yyyy", 1, Range("A1"))
End Sub

Viel Spaß weiterhin,
Sam

nach oben   nach unten

Danke Sam :-) o.T.
von: PeterW
Geschrieben am: 25.06.2002 - 11:47:34



 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Sverweis, + Formatierung"