Thema Datum  Von Nutzer Rating
Antwort
Rot Auswahl Listbox wird nicht komplett verarbeitet
 14.02.2013 09:56:16 Andreas
NotSolved
14.02.2013 11:34:07 Trägheit
Solved
14.02.2013 15:05:40 Andreas
Solved

Ansicht des Beitrags:
Von:
Andreas		 Datum:
14.02.2013 09:56:16		 Views:
1422		 Rating:
     
Antwort:
  Ja
Thema:
Auswahl Listbox wird nicht komplett verarbeitet

Hallo zusammen

 

ich habe mir eine UserForm erstellt mit einer Liste in der ich per multiselect mehrere Einräge aus einem Arbeitsblatt auswählen will, um damit ein Diagramm dynamisch zu erstellen. Das funktioniert soweit alles, vorrausgesetzt der Benutzer wählt die Einträge von oben nach unten aus. Werden Einträge von unten nach oben angewählt, so wird nur der letzte verrarbeitet. Ich habe mich bereits mit 3 Kollegen kurzgeschlossen und keiner sieht die Ursache dafür, dass die "Auswahlsrichtung" eine Rolle spielt.

Mein Code sieht so aus:

Option Explicit

Private Sub UserForm_Initialize()
    
    Dim i As Integer
        
    Label1.Caption = "Bitte die Einträge der Reihenfolge von oben nach unten auswählen. " _
        & vbCrLf & "Ansonsten wir die Auswahl nicht korrekt verarbeitet!"
        
    Sheets("Tabelle1").Select
    Range("A4").Select
    
    ListBox1.RowSource = "A1:A7"

End Sub

Private Sub ButOK_Click()
    
    Dim i, n, nNew As Integer
    Dim diagrammarray As Variant
    
    nNew = 0
    For i = 0 To ListBox1.ListIndex
        If ListBox1.Selected(i) Then nNew = nNew + 1
    Next i
    MsgBox (nNew)
    If nNew <> 0 Then ReDim diagrammarray(nNew - 1)
    
    n = 0
    
    For i = 0 To ListBox1.ListIndex
        If ListBox1.Selected(i) Then
            diagrammarray(n) = ListBox1.List(i)
            n = n + 1
        End If
    Next i
    
    If nNew <> 0 Then
        For i = 0 To UBound(diagrammarray)
            MsgBox (diagrammarray(i))
        Next i
    End If
    
    Unload Me
    
End Sub

 

Vielen Dank schonmal für eure Mühe und viele Grüße

 

Andreas

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 Auswahl Listbox wird nicht komplett verarbeitet
 14.02.2013 09:56:16 Andreas
NotSolved
14.02.2013 11:34:07 Trägheit
Solved
14.02.2013 15:05:40 Andreas
Solved