Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Gefilterte Daten in ComBox

Gefilterte Daten in ComBox
11.03.2007 14:57:00
Ingo
Hallo alle zusammen
am 17.1.2007 hat Rudi eine Super Lösung für das Anzeigen von gefilterten Daten in einer CombBox geschrieben.
Der die Daten einer Tabelle mit Auto Filter in eine ComboBox anzeigt.
Nun meine Frage: Es wird nur das Spalte A angezeigt wie muß ich den Code verendern wenn auch noch B und C Angezeigt werden soll?
Das war der Cod mit dem man Spalte A anzeiben läst.
Private Sub UserForm_Initialize()
Dim i As Long, n As Long
Dim wks As Worksheet, vntList()
Set wks = ThisWorkbook.Sheets("Tabelle1")
With wks
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(.Range(.Cells(2, 1), .Cells(i, 1)), .Cells(i, 1)) = 1 And _
.Rows(i).Hidden = False Then _
n = n + 1
ReDim Preserve vntList(1 To 1, 1 To n)
vntList(1, n) = .Cells(i, 1)
End If
Next i
End With
Debug.Print UBound(vntList, 2)
ComboBox1.List = WorksheetFunction.Transpose(vntList)
End Sub

Gruß Ingo

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gefilterte Daten in ComBox
11.03.2007 15:19:00
Kurt
Private Sub UserForm_Initialize()
Dim i As Long, n As Long
Dim wks As Worksheet, vntList()
Set wks = ThisWorkbook.Sheets("Tabelle1")
ComboBox1.ColumnCount = 3
ComboBox1.ColumnWidths = "2cm;2cm;3cm"
With wks
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(.Range(.Cells(2, 1), .Cells(i, 1)), .Cells(i, 1)) = 1 And _
.Rows(i).Hidden = False Then _
n = n + 1
ReDim Preserve vntList(1 To 3, 1 To n)
vntList(1, n) = .Cells(i, 1)
vntList(2, n) = .Cells(i, 2)
vntList(3, n) = .Cells(i, 3)
End If
Next i
End With
Debug.Print UBound(vntList, 2)
ComboBox1.List = WorksheetFunction.Transpose(vntList)
End Sub

mfg Kurt
Anzeige
AW: Gefilterte Daten in ComBox
11.03.2007 15:26:05
Peter
Hallo Ingo,
versuch es so:


Private Sub UserForm_Activate()
Dim i    As Long
Dim n    As Long
Dim wks  As Worksheet
Dim vntList()
   Set wks = ThisWorkbook.Sheets("Tabelle1")
   With wks
      For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
          If WorksheetFunction.CountIf(.Range(.Cells(2, 1), .Cells(i, 1)),  .Cells(i, 1)) = 1 And _
           &n bsp;.Rows(i).Hidden = False Then
            n = n& nbsp;+ 1
            ReDim Preserve vntList(1 To 3, 1 To n)
           &n bsp;vntList(1, n) = .Cells(i, 1)
       &nbsp ;    vntList(2, n) = .Cells(i, 2)
    &n bsp;       vntList(3, n) = .Cells(i, 3)
&nbsp ;        End If
      Next i
   End With
   'Debug.Print UBound(vntList, 2)
   ComboBox1.List&nbsp ;= WorksheetFunction.Transpose(vntList)
End Sub 


Gruß Peter
Anzeige
AW: Gefilterte Daten in ComBox
13.03.2007 20:08:45
Ingo
Danke für die antworten hat wundaba geklappt.
Danke

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige