Thema Datum  Von Nutzer Rating
Antwort
Rot Zellen von offenen Excel Files kopieren
27.07.2020 18:18:16 fre4k
NotSolved
28.07.2020 02:02:35 Gast29070
NotSolved
28.07.2020 02:06:06 Gast96549
NotSolved

Ansicht des Beitrags:
Von:
fre4k
Datum:
27.07.2020 18:18:16
Views:
43
Rating: Antwort:
  Ja
Thema:
Zellen von offenen Excel Files kopieren

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Zellen von offenen Excel Files kopieren
27.07.2020 18:18:16 fre4k
NotSolved
28.07.2020 02:02:35 Gast29070
NotSolved
28.07.2020 02:06:06 Gast96549
NotSolved