Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeit hinzurechnen

Forumthread: Zeit hinzurechnen

Zeit hinzurechnen
12.12.2006 12:29:10
Volker
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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeit hinzurechnen
12.12.2006 12:47:43
Matthias
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
Anzeige
AW: Zeit hinzurechnen
12.12.2006 12:49:13
Peter
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.
Anzeige
AW: Zeit hinzurechnen
12.12.2006 13:35:35
Volker
Da werden Sie geholfen :)))
Das Grundproblem ist gelöst!
Habt vielen Dank
Gruß Volker
AW: Zeit hinzurechnen
12.12.2006 13:35:50
Volker
Da werden Sie geholfen :)))
Das Grundproblem ist gelöst!
Habt vielen Dank
Gruß Volker
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige