UserForm in Excel-Datei

[Kuwer]

Hallo,

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

Gruß Uwe

[Maximus]

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?

[Kuwer]

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

[Maximus]

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.

[Kuwer]

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

gemacht und scheint zu gehen:
  Liste5_Kuwer.xlsm (Größe: 47,54 KB / Downloads: 10)

Gruß Uwe

[Maximus]

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

[Kuwer]

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

[Maximus]

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

[Kuwer]

Hallo gruss,

bei dem Makro

Private Sub CommandButton3_Click()

hatte ich nur die zu ändernden Zeilen gezeigt.

Gruß Uwe

[Maximus]

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....