Guten Tag,
ich würde gerne einen bestehenden Code ausbauen. Der bisherige kopiert den Wert aus Spalte A1 in die Spalte 20 und fügt darüber eine neue Spalte ein.
Nun würde ich gerne einen Wert aus Spalte B1 entsprechend in B20 einfügen. Idealerweise soll in C20 das aktuelle Datum abgelegt werden (in Kalenderwochen oder auch in XX.XX.XXXX Form. Sodass man am Ende eine Tabelle hat mit den Werten zu unterschiedlichen Tagen um einen Verlauf zu erkennen.
Kann man das Makro auch immer Montags automatisch ablaufen lassen? Und gibt es eine Funktion die alle Tabellenblätter (100 an der Zahl) anspricht - außer das erste ?
Ich danke euch!
Nun Der Code:
Sub KopiereBereich()
Dim Tabelle1 As Worksheet
Dim Zelle As Range
Dim Zaehler As Long
Zaehler = 20
Bereich = "A1"
Set Tabelle1 = ActiveWorkbook.Worksheets("Tabelle1")
For Each Zelle In Tabelle1.Range("A1")
Tabelle1.Cells(Zaehler, 1) = Zelle
Zaehler = Zaehler + 1
Rows("20").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next Zelle
End Sub
|