Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
212to216
212to216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Textbox und Formel (Datumsberechnung)

Textbox und Formel (Datumsberechnung)
07.02.2003 11:19:26
Marco
Hallo!

Ich hoffe einer von Euch kann mir helfen.

Mein Problem: ich gebe in die Textbox "BGAusgegebenAm" eine Zeichenfolge ein. Beim Verlassen der Textbos wird die Eingabe wie folgt formatiert:

Private Sub BGAusgegebenAm_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(BGAusgegebenAm) Then
If Not IsNumeric(BGAusgegebenAm) Then
MsgBox "Kein Datum"
Cancel = True
Else
If InStr(BGAusgegebenAm, ".") = 0 Then
If Len(BGAusgegebenAm.Value) = 6 Then BGAusgegebenAm.Value = Left(BGAusgegebenAm.Value, 4) & "20" & Right(BGAusgegebenAm.Value, 2)
BGAusgegebenAm.Value = Left(BGAusgegebenAm.Value, 2) & "." & Mid(BGAusgegebenAm.Value, 3, 2) & "." & Right(BGAusgegebenAm.Value, 4)
If Not IsDate(BGAusgegebenAm) Then MsgBox "Kein Datum"
Cancel = True
End If
End If
End If
End Sub

Jetzt möchte ich, dass beim Verlassen der Textbox zusätzlich eine Frist berechnet wird, sprich "BGAusgegebenAm" + 3 Monate - 1 Tag und das Ergebnis in der Textbox "BGGueltigBis".

Wie ist das möglich? Ich verzweifel noch...

Danke im Voraus

Grüße

Marco


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Textbox und Formel (Datumsberechnung)
08.02.2003 17:41:21
andre

hallo marco,
in der excel-vba-hilfe findest du das:
Dim Datum1 As Date ' Variablen deklarieren.
Dim IntervallTyp As String
Dim Zahl As Integer
Dim Msg
IntervallTyp = "m" ' "m" gibt Monate als Intervall an.
Datum1 = InputBox("Geben Sie ein Datum ein")
Zahl = InputBox("Geben Sie ein, wieviele Monate hinzugefügt werden sollen")
Msg = "Neues Datum: " & DateAdd(IntervallTyp, Zahl, Datum1)
MsgBox Msg

für dich wäre es etwa so:
BGGueltigBis=Dateadd("m",3,BGAusgegebenAm)-1
gruss andre

Re: Textbox und Formel (Datumsberechnung)
10.02.2003 08:58:30
Marco

Hey Andre,

super hat Einwandfrei geklappt. Klasse.

Vielen lieben Dank!!!

Grüße

Marco

Anzeige

323 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige