Pulldown Menü füllen
08.11.2013 08:58:15
Stefan
ich habe ein bestehendes Makro, welches mir aus der Tabelle "Gruppe-Zeitwert"
die erste Zeile für ein Pulldown Menü einliest.
Jetzt hat sich das Geändert, so dass er nicht mehr die erste Zeile einlesen soll,
sondern die erste Spalte (A).
Kann mir jemand sagen, wie man den Code anpassen muß ?
Public Sub Bereich_füllen()
Dim a As Range, Ls As Integer, X As Long
Dim a2 As Range, Ls2 As Integer, X2 As Long
ReDim Spalten(X)
With ThisWorkbook.Sheets("Gruppe-Zeitwert")
Ls = .Cells(1, .Columns.Count).End(xlToLeft).Column
Me.COB_bereich.Clear
For Each a In .Range(.Cells(1, 1), .Cells(1, Ls))
If Trim(a) "" Then
ReDim Preserve Spalten(X)
Spalten(X) = a.Column
Me.COB_bereich.AddItem a
X = X + 1
End If
Next a
End With
End Sub
Stefan
Anzeige