Microsoft Excel

Herbers Excel/VBA-Archiv

Combobox mit 2 Spalten und 2 Zeilenbereichen

Betrifft: Combobox mit 2 Spalten und 2 Zeilenbereichen von: Andreas
Geschrieben am: 24.09.2014 18:24:49

Hallo Excelprofis,

Ich hab mal wieder ein Problem bei dem ich trotz langer recherche keine Lösung finde.

Ich habe eine Combobox auf einem UserForm mit 2 Spalten (ColumnCount = 2). In dieser Combobox möchte ich folgendes angezeigt bekommen:

- 1. Spalte der Combobox = Spalte D der Zeilen 4 bis 19 und 24 bis 43
- 2. Spalte der Combobox = Spalte F der Zeilen 4 bis 19 und 24 bis 43

Den oberen Zeilenbereich habe ich schon hinbekommen. Wie bekomme ich den 2. Zeilenbereich (Zeilen 24 bis 43) in den Code?

Private Sub UserForm_Initialize()

With ComboBox2
       For a = 4 To 19
            .AddItem ActiveSheet.Cells(a, 4) & " " & ActiveSheet.Cells(a, 6).Value
        Next a
    End With


End Sub


Danke fürs lesen und die Hilfe!

mfg, Andreas

  

Betrifft: AW: Combobox mit 2 Spalten und 2 Zeilenbereichen von: Beverly
Geschrieben am: 24.09.2014 19:58:50

Hi Andreas,

vielleicht so:

        For a = 4 To 43
            If a = 20 Then a = 24
            .AddItem ActiveSheet.Cells(a, 4) & " " & ActiveSheet.Cells(a, 6).Value
        Next a

GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Combobox mit 2 Spalten und 2 Zeilenbereichen von: Andreas
Geschrieben am: 24.09.2014 20:13:49

Hallo Karin,

vielen Dank für die Hilfe, funktioniert super. Jetzt ist mir aber noch ein Problem aufgefallen, oder soll ich lieber nen neuen Beitrag schreiben.

In beiden Zeilenbereichen sind auch Zeilen ausgeblendet (wenn SpalteA Leer), die sollen nicht in der Combobox auftauchen.

Es sollen also nur sichtbare Zeilen in der Combobox erscheinen, kannst du mir da auch helfen.

Vielen Dank!

mfg, Andreas


  

Betrifft: AW: Combobox mit 2 Spalten und 2 Zeilenbereichen von: Beverly
Geschrieben am: 24.09.2014 20:23:06

Hi Andres,

das ist doch kein Problem - da muss man das nur prüfen:

    With ComboBox1
        For a = 4 To 43
            If a = 20 Then a = 24
            If Rows(a).RowHeight > 0 Then
                .AddItem ActiveSheet.Cells(a, 4) & " " & ActiveSheet.Cells(a, 6).Value
            End If
        Next a
    End With

GrußformelBeverly's Excel - Inn


  

Betrifft: Vielen Dank für die Hilfe!!! owT. von: Andreas
Geschrieben am: 24.09.2014 20:42:19

.


 

Beiträge aus den Excel-Beispielen zum Thema "Combobox mit 2 Spalten und 2 Zeilenbereichen"