Fehler: Ungültige Verweis auf Next-Steuervariable
02.12.2003 10:25:52
ewald
im folgenden Makro sollen Spalten blockweise je 4 Spalten
in die Tabelle2 kopiert und transportiert (Spalten in Zeilen
tauschen) werden.
Sub t()
Dim zeile As Long
Dim spalte As Integer
Dim lZeile As Integer 'erste leere Zeile in Tabelle2
Dim TB2 As Worksheet
Set TB2 = Worksheets("Tabelle2")
Application.CutCopyMode = True
With ActiveSheet
zeile = .Range("A65536").End(xlUp).Row
For spalte = 2 To 17 Step 4
For lZeile = 1 To TB2.Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range(.Cells(4, spalte), .Cells(zeile, spalte + 3)).Copy _
TB2.Range("A" & lZeile).PasteSpecial Paste:=xlAll, Operation:=
xlNone, SkipBlanks:=False _
, Transpose:=True
Next spalte
Next lZeile
End With
Application.CutCopyMode = False
End Sub
Nun bekomme ich eine Fehlermeldung: "Fehler bei Kompilieren
Ungültige Verweis auf Next-Steuervariable"
Was mache ich falsch?
Kann mir jamand helfen?
Vielen Dank im Voraus
Grüße