Erklärung des folgende Codes
29.06.2006 11:10:42
Swen
wer kann mir folgenden Programmcode genauer erklären?
Private Sub UserForm_Activate()
Dim z As Long, lz As Long, rc As Long
rc = Rows.Count
lz = IIf(Cells(rc, 1) <> "", rc, Cells(rc, 1).End(-4162).Row)
lb1.RowSource = Range("A2:E" & lz).Address
lb1.ColumnWidths = "4,5cm;3cm;1,5cm;4cm;4cm"
End Sub
Gruß
Swen