Makro in UserForm
17.11.2005 10:25:19
achim
Wer kann helfen?
Geht das?
ListBox soll die ausgeblendeten Spalten und Zeilen nicht zeigen.(zB. nach dem Filtern in der Tabelle oder wenn vorher schon Spalten oder Zeilen ausgeblendet wurden)
Anbei mein Makro
Private Sub UserForm_Initialize()
Dim i As Integer
Sheets("Dienste").Activate
i = ActiveSheet.UsedRange.Rows.Count
With Dienste.Dienstezeige
.ColumnCount = 5
.ColumnHeads = True
.RowSource = "Dienste!A1:I" & i
.ColumnWidths = "1cm;2cm;2cm;1cm;1cm;1cm;1cm"
End With
End Sub
Danke gruß achim h.