|
Hallo liebes Forum,
ich versuche gerade anhand eines kleinen Bsp Programmes dem Thema VBA näher zu kommen da ich hier ganz neu bin. Da es auch einen praktischen Nutzen haben soll möchte ich eine kleine Aufgabe für mich etwas automatisieren.
Unzwar möchte ich aus einer Quelldatei bestimmte Zellen in eine andere Zieldatei kopieren. Die Position der Daten in der Quelldatei ist immer die gleiche. In der Zieldatei soll abhängig von Monat eine bestimmte Spalte gewählt werden.
Für diese Aufgabe wird der Monat als Ziffer in eine Zeile vom Benutzer eingetragen und hier ausgelesen. Damit das Bsp einfach bleibt soll das Makro bei geöffneten Quell- und Zieldatei durchgeführt werden.
So lange Rede kurzer Sinn, den Code habe ich mir überlegt:
Sub DatenKopieren()
Dim Monat As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Monat = Cells(3, 1).Value
Workbooks("Zieldatei.xlsx").Worksheets("Tabelle1").Range(Cells(2, Monate), Cells(13, Monate)).Value = Workbooks("Quelldatei.xlsm").Worksheets("Tabelle1").Range("F22:F33").Value
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Ich habe das ganze ohne dem Einfluss des Monats und nur mit einem Range() Befehl auch bei der Zieldatei ausprobiert und das hat auch geklappt. Nachdem ich das ganze um Range(Cells(),Cells()) erweitert habe, funktioniert es nicht mehr.
Hat hier jemand einen Tipp für mich ?
lg
|