Thema Datum  Von Nutzer Rating
Antwort
Rot Array in ListBox wird nicht angezeigt
15.01.2019 12:44:36 Herbert
NotSolved
15.01.2019 12:48:25 Herbert
NotSolved
15.01.2019 16:33:42 Werner
NotSolved
15.01.2019 16:51:25 Herbert
NotSolved
15.01.2019 18:27:42 Werner
Solved
16.01.2019 11:06:42 Gast10950
Solved
15.01.2019 20:25:38 Gast79525
NotSolved

Ansicht des Beitrags:
Von:
Herbert
Datum:
15.01.2019 12:44:36
Views:
90
Rating: Antwort:
  Ja
Thema:
Array in ListBox wird nicht angezeigt

Hallo Leute

Ich versuche ein Tool zur suche von Sachen in einer Liste zu konstruieren. Dennoch gelingt es mir nicht so wie ich es möchte, mein problem ist das mein 2D array in der ListBox1 nicht angezeigt wird. Das ist der Code:

Private arrIN() As Variant
Private shCount As Long

Private Sub UserForm_Initialize()

    Dim Current As Worksheet
    Dim i As Integer
    Dim a As Integer
    Dim k As Long
    Dim s As String
    
    For Each Current In Worksheets
        If Current.CodeName <> "Tabelle1" And Current.Name <> "Datenbank einlesen" And Sheets(Current.Name).Visible = True Then
            shCount = i
            i = i + 1
        End If
    Next
    
    If i = 0 Then
        MsgBox "Es ist keine Datenbank vorhanden!" & Chr(13) & "Bitte importieren sie eine Datenbank ", vbInformation, "Hinweiß!"
        Unload UserForm1
        Exit Sub
    End If
    
    ReDim arrIN(shCount)
    
    For Each Current In Worksheets
        If Current.CodeName <> "Tabelle4" And Sheets(Current.Name).Visible = True Then
            arrIN(a) = Sheets(Current.Name).Range("D2:D" & Sheets(Current.Name).Cells(Rows.Count, 1).End(xlUp).Row)
            a = a + 1
        End If
    Next
    
    'For Each Current In Worksheets
    '    If Current.CodeName <> "Tabelle1" And Current.Name <> "Datenbank einlesen" And Sheets(Current.Name).Visible = True Then
    '        ReDim arrIN(shCount, Sheets(Current.Name).Cells(Rows.Count, 1).End(xlUp).Row, 4)
    '        arrIN = Sheets(Current.Name).Range("B2:E" & Sheets(Current.Name).Cells(Rows.Count, 1).End(xlUp).Row)
    '    End If
    'Next
    
    ListBox1.List = arrIN(10)  'Array(arrIN(0), arrIN(1), arrIN(2), arrIN(3), arrIN(4), arrIN(5), arrIN(6), arrIN(7), arrIN(8), arrIN(9), arrIN(10))
     
End Sub

Vielen Dank schon mal im vorraus
Herbert

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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 markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Array in ListBox wird nicht angezeigt
15.01.2019 12:44:36 Herbert
NotSolved
15.01.2019 12:48:25 Herbert
NotSolved
15.01.2019 16:33:42 Werner
NotSolved
15.01.2019 16:51:25 Herbert
NotSolved
15.01.2019 18:27:42 Werner
Solved
16.01.2019 11:06:42 Gast10950
Solved
15.01.2019 20:25:38 Gast79525
NotSolved