Office: Makro erstellen

Hi und guten Tag ,
Vielleicht kann mir jemand weiterhelfen in Sachen Makro.
Ich habe ein Makro erstellt dafür dass ich über eine Eingabemaske ( eine Excel Tabelle ) Daten automatisch in eine andere Excel Datei überträgt. Das funktioniert auch einwandfrei. In dem Makro ist natürlich die Datei aufgeführt in der ich bei der Aufzeichnung übertragen habe. Wenn ich nun unabhängig vom Namen ( Struktur ist immer gleich ) das Makro für jede Datei nutzen möchte unabhängig vom Namen. Wie sieht dann der Eintrag im Makro aus ?

 

Hallo,

dann lässt du du den Bezug zur Zieldatei weg, dann wirkt das Makro auf die jeweils aktive Datei.

 

Danke erstmal, habe die Zieldatei ausgeklammert (`Windows("048234_1.xlsm").Activate)
hatte zwei Excel Dateien offen ( eine davon war die Nachkalkulationen.xlsm), bekomme aber beim Ausführen
die Fehlermeldung "Index außerhalb des def. Bereichs.




Sub Prüfung()

'

' Prüfung Makro

'


'

Windows("Nachkalkulationen.xlsx").Activate

Sheets("Transfer").Select

Selection.EntireRow.Insert

Range("E5").Select

Selection.Copy

Application.CutCopyMode = False

Selection.Copy

Range("E4").Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

`Windows("048234_1.xlsm").Activate

ActiveWindow.SmallScroll Down:=-10

Range("K4:Q4").Select

Selection.Copy

Windows("Nachkalkulationen.xlsx").Activate

Range("A4").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

`Windows("048234_1.xlsm").Activate

Range("C1:G1").Select

Application.CutCopyMode = False

Selection.Copy

Windows("Nachkalkulationen.xlsx").Activate

Range("B4").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

`Windows("048234_1.xlsm").Activate

Range("A7:G7").Select

Application.CutCopyMode = False

Selection.Copy

Windows("Nachkalkulationen.xlsx").Activate

Range("C4").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

ActiveWindow.SmallScroll Down:=6

`Windows("048234_1.xlsm").Activate

ActiveWindow.SmallScroll Down:=0

Windows("Nachkalkulationen.xlsx").Activate

ActiveWindow.SmallScroll Down:=-6

Windows("048234_1.xlsm").Activate

Range("AP18").Select

ActiveWindow.SmallScroll Down:=8

Range("P30:Q30").Select

Application.CutCopyMode = False

Selection.Copy

Windows("Nachkalkulationen.xlsx").Activate

Range("D4").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

`Windows("048234_1.xlsm").Activate

Range("AR30").Select

Application.CutCopyMode = False

Range("P31:Q31").Select

Selection.Copy

Windows("Nachkalkulationen.xlsx").Activate

Range("E4").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

`Windows("048234_1.xlsm").Activate

Range("AV21").Select

Application.CutCopyMode = False

ActiveWorkbook.Close (True)

End Sub

 

Hi,

wenn ich deinen Code richtig interpretiert habe sollte es so funktionieren:

Code:

Sub Prüfung()
    ' Prüfung Makro
    With Workbookss("Nachkalkulationen.xlsx").Worksheets("Transfer")
        .Range("E4").EntireRow.Insert '<== Zelle anpassen bei der eine Zeile eingefügt werden soll
        .Range("E5").Copy
        .Range("E4").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        ThisWorkbook.Worksheets("Tabelle1").Range("K4:Q4").Copy '<== Tabellenname anpassen
        .Range("A4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        ThisWorkbook.Worksheets("Tabelle1").Range("C1:G1").Copy '<==Tabellenname anpassen
        .Range("B4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        ThisWorkbook.Worksheets("Tabelle1").Range("A7:G7").Copy '<==Tabellenname anpassen
        .Range("C4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        ThisWorkbook.Worksheets("Tabelle1").Range("P30:Q30").Copy '<==Tabellenname anpassen
        .Range("D4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        ThisWorkbook.Worksheets("Tabelle1").Range("P31:Q31").Copy '<==Tabellenname anpassen
        .Range("E4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False '<== weshalb P31:Q31 nach E4 kopieren? Dorthin wurde doch bereits E5 aus der Zieltabelle kopiert
        .Parent.Close (True)
    End With
End Sub

Ich nehme an, bei Zeile 4 soll eine Leerzeile eingefügt werden? Falls nicht, musst du das im Code anpassen.
Da ich nicht weiß, welches die aktive Tabelle in der Mappe mit dem Code ist, habe ich sie einfach "Tabelle1" genannt - musst du selbstverständlich anpassen (an allen Stellen die im Code mit dem entsprechenden Kommentar versehen sind).

Unklar ist, weshalb du zu Beginn des Codes in der Zieltabelle E5 nach E4 kopierst und am Ende des Codes nochmal P31:Q31 aus der Ausgangsmappe in die Zieltabelle ebenfalls nach E4.

---

 

Danke erstmal,
Ich werde es morgen mal ausprobieren. Gibt es auch ne Möglichkeit / Codierung dafür, dass ich nicht eine spezielle Tabelle anspreche, sondern diejenige die neben der „Nachkalkulationen „ auch offen ist . Heute heißt sie Tabelle 1 und morgen Tabelle 2 usw. , also „*.xlsx“ . In der Datei Nachkalkulationen werden die entsprechenden Einträge gemacht, und diese werden dann in eine stets wechselnde Datei eingepflegt.

 

ThisWorkbook ist immer die Arbeitsmappe mit dem Code - also in deinem Fall die Quelldatei, aus der etwas kopiert werden soll. Wenn es die aktive Tabelle der Mappe mit dem Code sein soll, kannst du anstelle ThisWorkbook.Worksheets("Tabelle1") dieses verwenden: ThisWorkbook.ActiveSheet.

---

 

Vielleicht hatte ich mich auch gerade falsch ausgedrückt. Ich habe zwei verschiedene Dateien. Die eine heißt Nachkalkulationen und die zweite hat wechselnde Bezeichnungen. Und aus der festen Datei soll etwas in die variable Datei übertragen werden

 

Moin Linus,
Karin hat Dir einen Hinweis gegeben, der deswegen an Deinem Ziel vorbeiführt, weil Du von Arbeitsmappen, sie von Arbeitsblättern redet. Ihre Idee ist aber gut.

Lege einfach zum Test mal zwei Arbeitsmappen an (müssen noch nicht mal gespeichert werden) und ein Allg. Modul mit folgendem Code:

Code:

Option Explicit

Sub WerBinIch()
    MsgBox ThisWorkbook.Name
End Sub

Sub UndWerNoch()
    MsgBox ActiveWorkbook.Name
End Sub

Nun rufst Du die beiden mal aus der einen Mappe, mal aus der anderen auf und Du hast die Lösung.

Achja: zum Aufruf genügt Alt+F8

Grüße

 

Und in welcher Arbeitsmappe soll sich der Code befinden - in Nachkalkulation oder in der Mappe mit variablen Namen? Sind beide Mappen bereits geöffnet?

---

 

Da irrst du dich gewaltig - schau dir meinen Code mal genau an: es werden 2 verschiedene Arbeitsmappen angesprochen. In meinem Post #6 geht es ausschließlich darum, dass man in der Mappe mit dem Code, wenn man den Namen des Tabellenblattes nicht kennt, sich durchaus auf das gerade aktive Tabellenblatt beziehen kann (auch wenn diese Arbeitsmappe nicht die aktive Mappe ist)...

---

 

Erstmal danke für die Codes. Werde es nachher mal ausprobieren

 

Na, dann habe ich mich wohl mächtig gewaltig geirrt ... Schöne Grüße von der Olsen-Bande.
Und was ist nun an meinem Ansatz falsch?

 

alles gut, hat super geklappt. Danke