Listbox füllen mit Daten aus ausgeblendetem Sheet
13.06.2006 10:40:18
andre
ich habe bisher folgenden Code, der auch gut funktioniert.
Ich möchte aber dieses Sheet ausgeblendet lassen.
Da liegt das Problem. Soblad ich das Datenblatt nicht auch anzeige funktioniert es nicht.
Vielleicht ha ja jemand eine Idee?
Private Sub UserForm_Initialize()
Dim rngSource As Object
Dim intColums As Integer
ListBox1.Tag = 1
Set rngSource = Range("A1").CurrentRegion
Set rngSource = rngSource.Offset(1, 0).Resize(rngSource.Rows.Count - 1, rngSource.Columns.Count)
intColums = rngSource.Columns.Count
With Me.ListBox1
.ColumnCount = intColums
.ColumnHeads = True
.RowSource = rngSource.Address
End With
Set rngSource = Nothing
ListBox1.Tag = ""
End Sub
Mfg
Andre
Anzeige