Laufzeitfehler6 Überlauf
28.11.2006 14:50:53
achim
wer kennt sich aus
bekomme die fehlermeldung: Laufzeitfehler6 = Überlauf
habe das makro
Sub zeigeAnzVörfälle_click()
Dim i As Integer
Sheets("Filter").Activate
i = ActiveSheet.UsedRange.Rows.Count
With Grunddaten.ListBox1
.ColumnCount = 13
.ColumnHeads = True
.RowSource = "Filter!A2:M" & i
'A B C D E F G H I J K L M
.ColumnWidths = "2cm;2cm;2cm;2cm;2cm;2cm;2cm;2cm;2cm;2cm;2cm;2cm;2cm"
End With
End Sub
gruss achim h.
Anzeige