UserForm in Excel-Datei

[Maximus]

Tom,
fühl dich doch nicht gleich angegriffen.
Was soll ich davon haben, dich veräppeln zu wollen?

Wenn ich deine Antwort hätte umsetzen können, hätte ich es gemacht.

Natürlich mußt du darauf nicht antworten.

Ich bin ja auch bereit für alle immer den aktuellsten Stand bereit zu halten. Hat auch viel Arbeit gekostet.

Ich denke mal diesen Vordruck können andere auch gut gebrauchen.

Also beim letzten Anhang funktionren alle Commando Button im Userform, ausser der Suchen Button.

Und in der Tabelle 1 beide Button:
-Button um Userform zu öffnen
-Button Sortieren
funktioneren auch!

Wenn jemand noch so ein bissel testen will, würde ich mich freuen.
Ohne den Zusatzcode von Uwe funktioniert ja alles.
Diesen habe einfach noch nicht richtig untergebracht.
Zur Zeit steht dieser hinter Commando Button 5.

Gruss

[Maximus]

Hallo Leute,
funktionieren tut der Vordruck jetzt.
Aber für jeden Programmierer bestimmt eine Katastrohe.

Ich habe jetzt einfach:
den Command Button5 kopiert, darunter gesetzt, geändert auf Command Button6 (obwohl es keinen  Commando Button 6 im userform1 gibt) und darunter den Zusatz-Code von Uwe gesetzt.
Jetzt funktionert auch der Commando Button Suchen.

Mich würde halt als absoluter Beginner interessieren, wie es richtig aussieht.
Aber wie geasgt alle Funktionen sind jetzt gegeben.
siehe Anlage

Code:

Private Sub CommandButton5_Click()
Application.Dialogs(xlDialogFormulaFind).Show
Application.Dialogs(xlDialogFormulaReplace).Show

End Sub


Private Sub CommandButton6_Click()
Application.Dialogs(xlDialogFormulaFind).Show
Application.Dialogs(xlDialogFormulaReplace).Show

End Sub

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

Gruss

[Kuwer]

Mich würde halt als absoluter Beginner interessieren, wie es richtig aussieht.

  Liste6_Kuwer.xlsm (Größe: 48,07 KB / Downloads: 12)

Gruß Uwe

[Maximus]

Hallo Uwe, danke Dir!

Hab jetzt getestet.
Zur Zeit ist es so, dass Datum UND Datum2 eingetragen werden müssen, dann klappt es mit der Speicherung.
Wenn in diesen Feldern kein Eintrag folgt Fehlermeldung:

Laufzeitfehler`13`
Typen unverträglich

Gruss Markus

[Kuwer]

Hallo Markus,

Zur Zeit ist es so, dass Datum UND Datum2 eingetragen werden müssen, dann klappt es mit der Speicherung.
Wenn in diesen Feldern kein Eintrag folgt Fehlermeldung:

ändere die entsprechenden Zeilen so:

alt:

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

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

neu:

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

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

Gruß Uwe

[Maximus]

Uwe, spitzenmäßig abgeändert!

Läuft fehlerfrei!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Danke für das Weihnachtsgeschenk!
Für mich sind das meiste hier Hieroglyphen.



PS: Du bist echt ein Profi deines Faches! :18:


Gruss Markus