Office: For Each Schleife mehrmals nach gleichem Wert suchen

Hallo
Ich hänge seit einigen Tagen an einem Problem. Ich möchte Daten aus einer Tabelle über Userform D auslesen und in Userform wieder ausgeben. Das habe ich auch soweit hinbekommen. Ich suche nach einer Artikelnummer und diese hat mehre Daten, bis dahin klappt alles.
Das Problem ist nur das die Artikelnummer mehrmals vorhanden ist und ich diese brauche. Also müsste mein jetziges eigentlich "nur" das gleiche solange ausführen bis die bestimmte artikelnummer mehrmals durchlaufen ist.Aber ich bekomm es einfach nicht hin. Die tabelle ist so auf gebaut das Die Artikelnummer mehrmals unterinander in den Zeilen geführt wird.
Es wäre der hammer wenn ihr mir helffen könntet. ich füge mal meinen jetztigen vba code bei.
danke im voruas
Code:

:)

 

Deine Schleife wird schon bis zum Ende durchlaufen, allerdings überschreibst du Deine Textboxen jeweils mit einem gefundenen neuen Treffer, so dass der letzte gefundene Treffer angezeigt wird.

 

ja. ich bekomme auch für den ersten treffer alle daten. nur dann möchte die nächsten Treffer der gleichen artikelnummer die unten drunter gelistet ist und das funktioniert nach tausenden versuchen leider nicht*frown.gif*
ich hänge mal ein bsp. dran, damit man sich es besser vorstellen kann was ich meine. ich hoffe ihr habt eine idee. tausend dank

 

Hallo

Der Fehler liegt hier:
Else
Zeile = Zeile + 1
End If
Sobald er deine Artikelnummer findet zählt der nicht mehr hoch. Da er bei der aktuellen Zeile bleibt. Zeile = Zeile + 1 muss hinter End if stehen.


Gruß

Paul

edit: Das Problem mit dem Überschreiben bleibt trotzdem nur kriegste jetzt immer die zuletzt gefundene Artikelnummer angezeigt. Versuch es mit einer Liste oder Listen.

 

Danke für die Info
Aber irgendwie müsste das mit einer verschachtelten schleife gehn. Komme nur nicht auf den drichter. Er bleibt bei der ersten gefundenen Artikelnummer stehn und gibt sie in den dementsprechenenden textboxen aus. Jetzt müsse er irgendwie weiterlaufen und die werte in die Textboxen eintragen die dafür in der userform vorgesehen sind ( z.b. Höhe).
Bin den heut morgen schon am ausprobieren. aber funtkioniert einfach nicht.
Hoffe irgendwie einer hat ne idee. Wäre genial

 

ups falsch geguckt sorry

lad doch mal deine userform hoch

 

Hallo Fernando,

folgender Code setzt voraus, dass Du die Textboxen und Labels der Userform systematisch benannt hast.
Als Überschrift habe ich Labels mit dem Namen "lbl01" für Spalte 1, "lbl02" für Spalte 2 usw. vorgesehen.
Die Werte werden in Textboxen eingetragen, die ähnlich strukturiert benannt sind:
"tb11" für 1. Zeile, 1. Spalte (also der Wert links oben) bis zu "tb33" für Zeile 3, Spalte 3 (als rechts unten).

Folgender Code setzt nun spaltenweise die Werte ein:
Code:

Grüße
EarlFred

 

Hier ist mal die userform
danke earlfred ich werds gleich mal ausprobieren :-)

 

Hallo Fernando und die anderen
Hab hier kein Excel, hatte gestern noch was gebaut mit einer TextBox / einer ListBox(4 spaltig) und einem Button.
Auflistung in der Listbox.
Hatte diese nur nicht hochgeladen, da ich nicht wusste ob die Werte nur zur Ansicht oder zum bearbeiten in die Textboxen kommen.
Dies waere die Frage an Fernando.
Falls interesse, kann die Mappe gegen 12°° hochladen.
gruss hary

 

\@Hary
Ich wollte die Daten aus der Excel Tabelle nur auslesen und in Userform den jeweiligen Textboxen anzeigen lassen anzeigen lassen. Danke :-)

@EarlFread
leider klappt es irgenwie nicht. die textboxen und die labels hab ich genau so gezeichnet. jetzt bekommt er Probleme mit Private Sub UserForm_Click()

hier mal mein code(habe sie auf meine Orginal Tabelle abgestimmt da ich diese nciht zeigen darf)
Hoffe du hast eine idee. danke
Code:

 

Hallo Fernando,

was für Probleme? Kannst Du die genauer beschreiben? Die Aussage nutzt so absolut nichts.

Du hast beim Anpassen des Codes Fehler eingebaut:

Code:

Mein Code war zudem übersichtlich formatiert. Wenn der Code so aussieht wie bei Dir, ist er schwer lesbar.

Grüße
EarlFred

 

Ok.Versuche es übersichtlicher zu formatieren. Das Problem ist nur ich muss den code in Word einfügen weil mein arbeits pc kein i-net hat.
Also bei diesem Befehl hatte er ein Problem
For Each Zelle In Intersect(.UsedRange, .Columns(2))

und ich muss sagen richtig nach vollziehen kann ich diesen auch net.
Wäre net wenn du es näher erläutern könntest
ich versuche es mal weiter
herzlichen dank

 

Hallo
teste mal die Mappe im Anhang. Ist nur ein Versuch. Nr in Textbox eintragen und Button klicken.
gruss hary

 

So hab mal den code geschrieben und er gibt mir auch die Daten aus. Das Problem ist nur er wandert jetzt auch eine Zeile + 1 +2 +3 wo die Artikel nicht mit der eigegebenen übereinstimmt und dann die Höhe,Breite von der anderen Artikelnummer in zeile nimmt. Ich bräuchte jetzt irgendwie etwas in der Form.
Wenn die Artikelnummer nicht mit der eingegeben übereinstimmt dann gib mir bitte keine weiteren Werte mehr aus
Bitte um Hilfe
danke an alle
@harr schau mir mal die tabelle. danke



Code:

 

Hallo Fernando,

Tipp: Nutze das Note-Pad

Was für Probleme?

Intersect ist die Schnittmenge aus 2 Bereichen.
.Usedrange steht für den benutzten Bereich
.Columns(2) steht für Spalte 2 = B
Die Schnittmenge sind also alle Zellen der Spalte B im genutzten Bereich.

Der Punkt davor steht für die Verbindung zu dem With-Block.
Code:

Ist gleichbedeutend mit
Code:

Grüße
EarlFred