2 Anfrage / Verbesserung des Makros
17.12.2004 17:21:25
Sonnenpeter
ich habe mir da ein Makro gestrickt das funktioniert :-)
Da ich die Zuweisungen "Dim als" eifach nicht drauf habe / bzw. noch lernen muß, biite ich die VBA - Spezialisten hier, um Hilfe.
Sicher gibt es auch andere Wege zum Ziel, ich möchte jedoch gerne diesen Weg.
Dankbar für jede Hilfe, Gruß/ Sonnenpeter
PS: Level VBA gut ist übertrieben / Nein ist aber auch falsch. Excel gut trifft sicherlich zu :-)
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