Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1688to1692
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1688to1692
1688to1692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisiertes Kopieren mit VBA

Automatisiertes Kopieren mit VBA
10.05.2019 15:26:08
Lars
Hallo zusammen,
ich hätte gern eure Unterstützung bei der Automatisierung eines Kopiervorgangs, bei dem ich auf Grund mangelnden Wissens hänge.
In der Datei anbei gibt es 2 Blätter.
https://www.herber.de/bbs/user/129709.xlsx
Blatt "BOM" beinhaltet 32 Stücklistenpositionen, deren Mengen für einzelne Artikel in den Spalten "I" bis "CT" dargestellt werden. Zeile 1 beinhaltet ab Spalte "I" die jeweiligen Artikelbezeichnungen.
Blatt "Ziel" stellt das Blatt dar, auf dem ich gern das Ergebnis kopiert haben möchte. Dazu benötige ich einmal die Mengen untereinander kopiert pro Artikelnummer. An 2 Artikelnummern habe ich im Anhang dies einmal händisch kopiert. Das dieses eine Blatt aber auch nur eins von vielen ist und es sich um 90 Spalten handelt, ist eine Automatisierung wünschenswert.
Wie könnte ich dies geschickt mit VBA oder Makro realisieren?
Vielen Dank im Voraus.
Lars

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisiertes Kopieren mit VBA
10.05.2019 15:33:44
Hajo_zi
Hallo Lars,
das geht nicht, da eine XLSX Datei kein Makro enthalten kann.
Ich sehe keinen Grund eine Datei 2x zu speichern. Ich führe keine Liste unter welchem Dateinamen ich die Datei gespeichert habe.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
ICH SCHENK DIR EINE VERSION DIE DAS KANN...
10.05.2019 21:44:10
Werner
AW: ICH SCHENK DIR EINE VERSION DIE DAS KANN...
11.05.2019 06:56:23
Hajo_Zi
Ja Bitte an Hajo.Ziplies@gmx.de
Gruss Hajo
AW: ICH SCHENK DIR EINE VERSION DIE DAS KANN...
11.05.2019 07:14:01
Hajo_zi
oh Entschuldige die Antwort. Ich hatte am Handy den Namen übersehen.
Gruß Hajo
Anzeige
AW: Automatisiertes Kopieren mit VBA
10.05.2019 16:27:10
mmat
Hallo,
so müsste das passen: 

Option Explicit
Sub uebertragen()
Dim ts As Worksheet, acs As Worksheet
Dim c As Long, r As Long, comp As String
Set acs = Worksheets("BOM")
Set ts = Worksheets.Add
ts.Cells(1, 1) = "Componente"
acs.Range("A1:H1").Copy ts.Range("B1")
ts.Range("J1") = "Quantity"
r = 2
For c = 9 To 98
comp = acs.Cells(1, c)
acs.Range("A2:H33").Copy ts.Cells(r, 2)
ts.Cells(r, 1) = comp
ts.Range(ts.Cells(r, 1), ts.Cells(r + 31, 1)).FillDown
acs.Range(acs.Cells(2, c), acs.Cells(33, c)).Copy ts.Cells(r, 10)
r = r + 32
Next
End Sub
vg, MM
Anzeige
AW: Automatisiertes Kopieren mit VBA
10.05.2019 20:37:15
Lars
Hallo MM,
so passt das auch, besten Dank für die schnelle Hilfe.
Gruß
Lars

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige