Office: (Office 2016) Werte anzeigen ,ändern und einfügen in einer Userform

Hallo,


1)
Also in der Combobox sollen alle Tabellenblätter angezeigt werden. Wenn ich jetzt durch anklicken ein Tabellenblatt auswähle, sollen in der Listbox die Artikel von Spalte A angezeigt werden.
Klicke ich jetzt einen Artikel in der Listbox an sollen die anderen Werte rechts von Spalte A durch ein Button Anzeigen in die jeweiligen Felder der Userform angezeigt werden.Die gelben Textboxen möchte ich , wenn sich die Stückzahl , die Laufzeit u.s.w. ändert dann in der Userform ändern können.

2)
Angenohmen ich habe jetzt einen neuen Artikel dann möchte ich den Artikel über die Userform in der letzten freien Zelle hinzufügen.
Und mit einem Command Button in die Letzte Zeile von diesem Tabellenblatt einfügen .
Ich habe es so hin bekommen.
Es ändert sich aber jedesmal der bestehende Artikel wenn ich in der Listbox einen anderen Artikel auswähle, und es werden nur Werte von Zeile A3 angezeigt egal ob ich denn Artikel von A4 oder A5 auswähle.
Geändert und Angezeigt wird aber nur in A3 .Es soll aber in der Zeile mit dem Artikel den ich oben in der Listbox ausgewählt habe gändert werden .

Hoffe ihr könnt mir weiter helfen
Habe selbst schon einiges ausprobiert , bekomme es aber einfach nicht so hin.
Danke für eure Hilfe

 

Hi,

schau dir mal den Anhang an, ob er deinen Wünschen entspricht. Fragen zum Code beantworte ich selbstverständlich gerne.

Grundsätzliche Anmerkungen:
1. für TextBoxen, die Zahlen enthalten, müssen diese vor dem Übertrag in das Tabellenblatt erst in Zahlen umgewandelt werden
2. das Tabellenblatt "Userform" darf in die ComboBox nicht mit eingelesen werden - das muss im Initialize-Ereignis entsprechend geprüft werden
3. TextBoxen, deren Inhalte sich durch Formelberechnungen im Tabellenblatt ergeben, habe ich gesperrt (Eigenschaft Locked auf True), damit dort keine Veränderungen vorgenommen werden können
4. wenn ein neuer Artikel erfasst werden soll muss zuerst geprüft werden, ob der Artikel nicht vielleicht schon vorhanden ist, da in diesem Fall die Änderungen in der bereits vorhandenen Zeile erfolgen müssten und nicht hinzugefügt

---

 

Hallo,

Erstmal Danke für deine Antwort.
Ich vermisse hier deinen Anhang den du in deiner Nachricht angesprochen hast.

 

Sorry, da habe ich den Anhang offensichtlich vergessen.

---

 

Ich habs mal durchlaufen lassen.
Sobald ich in der ListBox was anklicke erscheint der Fehler Varible nicht definiert.
Er meint wahrscheinlich das Wort finden im Code!?

 

Deklariere die Variable als Range - am einfachsten im Standardmodul und als Public, da sie ja in mehreren Prozeduren verwendet wird.

---

 

Hallo,
Funktioniert perfekt. Das ist genau das was ich meinte. Ich Danke dir für die schnelle Hilfe.

 

Hallo,

Könntest du mir noch mal unter die Arme greifen.

Wie schon erwähnt funktioniert das was du gemacht hast super.
Nun möchte ich in einer zweiten Listbox die rechts unten in meiner Userform ist aus allen Tabellenblätter denn Eintrag Ja suchen, der in Spalte F steht, und diese Zeilen dann in der listbox2 füllen..

Habe schon einiges aus dem Netz ausprobiert doch nichts davon ist für das was ich mir vorstelle das richtige.

Schon mal Dankeschön für deine Hilfe

Gruß Christian

 

Hi Christian,

lade doch bitte deine aktuelle Mappe hoch.

---

 

Hallo,
hier nochmal meine Mappe.

Gruß Christian

 

Hi Christian,

und welche Spalte(n) sollen in der ListBox angezeigt werden?

---

 

Hallo,
sorry hatte ich vergessen .Ich möchte gerne die Spalten von A bis J angezeigt bekommem

Gruß
Christian

 

Hi Christian,

ich habe deine Frage so interpretiert, dass beim Starten des UserForms die ListBox gefüllt und aus allen Tabellenblättern die Artikel mit "Ja" aufgelistet werden sollen - der Code befindet sich also im UnserForm_Initialize-Ereignis..

Folgende Hinweise:
- wird eine ListBox mittels AddItem gefüllt, kann in ihr keine Überschrift erstellt werden. Deshalb soltlest du Labels verwenden, die du oberhalb der ListBox platzierst, sodass man genau sieht um welchen Spalten-Inhalt es sich handelt (habe das für 3 Spalten mal ausgeführt). Die AddItem-Lösung ist bei dir erforderlich, da der ListBox kein fester Zellbereich als RowSource zugewiesen werden kann
- ich habe außer den 10 Spalten in der ListBox noch eine Spalte ganz links für das Tabellenblatt ergänzt, damit erkennbar ist, zu welchem Kunden die Daten gehören
- die Spalte F habe ich in der ListBox ausgelassen, da dort überall "Ja" stehen würde - das ist nicht nötig, weil in dieser ListBox nur die Zeilen mit "Ja" in Spalte F aufgelistet werden sollen
- du kannst auch die Spaltenbreiten für die ListBox noch verändern falls du das wünschst, dazu musst du die Breite unter der Eigenschaft ColumnWidths eintragen, jeweils getrennt durch ";" etwa in der Art: 100;90;25.....

---

 

Hallo
Super, ich danke dir.
Werde das heute Abend ausprobieren

Bis dahin
Christian

 

Hallo
Leider wird in der listbox2 nur ein und dieselbe Zeile mit einen Ja in Spalte F angezeigt.
Kannst du mir das so umschreiben das, unabhängig von der Combobox und der listbox1, alle Zeilen untereinander der ganzen Tabellenblätter in dem sich ein Ja in Spalte F befindet angezeigt werden.

Also nur alle Tabellenblätter durchsuchen und wenn Ja in Spalte F dann untereinander in der Listbox2 anzeigen.

Bis dahin
Christian