Lösung mit Schleife?
18.01.2005 12:49:36
Matthias
meine Problem ist folgendes:
Dieser Quellcode soll sich 20 mal wiederholen aber statt Range("J336:U341") soll 13 Zeilen tiefer ("J349:U354")die Werte kopiert und hinter den anderen Werten also ("Matrix") Range("J14") genommen werden. Dann fängt es wieder von vorne an, statt ("J349:U354") nun ("J362:U367")usw.
Sub FaktorprämieGesamt()
Sheets("Inputdaten").Select
Range("J336:U341").Select
Selection.Copy
Sheets("Matrix").Select
Range("J2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Sheets("Inputdaten").Select
End Sub