Fehler: Ungültige Verweis auf Next-Steuervariable

Bild

Betrifft: Fehler: Ungültige Verweis auf Next-Steuervariable
von: ewald
Geschrieben am: 02.12.2003 10:25:52

Hallo zusammen,

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
Bild


Betrifft: AW: Fehler: Ungültige Verweis auf Next-Steuervariable
von: FCH
Geschrieben am: 02.12.2003 10:39:48

Hi,

vertausche mal Next spalte mit Next lZeile

Gruß
FCH


Bild


Betrifft: AW: Fehler: Ungültige Verweis auf Next-Steuervariable
von: ewald
Geschrieben am: 02.12.2003 11:02:12

Hallo FCH,

leider funktioniert es trodzdem nicht

Vielen Dank.

Grüße


Bild


Betrifft: noch offen
von: FCH
Geschrieben am: 02.12.2003 11:14:05

Hi,

also die Schleife muss so laufen, ob dein Transponieren so hinhaut, hab ich jetzt nicht getestet.

Gruß
FCH


Bild


Betrifft: AW: noch offen
von: Nike
Geschrieben am: 02.12.2003 11:17:05

Hi,
du versuchst nen 4 Spaltigen Bereich in eine Spalte zu kopieren,
das wird "eng" ;-)

Bye

Nike


Bild


Betrifft: AW: Leider funktion. nicht
von: ewald
Geschrieben am: 02.12.2003 13:05:49

Hallo zusammen,

ich weiss nicht was ich falsch nmache, es fnkt. nicht

Grüße


Bild


Betrifft: AW: Makro funktioniert
von: ewald
Geschrieben am: 02.12.2003 13:16:14

Hallo zusammen,

so funktioniert es:


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
.Range(.Cells(4, spalte), .Cells(zeile, spalte + 3)).Copy
lZeile = TB2.Cells(Rows.Count, 1).End(xlUp).Row + 1
 TB2.Range("A" & lZeile).PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=True
 Next spalte
End With
Application.CutCopyMode = False
End Sub


Vielen Dank.

Grüße


Bild

Beiträge aus den Excel-Beispielen zum Thema " Fehler: Ungültige Verweis auf Next-Steuervariable"