da ich mit Schleifenprogrammierung echt noch keine Erfahrung habe und ich nun schon einige Zeit in der Recherche verbracht habe, dachte ich, dass das Problem was ich habe bestimmt von einem der hier anwesenden Spezis ein leichtes Spiel ist ... *schmoll*
Mein Quelltext sieht momentan so aus:
Sub ImpMatrix()
Dim X As String
Dim Y As String
X = "Improvement Matrix"
Y = Sheets("Improvement Matrix").[d3].Text
Sheets(X).[b3].Copy Sheets(Y).[a80]
Sheets(Y).Range("b80:aa80").Copy
Sheets(X).Range("af3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Y = Sheets("Improvement Matrix").[d4].Text
Sheets(X).[b4].Copy Sheets(Y).[a80]
Sheets(Y).Range("b80:aa80").Copy
Sheets(X).Range("af4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Y = Sheets("Improvement Matrix").[d5].Text
Sheets(X).[b5].Copy Sheets(Y).[a80]
Sheets(Y).Range("b80:aa80").Copy
Sheets(X).Range("af5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Die dotted line: '---------------------------------- stellt immer eine "quasi" Schleife dar, in der 3 Argumente um eine Zeile erhöht sind.
Wie bekomme ich das einfach in einer Schleife hin, am besten bis der Bereich Improvement Matrix d3:d200 = leer ist (bezieht sich auf: Y = Sheets("Improvement Matrix").[d3].Text)
Mit einer einfachen Schleife von 1-200 wäre mir aber schon geholfen. :)
Thanks