Herbers Excel-Forum - das Archiv

Zeit hinzurechnen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Zeit hinzurechnen
von: Volker

Geschrieben am: 12.12.2006 12:29:10
Hallo zusammen,
ich möchte per Userform Commandbutton einer Zelle in welcher ein Datum steht zwei Jahre hinzurechnen.
Der Ablauf sollte sein: Zelle aktivieren, Button betätigen, in der Zelle erscheint das neue Datum.
Die ist mein Gedankengang ob das so möglich ist keine Ahnung.
Danke Gruß Volker
Bild

Betrifft: AW: Zeit hinzurechnen
von: Matthias G

Geschrieben am: 12.12.2006 12:47:43
Hallo Volker,
z.B. so:
Private Sub CommandButton1_Click()
With ActiveCell
If IsDate(.Value) Then .Value = DateSerial(Year(.Value) + 2, Month(.Value), Day(.Value))
End With
End Sub

Das Userform muss mit Userform.Show vbModeless geöffnet werden, sonst kannst du die Aktive Zelle nicht mehr ändern.
Gruß Matthias
Bild

Betrifft: AW: Zeit hinzurechnen
von: Peter Feustel

Geschrieben am: 12.12.2006 12:49:13
Hallo Volker,
in das Klick-Ereignis des CommandButtons: Das Datum steht in Tabelle1 in B2
Private Sub CommandButton1_Click()
Worksheets("Tabelle1").Range("B2").Value = _
DateSerial(Year(Range("B2").Value) + 2, Month(Range("B2").Value), _
Day(Range("B2").Value))
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Bild

Betrifft: AW: Zeit hinzurechnen
von: Volker
Geschrieben am: 12.12.2006 13:35:35
Da werden Sie geholfen :)))
Das Grundproblem ist gelöst!
Habt vielen Dank
Gruß Volker
Bild

Betrifft: AW: Zeit hinzurechnen
von: Volker
Geschrieben am: 12.12.2006 13:35:50
Da werden Sie geholfen :)))
Das Grundproblem ist gelöst!
Habt vielen Dank
Gruß Volker
 Bild