UserForm Daten aus Tabelle anzeigen.
27.09.2005 13:48:58
Achim
Ich lasse mir über eine UserForm Tabellen Inhalte anzeigen.(Siehe Makro)
Leider werden die zuvor eingefärbten Zellen (aus der Tabelle)in der UserForm nicht gezeigt.Kann man das ändern?
Private Sub UserForm_Initialize()
Dim i As Integer
Sheets("DatenErfasser").Activate
i = ActiveSheet.UsedRange.Rows.Count
With AuswFrageb1.ListBox1
.ColumnCount = 5
.ColumnHeads = True
.RowSource = "DatenErfasser!A2:E32"
.ColumnWidths = "2,5cm;9cm;10cm;3cm;3cm"
End With
End Sub
Gruß Achim H.
Anzeige