Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datum in TExtFeld mit Spinbutton verändern !
zurück: Einzelnes Tabellenblatt aber nur Seite 1 speichern weiter: Letzte Hoffnung Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
GagaM13
aka Marco - Excel- & VBA-Fan !


Verfasst am:
16. Okt 2007, 22:21
Rufname: Marco
Wohnort: Luxemburg

Datum in TExtFeld mit Spinbutton verändern ! - Datum in TExtFeld mit Spinbutton verändern !

Nach oben
       Version: Office XP (2002)

Hallo Leute,


Ich hab ein Problem mit ner UserForm in der ich ein Textfeld mit einem Spinbutton verändern möchte !

Beim laden der Uderform wird aus einer Zelle im Arbeitsblatt das aktuelle Datum ausgelesen.

Code:

vbDatum = Format(Range("C1").Value, 0)
TextBox3.Value = Format(vbDatum, "dd-mm-yyyy")



Anschlissend beim Spinbutton1_change :

Code:

Private Sub SpinButton1_Change()
vbDatum = Format(TextBox3.Value, 0)
vbDatumNew = vbDatum + SpinButton1.Value
TextBox3.Value = Format(vbDatumNew, "dd-mm-yyyy")
End Sub


Also ich hab das selber so gebastelt, ist meine erste UserForm mit so einer Funktion, Spinbuttons sind mir bis jetzt fremd geblieben !

(Merkt man das ? Laughing )

Meine selbstgebastelte Makro funktionniert in dem Sinne, dass das datum beim Laden erscheint, und sich auch verändern lässt !
Allerdings hab ich folgende Probleme :
ändern des Datums nur nach oben möglich ...!
und nach zwei klicks werden immer 2-3 gar 4 tage hinzugefügt !!!???!!!

Meine SpinButton einstellungen :

Delay : 100
Max 365
Min 0
SmallChange 1
gibt es noch ne einstellung die ich zu beachten habe ?


Wo liegt das Problem ?

Ich habe bei Delay ettliche Einstellungen versucht, aber keine führt zum gewünschten Ziel !


Vielen Dank für Feedback !!!

MFG

_________________
der pessimist sieht das glas halb leer,
der optimist sieht das glas halb voll,
der macro-fetischist sieht das glas doppelt so gross wie es sein müsste !

___________________________________
MFG Gaga.M13 aka Marco
GagaM13
aka Marco - Excel- & VBA-Fan !


Verfasst am:
16. Okt 2007, 22:42
Rufname: Marco
Wohnort: Luxemburg


AW: Datum in TExtFeld mit Spinbutton verändern ! - AW: Datum in TExtFeld mit Spinbutton verändern !

Nach oben
       Version: Office XP (2002)

Also ich habe jetzt einen Fehler gefunden !

Code:
Private Sub SpinButton1_Change()
'vbDatum = Format(TextBox3.Value, 0)
vbDatum = Format(Range("C1").Value, 0)
vbDatumNew = vbDatum + SpinButton1.Value

TextBox3.Value = Format(vbDatumNew, "dd-mm-yyyy")
End Sub


Ich nehme das datum immer aus dem TabellenFeld, nicht aus der TextBox ...

Er rechnet ja immer mit einem Höheren Spinnbuttonwert (+1;+2;+3;+4....)

Very Happy


Ok, hab die Eigenschaft mal min = -365 gesetzt !


wie blöd !

MFG, schön abend noch !

Razz

_________________
der pessimist sieht das glas halb leer,
der optimist sieht das glas halb voll,
der macro-fetischist sieht das glas doppelt so gross wie es sein müsste !

___________________________________
MFG Gaga.M13 aka Marco


Zuletzt bearbeitet von GagaM13 am 16. Okt 2007, 22:43, insgesamt einmal bearbeitet
r.mueller
Gast


Verfasst am:
16. Okt 2007, 22:43
Rufname:

AW: Datum in TExtFeld mit Spinbutton verändern ! - AW: Datum in TExtFeld mit Spinbutton verändern !

Nach oben
       Version: Office XP (2002)

Hallo

SpinButton einstellungen:

Delay 150
Max 1
Min -1
SmallChange 1

