Office: (Office 2010) Userform Daten ändern / Speichern

Hallo zusammen,

anbei habe ich meine Datei angehängt.

Soweit so gut - wenn ich allerdings einen Datensatz in der Userform auswähle (mit Doppelklick) wird dieser Datensatz nicht entsprechend gespeichert wenn ich auf der nächsten Userform auf Speicher klicke.
Weiß jemand rat wie ich den Code anpassen muss, dass er auf Userform 1 (also in der Listbox und im Datenblatt die Daten abändert bzw. bei einem Neueintrag die Daten fortlaufen reinkopiert?

Das is wirklich eine Stufe zu hoch für mich...
Wäre echt lieb wenn mir jemand helfen könnte.

:)

 

Hi,

also so richtig schlau werde ich aus deiner Beschreibung nicht - was genau soll im 2. UserForm passieren? Meinst du vielleicht, dass du entweder den ausgewählten Eintrag ändern oder einen neuen Eintrag hinzufügen willst? Dann würde ich aber 2 verschiedene CommandButton verwenden oder z.B. 2 OptionButton, damit man unterschieden kann, ob Ändern oder Neueintrag.

Damit du immer Zugriff auf den richtigen Datensatz hast, würde ich in dem 1. UserForm in die ListBox in eine zusätzliche Spalte (Spaltenbreite 0 damit nicht sichtbar) die Zeilennummer (also rzelle.Row) eintragen - dann kannst du dich bei einer Änderung der Daten auf diese Zeilennummer beziehen.

Wenn du einen neuen Eintrag anlegen willst, dann ermittle die erste freie Zeile in Spalte A

Code:

 

Hi,

schau dir mal das angehängte Beispiel an - vielleicht ist es das was du meinst.

 

Das schaut soweit schonmal gut aus *Smilie
Du hast mich richtig verstanden. Ich habe jetzt einiges noch angepasst.
Vielen Dank bis jetzt schonmal *Smilie))

Ich würde gerne noch einen Kalender zur Datumsauswahl einfügen. Leider habe ich keine unter zusätzliche Steuerelemente gefunden. Eventuell die Uhrzeit würde ich auch gerne noch mit einem Dropdown versehen.

Hat da jemand eine Idee wie man das realisieren kann, sodass die Inhalte der 2 Dropdowns (Stunden und Minuten in 15-er Schritten) in eine Zelle bekommt!?

Und wie kann man die Userform so einstellen, dass nur per Userform die Daten verändert werden können? Sprich in die Datenbank soll nicht eingegriffen werden.

Anbei die aktuelle Datei *Smilie

 

Von welchen 2 ComboBoxen sprichst du? Derzeit gibt es auf UserForm1 nur 1 ComboBox. Oder sollen anstelle der 2 TextBoxen 2 ComboBoxen sein?
Wenn du einen Kalender verwenden willst, dann musst du ein zusätzliches Steuerelement installieren - benutze dazu Google. Einfacher geht es, wenn du alle Datumsangaben in eine Spalte schreibst und diese in einer ComboBox anzeigen lässt.
Weshalb sollen Datum und Uhrzeit in eine gemeinsamte Zelle? Dann musst du sie beim Übernehmen aus den Zellen ins UserForm doch wieder trennen.

Wenn die Datenbank nicht sichtbar sein soll, mache es so wie mit Tabelle3 - blende sie aus.

 

Okay...

Und wie änder ich diese Codes,:

.Cells(lngZeile, 5) = TextBox4
.TextBox4 = ListBox1.List(ListBox1.ListIndex, 4)

sodass ich den Dtpicker nehmen kann?

Leider bin ich sehr ratlos...

 

Morgen,

So fügt man den DatePicker in eine Userform.

Ansprechen tust du ihn wie alle Elemente über den Namen.

Beispielsweise: MsgBox "Datumswahl: " & DTPicker1.value


Gruß
Daniel

 

Ich benutze kein Kalendersteuerelement, würde aber denken, dass du auf diese Weise an das ausgewählte Datum kommst:

Code:

Der blau markierte Teil ist der Name deines Kalender.Steuerelementes - musst du anpassen.

Falls der Hinweis nicht hilft, benutze Tante Google.

 

Leider habe ich so viel daran rumgebastelt...
Das mit der Uhrzeit bekomme ich nicht hin.

Zudem speichert die Datei neue Einträge nicht fortfolgend in die Datenbank sondern überschreibt immer die 1. Zeile der Tabelle.

Als Passwort einfach nichts eingeben dann kommt man auf die gesamte Datenbank.

Hilfe *frown.gif*

 

Auf welche Mappe beziehst du dich? In der aus dem Beitrag 08.02.2016, 15:00 verwendest du doch meinen Code und es wird jeder neue Eintrag korrekt die erste freie Zeile eingefügt.

 

Wenn ich einen Neueintrag machen will, steht der Eintrag in Tabellenzeile 1.

Sprich der Eintrag steht von B2 bis F2 in der Tabelle.

Somit überschreibt er den vorhandenen Eintrag.

Btw: Ich habe Office 2010. Vll Liegts an dem Code, dass er nicht kompatibel ist mit 2010!?

 

Abend,

Bin ebenso wie Karin sehr verwirrt. Habe mir deine Datei runtergeladen, und sie tat doch fast so wie es sollte. Zumindest trägt sie neue Daten in die unterste Zeile ein.
Im Anhang ist die Version die all deine Aufgaben erledigen sollte.

- Habe jetzt zusätzlich nur noch einen DatePicker eingefügt.

- Ebenfalls habe ich beim Auslesender Zeit, und Datumszelle ein CDate verwenden, da die Zellen ja als Datum formatiert sind.

- Beim einfügen der Zeit habe ich das auch in deinem Format "hh:mm" eingefügt, also es schneidet halt einfach die Sekunden ab falls man welche eintragen sollte.

Funktioniert soweit alles wie du es dir wünschst?

PS: Du solltest noch beim Speichern noch als erstes abfragen ob die eingegeben Zeit auch korrekt ist:
Code:

Gruß
Daniel

 

Du startest das UserForm nicht von Tabelle2 sondern von Tabelle3? Dann wird die falsche erste freie zeile ermittelt. Ändere diesen Code:

Code:

 

Hallo zusammen und vielen Dank für die Hilfe.

Es lag wohl am Code, da ich die Userform in Tabelle 3 gestartet habe.

Jetzt funktioniert es. Jetzt muss ich nur noch iwie hinbekommen, das Kennzeichen in 3 Teile zu teilen, sodass eine falsche Eingabe bzw formatierung nicht möglich ist. Weiß da jemand rat?

Ansonsten echt vielen Dank für eure Mühe. *Smilie))

 

Hi,

welchen konkreten Grund gibt es, das Kennzeichen in 3 Teile zu splitten?