Thema Datum  Von Nutzer Rating
Antwort
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
Rot Array in ListBox wird nicht angezeigt
 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:
Werner		 Datum:
15.01.2019 18:27:42		 Views:
447		 Rating:
     
Antwort:
 Nein
Thema:
Array in ListBox wird nicht angezeigt

Hallo Herbert,

kein Ahnung von was du sprichst. Vielleicht so:

Dim Current As Worksheet, arrIN() As Variant, shCount As Long
Dim a As Long, i As Long, z As Long, loLetzte As Long, loZahl As Long, 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, "Hinweis!"
    Unload UserForm1
    Exit Sub
End If
 
For Each Current In Worksheets
    If Current.CodeName <> "Tabelle4" And Sheets(Current.Name).Visible = True Then
        With Sheets(Current.Name)
            loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
            If IsArray(arrIN) Then
                On Error Resume Next
                loZahl = UBound(arrIN)
                If Err.Number <> 0 Then
                    ReDim Preserve arrIN(loLetzte - 1)
                    On Error GoTo 0
                Else
                    ReDim Preserve arrIN((UBound(arrIN)) + loLetzte - 1)
                End If
            End If
            For z = 2 To loLetzte
                arrIN(a) = .Cells(z, 4)
                a = a + 1
            Next z
        End With
    End If
Next

ReDim Preserve arrIN(UBound(arrIN) - 1)
ListBox1.List = arrIN

 

Gruß Werner

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
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
Rot Array in ListBox wird nicht angezeigt
 15.01.2019 18:27:42 Werner
Solved
16.01.2019 11:06:42 Gast10950
Solved
15.01.2019 20:25:38 Gast79525
NotSolved