Clever-Excel-Forum - UserForm in Excel-Datei

Seiten: 1 2 3 4

Hallo,

wenn Du Spalte 1 (Gruppe) nicht als Datum formatieren würdest, liefe es wahrscheinlich.

Gruß Uwe

(23.12.2017, 10:03)Kuwer schrieb: [ -> ]Hallo,

wenn Du Spalte 1 (Gruppe) nicht als Datum formatieren würdest, liefe es wahrscheinlich.

Gruß Uwe

Hallo,
Wenn ich auf Gruppe gehe wo unter Eigenschaften finde ich die Formatierung, um die Datumsformatierung zu ändern?

(23.12.2017, 11:43)Maximus schrieb: [ -> ]Hallo,
Wenn ich auf Gruppe gehe wo unter Eigenschaften finde ich die Formatierung, um die Datumsformatierung zu ändern?

Du markierst die Spalte A und drückst Strg+1 :Zahlen: Kategorie: Standard -> OK

Gruß Uwe

(23.12.2017, 11:49)Kuwer schrieb: [ -> ]Du markierst die Spalte A und drückst Strg+1 :Zahlen: Kategorie: Standard -> OK

Gruß Uwe

Gemacht, aber daran liegt es nicht.
Irgendwas stimmt beim VBA Programm nicht.

(23.12.2017, 12:25)Maximus schrieb: [ -> ]Gemacht, aber daran liegt es nicht.
Irgendwas stimmt beim VBA Programm nicht.

gemacht und scheint zu gehen: [attachment=15202]

Gruß Uwe

Hallo Uwe,

vielen Dank für deine Hilfe! Auf die Formatierung wäre ich nie gekommen!

Ich habe jetzt ein bisschen herumgetestet. Mein Fehler war, dass ich den ersten Eintrag direkt über den Userform eingegeben habe.
Das scheint nicht zu gehen, auch nicht bei deiner Liste. Der erste Eintrag muss direkt ins Tabellenblatt eingegeben werden. Sonst hat das VBA Programm wohl keinen Einstieg.

Ich hätte noch eine Frage:
Beim direkten Eintrag im Tabellenblatt habe ich in Spalte C und D durch Doppelklick, ausgelöst durch ein VBA-Programm, die Möglichkeit das Datum automatisch zu erzeugen!
Besteht die Möglichkeit das VBA Programm auch im VBA-Program für den Userform unterzubringen, damit ich im Userform bei "Datum" und "Datum2/neuste Änderung" auch durch Doppelklick automatisch das Datum erzeugen kann.

Code:
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  With Target

    Select Case .Column

      Case 3 'Spalte "C" = 3

        Cancel = True

        Target = Date

        Target.NumberFormat = "dd/MM/YYYY"

        Case 4 'Spalte "D" = 4

        Cancel = True

        Target = Date

        Target.NumberFormat = "dd/MM/YYYY"

    End Select

  End With

End Sub

DANKE!

Gruss Markus

Hallo Markus,

'Speichern Schaltfläche Ereignisroutine

Private Sub CommandButton3_Click()



             Tabelle1.Cells(lZeile, 3).Value = DateValue(TextBox3.Text)

             Tabelle1.Cells(lZeile, 4).Value = DateValue(TextBox4.Text)

   

End Sub



Private Sub TextBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

  TextBox3 = Date

End Sub



Private Sub TextBox4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

  TextBox4 = Date

End Sub

"Ich habe jetzt ein bisschen herumgetestet. Mein Fehler war, dass ich den ersten Eintrag direkt über den Userform eingegeben habe.
Das scheint nicht zu gehen, auch nicht bei deiner Liste. Der erste Eintrag muss direkt ins Tabellenblatt eingegeben werden. Sonst hat das VBA Programm wohl keinen Einstieg."

Das geht auch mit dem ersten Eintrag, wenn das Zellformat stimmt.

Gruß Uwe

Hi,
habe deinen Code eingefügt, so das danach noch:

Code:
Dim lZeile As Long

steht.

Bei "Datum" klappt es.
Bei "Datum 2" kommt eine Fehlermeldung.

gruss

Hallo gruss,

bei dem Makro

Private Sub CommandButton3_Click()

hatte ich nur die zu ändernden Zeilen gezeigt. Undecided

Gruß Uwe

so habe ich mir das auch gedacht, aber dann habe ich die Fehlermeldung in Datum2

nach deinem Code geht es dann mit

Dim lZeile As Long

weiter....

Seiten: 1 2 3 4