Verbesserung des Makros möglich?
15.12.2004 22:02:02
Sonnenpeter
ich habe mir da ein Makro gestrickt das funktioniert :-)
Es dauert mir aber zu lange, was ist falsch? wie könnte ich es schneller machen?
Gruß/ Sonnenpeter
Sub Letze_8_Wochen()
Sheets("LetzteWochen").Rows("2:2000").ClearContents
Anzahl = Sheets("Zettel").Range("AA1").Value
LetzteZeile = Sheets("Statistik").Range("V23").Value + 3
EintrZelle = 2
Zähler = 1
Do While Zähler < Anzahl
LetzteSpalte = 2
EintrSpalte = 1
LetzteZeile = LetzteZeile - 1
For i = 1 To 7
Sheets("LetzteWochen").Cells(EintrZelle, EintrSpalte).Value = _
Sheets("Bisherige Zahlen").Cells(LetzteZeile, LetzteSpalte).Value
LetzteSpalte = LetzteSpalte + 1
EintrSpalte = EintrSpalte + 1
If i = 6 Then
LetzteSpalte = LetzteSpalte + 1
End If
Next i
Zähler = Zähler + 1
EintrZelle = EintrZelle + 1
Loop
End Sub
Anzeige