Code:
Private Sub SpinButton1_Change()
 TextBox3.Text = Format(CDate(TextBox3.Text) + SpinButton1.Value, "dd/mm/yyyy")
 SpinButton1.Value = 0
End Sub


Gruß
r.mueller
GagaM13
aka Marco - Excel- & VBA-Fan !


Verfasst am:
16. Okt 2007, 22:44
Rufname: Marco
Wohnort: Luxemburg

AW: Datum in TExtFeld mit Spinbutton verändern ! - AW: Datum in TExtFeld mit Spinbutton verändern !

Nach oben
       Version: Office XP (2002)

hmmm is ja noch effektiver !!!! vielen Dank !!!
_________________
der pessimist sieht das glas halb leer,
der optimist sieht das glas halb voll,
der macro-fetischist sieht das glas doppelt so gross wie es sein müsste !

___________________________________
MFG Gaga.M13 aka Marco
MAX-XL
Gast


Verfasst am:
16. Okt 2007, 23:03
Rufname:


AW: Datum in TExtFeld mit Spinbutton verändern ! - AW: Datum in TExtFeld mit Spinbutton verändern !

Nach oben
       Version: Office XP (2002)

hmja, mehrere Wege führen nach Rom,

ich persönlich bevorzuge immer noch die getrennten Events (ohne irgendwelche Voreinstellungen):

Code:
Private Sub SpinButton1_SpinDown()
 Me.TextBox1.Value = Format(DateAdd("d", -1, Me.TextBox1.Value), "dd.mm.yyyy")
End Sub
Private Sub SpinButton1_SpinUp()
 Me.TextBox1.Value = Format(DateAdd("d", 1, Me.TextBox1.Value), "dd.mm.yyyy")
End Sub


Gruß,

Max.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Datum - Datum 2 bettyfcu 1049 13. Mai 2005, 10:32
fridgenep Datum - Datum
Keine neuen Beiträge Excel Formeln: restzeit bis zu einem bestimmten Datum 2 Jericho2000 1749 07. Apr 2005, 11:50
Jericho2000 restzeit bis zu einem bestimmten Datum
Keine neuen Beiträge Excel Formeln: Bei einer Wenn-Funktion mit Datum arbeiten!? 5 Neo[der Auserwählte] 2150 31. März 2005, 13:51
fl618 Bei einer Wenn-Funktion mit Datum arbeiten!?
Keine neuen Beiträge Excel Formeln: Datum in Excel Tabelle in Tagen darstellen 2 Unregistered 5101 22. März 2005, 20:49
Gast Datum in Excel Tabelle in Tagen darstellen
Keine neuen Beiträge Excel Formeln: Wenn Datum fast erreicht, Feld Rot 9 JörgK. 2957 21. März 2005, 16:29
JörgK. Wenn Datum fast erreicht, Feld Rot
Keine neuen Beiträge Excel Formeln: Datum in Zelle aktualisieren 2 Gast 1436 07. März 2005, 00:43
ae Datum in Zelle aktualisieren
Keine neuen Beiträge Excel Formeln: Funktion in Textfeld? 4 Andre1977 2347 16. Feb 2005, 08:47
Kuwe Funktion in Textfeld?
Keine neuen Beiträge Excel Formeln: Datum aus mehreren Zellen zusammensetzen. 9 gast2005 5086 25. Dez 2004, 22:33
Kuwe Datum aus mehreren Zellen zusammensetzen.
Keine neuen Beiträge Excel Formeln: Vertragssumme ausr. bez. auf Datum heute und Datum Zukunft 7 Tristan68 1841 25. Nov 2004, 19:48
Arnim Vertragssumme ausr. bez. auf Datum heute und Datum Zukunft
Keine neuen Beiträge Excel Formeln: Datum automatisch berechnen 8 fisler0815 3392 21. Okt 2004, 14:41
icke Datum automatisch berechnen
Keine neuen Beiträge Excel Formeln: Datum 1 Peter3 2568 16. Okt 2004, 21:51
ae Datum
Keine neuen Beiträge Excel Formeln: Datum als Wochentag automatisch darstellen? 6 Gast 1432 05. Okt 2004, 17:11
gast Datum als Wochentag automatisch darstellen?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Forum