Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Auswahl Listbox wird nicht komplett verarbeitet |
14.02.2013 09:56:16 |
Andreas |
|
|
|
14.02.2013 11:34:07 |
Trägheit |
|
|
|
14.02.2013 15:05:40 |
Andreas |
|
|
Von:
Andreas |
Datum:
14.02.2013 09:56:16 |
Views:
1424 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Auswahl Listbox wird nicht komplett verarbeitet |
14.02.2013 09:56:16 |
Andreas |
|
|
|
14.02.2013 11:34:07 |
Trägheit |
|
|
|
14.02.2013 15:05:40 |
Andreas |
|
|