Makro anpassen
31.10.2002 15:04:43
Jens
mit dem nachfolgendem Code will ich nach einer Auswahl in UF-Listbox das makro entsprechend ausführen. Wenn z.B. in der Listbox der 3. Eintrag ausgewählt ist soll aus TB "Speicher" die Werte aus Zeile 3 kopiert werden. Ich habe schon etwas probiert aber noch nicht zum laufen bekommen. Ich bekomme immer eine Fehlermeldung in der Zeile "'intRow = ListBox1.ListIndex + 2".
Was ist dabei falsch?
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
Application.ScreenUpdating = True
End Sub
Danke für eure Hilfe Jens
Anzeige