Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1288to1292
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

dateadd englischer pc

dateadd englischer pc
13.12.2012 04:08:06
robert_1
Hallo,
Ich hab 2 Textboxen in beiden steht das heutige Datum im Format mmm.dd,yyyy
Nun moechte ich, dass wenn in der ersten Textbox das Datum geaendert wird in der 2. ein Tag abgezogen und 2 Jahre drauf gerechnet werden. Hier der Code:
If IsDate(UserForm1.TextBox7) = True Then
UserForm1.TextBox8 = Format(DateAdd("YYYY", 2, DateAdd("d", -1, CDate(UserForm1.TextBox7))), "mmm.dd,yyyy")
End If
Funktioniert auch problemlos auf meinem Pc (deutsch), aber auf denen mit englsichem Datumssystem nicht. Ich will/darf aber die Datumseinstellungen nicht aendern.
Wie muss ich den Code aendern damits klappt?

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: dateadd englischer pc
13.12.2012 07:37:17
Tino
Hallo,
verwende ein anderes Format oder schreibe ein anderes Format in die
Tag- Eigenschaft der Textbox und verwende diese zur Berechnung.
Beispiel:
Userform1.TextBox7 = Format(Date, "mmm.dd,yyyy")'für Anzeige
Userform1.TextBox7.Tag = Date 'für Berechnung
Dim NewData As Date
If IsDate(UserForm1.TextBox7.tag) Then
NewData = CDate(TextBox7.Tag)
NewData = DateSerial(Year(NewData) + 2, Month(NewData), Day(NewData) - 1)
UserForm1.TextBox8 = Format(NewData, "mmm.dd,yyyy")'für Anzeige
UserForm1.TextBox8.Tag = NewDate 'für Berechnung
End If
Gruß Tino

Anzeige
AW: dateadd englischer pc
13.12.2012 09:06:42
robert_1
Danke schonmal,
wir komme nder Sache damit näher, aber jetzt erfolgt die Änderung in der 2. Textbox nur einmalig, also bei der ersten Änderung, bei jeder weiteren Änderung in der 1. Textbox passiert nichts mehr.
Komm leider nicht drauf, wie man es beheben könnte.

lade ein Beispiel hoch
13.12.2012 09:09:40
Tino
Hallo,
kenne Deine Form nicht, lade mal eine Beispieldatei hoch.
Gruß Tino

AW: lade ein Beispiel hoch
13.12.2012 09:23:14
robert_1
UserForm1.TextBox8.text = format(date, "mmm.dd,yyyy")
UserForm1.TextBox7.Tag = Date
Dim NewData As Date
If IsDate(UserForm1.TextBox7.Tag) And IsDate(UserForm1.TextBox7.Text) Then
NewData = CDate(TextBox7.Text)
NewData = DateSerial(Year(NewData) + 2, Month(NewData), Day(NewData) - 1)
UserForm1.TextBox8 = Format(NewData, "mmm.dd,yyyy") 'für Anzeige
UserForm1.TextBox8.Tag = NewDate 'für Berechnung
UserForm1.TextBox7.Tag = Date
End If
Also hiermit funktionierts jetzt, allerdings nur wenn zwischen "mmm." und "dd" ein Leerzeichen ist.
Wenn nicht, dann funktionierts nicht.

Anzeige
das ist aber nicht alles...
13.12.2012 09:27:50
Tino
Hallo,
da fehlen die entsprechenden Events der Textboxen.
Schaue später noch mal vorbei, muss jetzt weg.
Gruß Tino

AW: so müsste es gehen...
13.12.2012 10:39:45
robert_1
Jup, klappt. Vielen, vielen Dank!!!
Jetzt muss ic hnur noch nachvollziehen, warum es jetzt klappt :)
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige