Herbers Excel-Forum - das Archiv

Combo nur sichtbare TabEinträge laden

Bild

Betrifft: Combo nur sichtbare TabEinträge laden
von: Drazen

Geschrieben am: 03.03.2005 20:31:09
Hallo,
könnte man diesen Code irgendwie umbauen, so dass er nur sichtbare Zellen in die Combo lädt?
Sub Combo()
Dim col As New Collection
Dim iRow As Integer
iRow = 1
On Error Resume Next
Do Until IsEmpty(Cells(iRow, 30))
col.Add Cells(iRow, 30), Cells(iRow, 30)
iRow = iRow + 1
Loop
For iRow = 1 To col.Count
cboKunde.AddItem col(iRow)
Next iRow
cboKunde.ListIndex = 0
End Sub

Code ist von Hans und funktioniert super(Danke Sepp) nur möchte ich gerne auch noch die per Autofilter ausgeblendeten Zeilen weglassen aus der Combo. Wer könnte weiterhelfen?

Grüsse
Drazen
Bild

Betrifft: AW: Combo nur sichtbare TabEinträge laden
von: Bert

Geschrieben am: 03.03.2005 20:42:16
Hi,
wieder am basteln?
Option Explicit
Sub Combo()
Dim col As New Collection
Dim lRow As Long 'Zeilen immer As Long!!!!!!!!
lRow = 1
On Error Resume Next
Do Until IsEmpty(Cells(lRow, 30))
If Not Rows(lRow).Hidden Then
col.Add Cells(lRow, 30), Cells(lRow, 30)
lRow = lRow + 1
End If
Loop
For lRow = 1 To col.Count
cboKunde.AddItem col(lRow)
Next lRow
cboKunde.ListIndex = 0
End Sub

Gruß Bert
Bild

Betrifft: AW: Combo nur sichtbare TabEinträge laden
von: Drazen

Geschrieben am: 03.03.2005 20:56:16
Hi Bert,
was wäre ich nur ohne Deine Hilfe, aber sorry ich hab die falsche combo genommen:
Sub Combo1()
Dim dol As New Collection
Dim aRow As Long
aRow = 1
cboBestellung.Clear
On Error Resume Next
Do Until IsEmpty(Cells(aRow, 27))
dol.Add Cells(aRow, 27).Text, Cells(aRow, 27).Text
If Err.Number = 0 Then
cboBestellung.AddItem Cells(aRow, 27)
Else
Err.Clear
End If
aRow = aRow + 1
Loop
On Error GoTo 0
cboBestellung.ListIndex = 0
lstBestellung.Clear
lstBestellung.Enabled = False
End Sub

Gehts damit genauso?
SORRY SORRY.
Grüsse
Drazen
P.S. Ich lass jetzt nich locker ich wills lernen und bin unermüdlich dabei.
Bild

Betrifft: AW: Combo nur sichtbare TabEinträge laden
von: Bert

Geschrieben am: 03.03.2005 21:08:15
Hi,
klar:
Option Explicit
Sub Combo1()
Dim col As New Collection
Dim lRow As Long
lRow = 1
With cboBestellung
.Clear
On Error Resume Next
Do Until IsEmpty(Cells(lRow, 27))
col.Add Cells(lRow, 27).Text, Cells(lRow, 27).Text
If Err.Number = 0 And Not Rows(lRow).Hidden Then
.AddItem Cells(lRow, 27)
Else
Err.Clear
End If
lRow = lRow + 1
Loop
On Error GoTo 0
.ListIndex = 0
End With
lstBestellung.Clear
lstBestellung.Enabled = False
End Sub

Gruß Bert
Bild

Betrifft: ...vielen Dank, das habe ich gesucht. o.T.
von: Drazen
Geschrieben am: 03.03.2005 21:21:59
 Bild
Excel-Beispiele zum Thema "Combo nur sichtbare TabEinträge laden"
Sichtbare Blätter drucken Zelleingaben in nicht sichtbarem Blatt protokollieren
Nur sichtbare Zellen addieren Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen
Nur sichtbare Zellen in anderes Arbeitsblatt kopieren Alle sichtbaren Zeilen zählen
Den sichtbaren Bereich ermitteln