Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ListBox

ListBox
24.04.2003 15:04:24
Stefan
Hallo Forum,

ich scheitere bei dem Unternehmen, einer mehrspaltige ListBox mehr als nur eine Zeile hinzuzufügen...

frmSuche.lstGefunden.List() = arrUnten

Das Array wird regelmäßig neu befüllt, in jedem weiteren Durchlaufen der Schleife wird die ListBox überschrieben. Ein Aufruf der List()-Funktion mit ListIndex oder ListCount führt zu Fehlern.

Könnt ihr mir helfen?


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: ListBox
24.04.2003 15:15:02
Bertram

Hallo Stefan,

ich versteh dein Problem nicht ganz, ein bischen mehr Code wäre nicht schlecht.

Hier mal eine Prozedur die bei mir eingebaut ist. Vielleicht hilft sie dir weiter. Bei Fragen einfach posten.


Sub KundennamenSuchen(Name As String)
'Kundenname suchen
Dim Kundenmatrix() As String
Dim Bereich As Range
Dim i As Integer
Dim j As Integer
Dim intZelleAlt As Integer
Dim intZelleNeu As Integer

i = Sheets("Kunden").Range("D1").Value
j = 0
'Kundenmatrix dimensionieren
ReDim Kundenmatrix(3, i)

'Kundenmatrix füllen
Application.ScreenUpdating = False
With Sheets("Kunden")
    .Visible = True
    .Activate
    Set Bereich = .Range("B1:B" & Range("D1").Value)
    On Error Goto Fehler
    Bereich.Find(What:=Name, LookAt:=xlPart).Activate
    Kundenmatrix(0, 0) = Range("A" & Mid(ActiveCell.Address(FalseFalse), 2)).Value
    Kundenmatrix(1, 0) = Range("B" & Mid(ActiveCell.Address(FalseFalse), 2)).Value
    Kundenmatrix(2, 0) = Range("C" & Mid(ActiveCell.Address(FalseFalse), 2)).Value
    
    intZelleAlt = Mid(ActiveCell.Address(FalseFalse), 2)
    
    Do
        Bereich.FindNext(After:=ActiveCell).Activate
        intZelleNeu = Mid(ActiveCell.Address(FalseFalse), 2)
        If intZelleNeu <= intZelleAlt Then Exit Do
        j = j + 1
        Kundenmatrix(0, j) = Range("A" & Mid(ActiveCell.Address(FalseFalse), 2)).Value
        Kundenmatrix(1, j) = Range("B" & Mid(ActiveCell.Address(FalseFalse), 2)).Value
        Kundenmatrix(2, j) = Range("C" & Mid(ActiveCell.Address(FalseFalse), 2)).Value
        
        intZelleAlt = intZelleNeu
    Loop
    .Visible = xlVeryHidden
End With
Application.ScreenUpdating = True
ReDim Preserve Kundenmatrix(3, j)
Customers.lboCustomers.ColumnWidths = "1,5cm;7cm;6cm"
Customers.lboCustomers.Column() = Kundenmatrix
Exit Sub

Fehler:
Customers.lboCustomers.Clear
Sheets("Kunden").Visible = xlVeryHidden
Exit Sub
End Sub

     Code eingefügt mit Syntaxhighlighter 1.14

Gruß
Bertram

Anzeige
Re: ListBox
24.04.2003 23:16:33
Stefan

Hallo Bertram,

vielen Dank für die schnelle Antwort! Mein Problem ist, dass ich die ListBox "on the fly" füllen möchte, also folgendermaßen:

frmSuche.lstGefunden.List('''gehe in die nächste/ungefüllte Zeile der ListBox und füge folgenden, mehrspaltigen aber einzeiligen, array ein''') = arrUnten

Gibt es da eine einfache Lösung oder wirklich nur die Realisierung via Parameter-Blatt?

Re: ListBox
25.04.2003 14:51:31
Bertram

Hallo Stefan,

leider habe ich noch nicht so viel mit mehspaltigen Listboxen gemacht und weiß nicht genau was du meinst, aber ich bemühe mich eine Lösung zu finden.

Gruß
Bertram

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige