Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
15.01.2019 12:44:36 |
Herbert |
|
|
|
15.01.2019 12:48:25 |
Herbert |
|
|
|
15.01.2019 16:33:42 |
Werner |
|
|
|
15.01.2019 16:51:25 |
Herbert |
|
|
Array in ListBox wird nicht angezeigt |
15.01.2019 18:27:42 |
Werner |
|
|
|
16.01.2019 11:06:42 |
Gast10950 |
|
|
|
15.01.2019 20:25:38 |
Gast79525 |
|
|
Von:
Werner |
Datum:
15.01.2019 18:27:42 |
Views:
497 |
Rating:
|
Antwort:
|
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
|
- 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
|
|
15.01.2019 12:44:36 |
Herbert |
|
|
|
15.01.2019 12:48:25 |
Herbert |
|
|
|
15.01.2019 16:33:42 |
Werner |
|
|
|
15.01.2019 16:51:25 |
Herbert |
|
|
Array in ListBox wird nicht angezeigt |
15.01.2019 18:27:42 |
Werner |
|
|
|
16.01.2019 11:06:42 |
Gast10950 |
|
|
|
15.01.2019 20:25:38 |
Gast79525 |
|
|