OffTopic • Excel VBA [Problem]

---

27.05.2014, 20:31 - Dennis B - Spezialist - 1358 Beiträge Guten Abend Community! Ich bin momentan dabei ein Lagerprogramm in Excel zu schreiben und bin auf ein Problem gestoßen: Aus einer Listbox welche die Werte der Tabelle aufruft,lassen sich Einträge anzeigen. Wählt man einen und klickt auf "bearbeiten" öffnet sich eine neue UserForm mit den gewählten Werten. Nun zu meinem Problem: Wie schaffe ich es,dass wenn ich Werte in den Feldern (der 2. Userform(siehe Bild)) änder,Excel automatisch die zuvor gewählte Zeile findet und die neuen,durch die alten Daten ersetzt? [toggle=Werte der Listbox] Private Sub lstbearb_Click() klick = lstbearb.ListIndex End Sub With lstbearb .ColumnCount = 12 .ColumnWidths = "1cm;2cm;2cm" .ColumnHeads = True lstbearb.RowSource = "A2:L" & Sheets(1).Cells(Cells.Rows.Count, 1).End(xlUp).Row End With[/toggle] [toggle=Übernahme der Werte in Userform 2] Private Sub UserForm_Initialize() With Me .cboRang.List = Range("Rang").Value .cboJacke.List = Range("Jacke").Value .cboPolo.List = Range("PP").Value .cboPulli.List = Range("PP").Value .cboHose.List = Range("Hose").Value .cboPschnur.List = Range("Pschnur").Value .cboTasche.List = Range("Tasche").Value .cboKTasche.List = Range("Tasche").Value End With With lstbearb UserForm2.cboRang = .List(.ListIndex, 0) UserForm2.txtVName = .List(.ListIndex, 1) UserForm2.txtName = .List(.ListIndex, 2) UserForm2.cboPolo = .List(.ListIndex, 3) UserForm2.cboPulli = .List(.ListIndex, 4) UserForm2.cboJacke = .List(.ListIndex, 5) UserForm2.cboHose = .List(.ListIndex, 6) UserForm2.txtCappy = .List(.ListIndex, 7) UserForm2.cboPschnur = .List(.ListIndex, 9) UserForm2.cboKTasche = .List(.ListIndex, 10) UserForm2.cboTasche = .List(.ListIndex, 11) [/toggle] Ich hoffe mein Problem ausführlich erläutert zu haben und Danke schonmal im Vorraus für eure Hilfe. Lg Dennis [URL=http://3d-cinema.bplaced.net/site/files/news.php][IMG]http://s1.directupload.net/images/111023/igh7nje8.png[/IMG][/URL] No Support per PM!

27.05.2014, 22:25 - opelfan2002 - Profi - 357 Beiträge Hi Dennis, ich glaube, dass du hier mit Söhnlein, Jannes und Flo V. die Programmiergenies seid und wir äh... kein blassen Schimmer von dem haben (kann aber auch anders sein), was du uns da fragst. Noch einen schönen Diestag!

27.05.2014, 22:40 - Dennis B - Spezialist - 1358 Beiträge Sofern jemand keine Ahnung von dem Beschriebenen hat,erwarte ich auch keine Antwort... Daher ist dein Beitrag recht sinnfrei. Das es nicht allzu viele Experten auf diesem Gebiet gibt ist mir durchaus bewusst,dennoch ist es nicht ausgeschlossen. Trzd danke ^^ [URL=http://3d-cinema.bplaced.net/site/files/news.php][IMG]http://s1.directupload.net/images/111023/igh7nje8.png[/IMG][/URL] No Support per PM!

27.05.2014, 22:57 - thecloser_ - Moderator - 2349 Beiträge Ich seh das mal als Lob, opelfan2002... Schonmalmit der programmiersprachenübergreifenden Prozedur "FindFirst" und das damit verbundene "FindNext" probiert? Es findet dir alle Einträge/Dateien mit der Vordefinierten Eigenschaft. Alternativ (bin mir nicht ganz sicher wie du exakt die Einträge vergleichst) kann auch eine direkte if-Anweisung bzw. die Tochter "Case of " helfen. Wenn ich jetzt voll am Thema vorbeigeredet habe, bitte ich einfach um mehr Details [ALIGN=center][B]Nix gegen Baguette, aber...[/B] [IMG]https://abload.de/img/signature_newbuyas.jpg[/IMG][/ALIGN]

28.05.2014, 11:30 - Dennis B - Spezialist - 1358 Beiträge Bezüglich des "FindFirst": Sollte es in etwas so aussehen,dass ich die Abfrage zur Suche eines Wertes - beispielsweise der TextBoxVorname - stelle und er mir anhand dessen den bereits vorhandenen Eintrag findet und ersetzt? Ich hoffe,dass ich jetzt kein Mist geredet habe [URL=http://3d-cinema.bplaced.net/site/files/news.php][IMG]http://s1.directupload.net/images/111023/igh7nje8.png[/IMG][/URL] No Support per PM!

28.05.2014, 12:58 - thecloser_ - Moderator - 2349 Beiträge Genau, so kann man das zum Beispiel machen. Solltest aber dann sicherstellen, dass es dann keine Dopplungen von deinem Abfragewert gibt. alternativ kannst du noch versuchen, den Tabellenindex der zweiten Tabelle versteckt bei der ersten Tabelle mitzunehmen, dann muss nur noch der Index aufgerufen werden und die Tabelle 2 ist flink da. [ALIGN=center][B]Nix gegen Baguette, aber...[/B] [IMG]https://abload.de/img/signature_newbuyas.jpg[/IMG][/ALIGN]