Thema Datum  Von Nutzer Rating
Antwort
Rot Additem per loop und if Abfrage
 19.01.2016 15:35:01 Patrick
Solved
19.01.2016 16:09:22 Patrick
Solved
19.01.2016 16:10:21 Patrick
Solved

Ansicht des Beitrags:
Von:
Patrick		 Datum:
19.01.2016 15:35:01		 Views:
1211		 Rating:
     
Antwort:
 Nein
Thema:
Additem per loop und if Abfrage
Guten Tag, ich habe gesucht ob es ein solches Thema hier schon gibt, jedoch nichts gefunden. Das bedeutet meiner Meinung nach aber nicht automatisch das es nicht schon existiert, es kann gut sein das es schwer zu finden ist. Zum Thema: ich möchte eine Listbox mit verschiedenen Einträgen füllen. Es soll der Inhalt von 10 Zellen hinzugefügt werden, jedoch mit der Prüfung für jede einzelne Zelle ob in der Spalte daneben eine 1 steht. Code: Private Sub CommandButton1_Click() ListBox1.Clear For i = 1 To 10 If Cells(i, 1) = 1 Then ListBox1.AddItem Cells(i, 2) End If Next i End Sub Dies funktioniert soweit. Jetzt mein Problem, ich möchte wenn man in der Listbox einen Eintrag anklickt mit der Information aus welcher Zelle dieser Eintrag kommt weiter arbeiten, dazu wollte ich den Index des jeweiligen Eintrags auf (i-1) setzen (wenn ich dies nicht manuell tue, zählt er die Zellen die nicht übernommen werden nicht mit und ab dem Zeitpunkt wenn ein Wert nicht eingefügt wird passt der Index nicht mehr): ListBox1.AddItem Cells(i, 2), (i-1) dies funktioniert jedoch nicht richtig, es geht nur bis zu dem Punkt an dem keine "1" in der Zelle steht und gibt dann einen Laufzeitfehler (ungültiges Argument) aus. ich habe auch schon versucht eine weitere Variable mit einzuführen die in der Schleife hochgezählt wird, aber es kommt der gleiche Fehler. Für Hilfe wäre ich sehr dankbar

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Additem per loop und if Abfrage
 19.01.2016 15:35:01 Patrick
Solved
19.01.2016 16:09:22 Patrick
Solved
19.01.2016 16:10:21 Patrick
Solved