excel makro erstellen aus verschiedenen tabellen

Question

Hallo, zuerst einmal muss ich erwähnen, dass ich eigentlich keine Kenntnisse beim Schreiben von einem Makro habe. Aber ich versuche mein bestes...

Also ich habe eine Excel Datei und in dieser Datei sind um die 50 Tabellenseiten. Ich muss von jeder Tabellenseite das Datum in F12, den Namen in C31 und die Stückanzahl in D17 in eine neue Datei einfügen.
Das soll das Marko dann automatisch aus allen Tabellen herauskopieren.

Ich hoffe ich habe mein Problem bestmöglichst beschrieben und hoffe irgendjemand kann mir helfen.

mfg Chris

Answer 1

Hallo Chris,

Option Explicit

Private Sub Aufheben()
' Code in Zieldatei
' Quelldatei ist auf und aktiv
Dim LoZeile As Long
Dim WsTabelle As Worksheet
For Each WsTabelle In ActiveWorkbook.Sheets
With WsTabelle
ThisWorkbook.Worksheets("Tabelle1").Cells(LoZeile + 2, 1) = .Range("F12")
ThisWorkbook.Worksheets("Tabelle1").Cells(LoZeile + 2, 1) = .Range("C31")
ThisWorkbook.Worksheets("Tabelle1").Cells(LoZeile + 2, 1) = .Range("D17")
LoZeile = LoZeile + 1
End With
Next WsTabelle
End Sub

Gruß Hajo

Answer 2

Hallo Hajo, danke schon mal für deine schnell Hilfe, aber recht viel passiert bei mir nicht. Wie bereits erwähnt habe ich wenige Kenntnisse mit Makros. Muss ich ein Makro erstellen und den Code reinkopieren und dann in der Excel Tabelle ausführen drücken? Ich hoffe ich stell mich nicht ganz zu blöd an.

mfg Chris

Answer 3

Hallo Chris,

meine Kommentare solltest Du schon beachten.
' Code in Zieldatei
' Quelldatei ist auf und aktiv
ThisWorkbook.Worksheets("Tabelle1") ' also in der Zieldatei sollte es eine Tabelle1 geben.
Starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, gehe auf Deine Datei, rechte Maustaste, Einfügen Modul, Code ins rechte Fenster kopieren, VBA Editor schließen. Start über Extras, Makro, Makros, Makro wählen, ausführen.

Gruß Hajo

Answer 4

Jetzt hab ichs, vielen Dank :)