Listbox Spalte 1 durchnummerieren

[soldblub]

Hallo Zusammen, 


ich habe mittlerweile drei Probleme: 

1. Listbox mit zwei Spalten befüllen? 

ich möchte eine Listbox aus zwei Spalten, wobei die erste Spalte eigentlich abhängig vom variablen Inhalt der zweiten Spalte (wird aus zwei weiteren Listboxen und ggf. zwei Textfeldern befüllt) "nur" durchzählen/ durchnummerieren soll. 
Also, drei Einträge in der rechten Spalte = 1, 2 und 3 links. 

Das Ganze ist im userform (multipage1, unter Daten I)
Durch "Auswahl übernehmen" wird in der unteren Listbox List_Prüfung der ausgewählte Inhalt zusammengeführt. (Aktuell noch einspaltig, da ich nicht weiß, wie ich nacheinander erst die rechte Spalte fülle, durchzähle und abhängig davon dann die linke Spalte befülle) 

2. Zählen der Zeilen der Listbox... 
MsgBox (List_Prüfung.Items.Count - 1)
 (Fehler: Methode oder Datenobjekt nicht gefunden) 
Hier geht es um den reinen Inhalt, es ist nichts ausgewählt. Und der Inhalt wird über den Button "Auswahl Übernehmen" generiert, nicht dirch intialize.... 

Durch die Pfeiltaste nach rechts, soll der Inhalt der Listbox List_Prüfung gezählt (Sub Listboxzaehlen) werden.

3. Durchnummerieren
Im Anschluss soll noch "durchnummeriert" werden. 

Ziel ist es im Anschluss durch die Nummerierung leichter Zuordnung für nachfolgende Pages zu nutzen.

Vielleicht gibt es auch ganz andere Ansätze, oder Methoden die deutlich geeigneter sind, lasse mich gerne überzeugen... zweifel gerade selber an meinen Grundkonzept. 
Bitte nur Code  mit Erklärung, da ich es verstehen will.

[Steffl]

Hallo,

zur Nummer2 (ungetestet)

Code:

MsgBox List_Prüfung.Count

[soldblub]

Leider auch hier: Methode oder Datenobjekt nicht gefunden...

[Steffl]

Sorry,

Code:

MsgBox List_Prüfung.ListCount

[chris-ka]

Hallo,

wo das jetzt in deinem "Muster"  stehen sollte... ich habe es auf die schnelle nicht gefunden.
Anbei eine kleine Demo.

Code:

Option Explicit

Private Sub btnAdd_Click()
    'Wenn was in der Tetbox steht
    If Trim(Me.txtAdd.Text) <> "" Then
        'befülle die Listbox
        With Me.lstOut
            .AddItem .ListCount + 1 'in die erste Spalte der jeweilige Index (1,2,3....)
            .List(.ListCount - 1, 1) = Me.txtAdd.Text 'in die 2.Spalte der Inhalt der Textbox
        End With
    End If
End Sub
Private Sub UserForm_Activate()
    'Einstellung der Listbox
    'auf zweispaltig und mit bestimmten Spaltenabständen in pt
    With Me.lstOut
        .ColumnCount = 2
        .ColumnWidths = "20;90"
    End With
End Sub

  Demo_Listbox.xlsb (Größe: 18,91 KB / Downloads: 6)

[Egon12]

Hallo,

Wenn du Msgbox einsetzt braucht es die Klammern nur unter If/Else Abfrage.

Gruß Uwe

[snb]

Mein Grundkonzept:

https://www.snb-vba.eu/VBA_Fill_combobox...ox_en.html

[Egon12]

Hallo Sabrina,

da die Listbox List_Prüfung mit dem Array arrListErg gefüllt wird, muss mit einer Neudimensionierung ein Ausgabe Array entsprechend berechnet werden, was in Spalte 1 eine fortlaufende Nummer und in Spalte 2 die markierten Werte der beiden anderen Listboxen aufnimmt. Dieses füllt dann die List_Prüfung.
Schreibe oben in die erste Zeile Option Explicit. Damit wird mindestens 1 Fehler ausgegeben!!

Datei im Anhang ohne Option Explicit ->Fehler behebst du bitte selbst.

Gruß Uwe

[snb]

Schöne Passwörter.

[soldblub]

Guten Morgen Uwe, 

vielen Dank, ich habe es in meine "fortschreitende" Version eingebaut und es funktioniert!

---

Hallo Chris-kra, 
auch dir vielen Dank, ich habe mir deinen Code angesehen und werden ihn bestimmt an anderer Stelle mal nutzen, da er nicht genau dass ist was ich suchte und bereits eine andere Lösung habe.