Office: (Office 2007) Über Kopierfunktion eine Zeitreihe erstellen

Moin Moin an alle,

ich möchte innerhalb eines Tabellenblattes in Excel eine Zeitreihe erstellen. Hierbei sollen die Werte der Spalte C (diese Spalte wird durch eine SVERWEIS-Funktion monatlich mit aktuellen Daten gefüllt) nach rechts kopiert werden. Also möchte ich im Januar die Daten in Spalte D kopieren, im Februar in Spalte E usw. Soll soll eine Zeitreihe aufgebaut werden. Ich habe mir ein Makro geschrieben, das jedoch nicht richtig funkt!

Dim n As Integer
Application.ScreenUpdating = False
Sheets("Zeitreihe SK").Select
Range("C8:C1000").Select
Selection.Copy
n = ActiveSheet.UsedRange.Columns.Count
ActiveSheet.Cells(1, n + 1).Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveSheet.Cells(1, n + 1).Select
Application.CutCopyMode = False
Application.ScreenUpdating = True

Was habe ich verkehrt gemacht?

Gruß Ghost

:)

 

Hallo Ghost,

da du in deiner Problembeschreibung nicht verrätst, was dabei schief läuft, muss man spekulieren, was schief laufen könnte. Da sticht mir eigentlich nur eines in's Auge. UsedRange ist ein unzuverlässiger Zeitgenosse. Statt dessen solltest du die letzte Spalte, bzw. die Spalte dahinter mit "Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)" bestimmen. Wenn man deinen Code dann noch ein bisschen aufräumt, kommt etwa folgendes dabei raus:
Code:

 

Hallo Ingolf,

ich beschäftige mich erst seit kurzer Zeit mit VBA.

Ich habe dein Makro 1:1 kopiert, doch leider funktioniert es nicht.
Es läuft zwar durch, doch es wird nichts kopiert und bleibt alles beim alten.

Beim meinem alten Makro wird der Bereich C8:C1000 markiert, doch die Kopierfunktion läuft nicht durch.

Was mache ich falsch?

Gruß Ghost

 

Hallo Ghost,

das einfach gar nichts passiert, kann ich mir eigentlich nicht vorstellen. Es sei denn, du erwartest, dass das Makro bei einem bestimmten Ereignis automatisch anläuft. Dazu muss es richtig implementiert sein. Kannst du eine Beispielmappe hochladen?

Gruß Ingolf

 

Hallo Ingolf,

ich habe Dir den entsprechenden Ausschnitt aus meiner Datei als ZIP hochgeladen.

Ich danke Dir für Deine Mühe im Voraus!


Ghost

 

Hallo Ghost,

mein Fehler. Ich hätte mich beim Feststellen der nächsten freien Spalte auf Zeile 8 beziehen müssen, da deine Daten ja erst da anfangen. Statt dessen habe ich mich auf Zeile 1 bezogen und das ging schief, weil dort nichts drinsteht. Excel hat daher immer versucht, die Daten in Spalte B, ab Zeile 1 einzufügen. Das hat dann aber zu einem Fehler geführt, weil du im Tabellenkopf verbundene Zellen hast. Hier das korrigierte Makro:
Code:

 

Hallo Ingolf,

was soll ich sagen..... es funkt!

Ich danke Dir für deine Unterstützung!

Gruß Ghost