Makrocode-Problem
14.10.2002 18:46:10
Jens
Wo liegt hier der Fehler?
Sub test()
Application.ScreenUpdating = False
'Dim intRow As Integer, i As Integer
Dim i As Integer
'intRow = ListBox1.ListIndex + 2
For i = 5 To 255 Step 5
Sheets("Speicher").Range(Sheets("Speicher").Cells(3, i - 4), Sheets("Speicher").Cells(3, i)).Copy
Sheets("Tabelle1").Range("A" & i / 5 + 1).PasteSpecial Paste:=xlValues
Next
Zellen_verbinden
Rechnungssumme
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Danke für eure Hilfe Jens
Anzeige