Dateneingabe über Userform

[M.Wichmann]

Hallo, ich habe hier: Link  das Thema schon angesprochen.

Ich habe eine Datentabelle die über 2 Pivot ausgewertet werden.

Zur Dateneingabe habe ich über ein gefundenes Tuto eine Userform eingefügt.
Das funtioniert auch soweit. Aber ich habe das Problem, das wenn ich Daten über die UF einfüge das Format der Daten anders zu sein scheint.

1. Problem     wenn ich die Daten sortiere kommen erst manuell eingegebene Daten, dann die die von der UF kommen
2. Problem     es soll in eine Spalte das Datum in den Namen des Monats umgewandelt werden. Das geht aber nur bei denen die manuell waren.

Könnte sich bitte mal wer den Code der UF ansehen??

[Rabe]

Hi,

1. Problem     wenn ich die Daten sortiere kommen erst manuell eingegebene Daten, dann die die von der UF kommen
2. Problem     es soll in eine Spalte das Datum in den Namen des Monats umgewandelt werden. Das geht aber nur bei denen die manuell waren.

Könnte sich bitte mal wer den Code der UF ansehen??

Nur die manuell eingegebenen Daten sind auch wirklich Daten (Datümer, also Zahlen), die über eine TextBox sind Text, wie ja auch der Name sagt.

Mit diesem Makro-Code hier kannst Du die Ausgabe Deiner Textbox1 als wirkliches Datum abspeichern. Das dürfte beide Probleme lösen. Spiel mal auch mit den auskommentierten Teilen rum.

Private Sub Textbox1_Enter()                                                                ' Eröffnungsdatum Teil 1 
    TextBox1.Value = Format(Date, "dd/mm/yyyy")
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)                            ' Eröffnungsdatum Teil 2 
    '   If TextBox1.Value = "" Then Exit Sub                                                    ' Textbox leer? 
    '   If IsDate(TextBox1.Value) = False Then                                                  ' Ist es ein Datum? 
    '      frm_Fehler.Show                                                                       ' Aufruf Fehlermeldung 
    '      TextBox1.Value = ""                                                                  ' Löschen Inhalt Textbox 
    '      TextBox1.SetFocus                                                                    ' Wiederanspringen dieser Textbox 
    '      Cancel = True                                                                        ' Abbruchvariable setzen 
    '      Exit Sub 
    '   Else 
    TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")                                    ' Formatierung des Datums 
    TextBox2.SetFocus                                                                        ' Anspringen nächste Textbox 
    '   End If 
End Sub

[M.Wichmann]

Danke Ralf,  

wie gesagt bin VBA Noob,  kommt das jetzt in den Code der UF mit rein? Wenn ja is das egal wo? Oder an einer bestimmten Stelle?


Ich glaube ich hab vorhin ausgeschaltet das sich die Tabellen automatisch erweitern, wo kann man das wieder einschalten?? 
Bin schon am schauen in den Optionen, aber find das irgendwie ned

[Rabe]

Hi,

ja, das ist egal wo.
Im Projektexplorer Userform rechtsklicken, "Code anzeigen", im Fenster rechts dann irgendwo einfügen, z.B. ganz unten.

Wenn Du eine neue Zeile über die Userform einfügst, oder einfach in einer der Zellen der Zeile drunter etwas schreibst, immer wird die Tabelle erweitert.

[M.Wichmann]

Ok, danke werds probieren.

Und das erweitern geht nicht mehr, in keiner, auch nicht wenn ich eine ganz neu erstelle.

Ich habe aus versehen in einer Tabelle in dem kleinen Menü wenn man auf dieses fehlerdreieck klickt was gedrückt.
In den eigentlichen Excel-Optionen isses aktiviert das es sich erweitern soll.

[Rabe]

Hi,

eine Frage zu Deiner Spalte 6 (Reserve), warum schreibst Du da nicht gleich in die Tabelle rein: "=[@Datum]"?
Dann wird diese Formel fortgeführt und Du hast dort immer den Monat stehen und Du brauchst die Textbox 6 nicht.

[M.Wichmann]

Die Textbox6 war in dem Tuto bzw Code drin, ich wollt das jetzt noch nicht rausschmeißen, evtl brauch ich das ja noch.

[M.Wichmann]

Das automatische erweitern geht wieder, Gott sei Dank^^

[M.Wichmann]

Leider hat dein Code nicht zum Ziel geführt. Die Eintragung verhält sich wie vorher, nur das er jetzt schon das aktuelle datum hinschreibt.

Habe auch gerade gesehn: im Code steht TT/MM/JJJJ   in der Tabelle kommt aber TT.MM.JJJJ an

Man sieht auch, manuelle schreibt er rechtsbündig, die von der UF sind linksbündig. 
Auch lassen diese Eintragungen sich nicht durch die Formatierung ändern.

Keine Ahnung ob das was zu bedeuten hat.

[Rabe]

Hi,

ich habe Dir Deine Makros mal umgeschrieben und vereinfacht. Ich weiß nicht, ob Du die TextBox6 und die dazugehörigen Makros noch brauchst.
Schaue sie Dir mal an:

  Stückzahlenerfassung Versuch - Rabe.xlsm (Größe: 57,6 KB / Downloads: 21)