Werte aus Spalten kopieren wenn Zelle gefüllt ist

Hallo Excel Forum,
ich habe folgendes Problem:
Ich bekomme eine Excel Tabelle mit Bestelldaten.
In dieser Tabelle sind alle Artikelnummern in Spalte A (A12:A95)gelistet und in Spalte B (B12:B95) stehen die Bestellmengen je Artikelnummer.
Ich möchte aus einer zweiten Datei raus ein Makro anstoßen, welches mir nur die Artikelnummern kopiert die eine Bestellmenge haben. Es soll die Artikelnummer (Spalte A) und die dazugehörige Menge (Spalte B) in ein Tabellenblatt "Datentransfer" (ab Zelle A7 / B7) der zweiten Datei kopiert werden.
Die Excel Tabelle mit den Bestelldaten liegt immer im gleichen Verzeichnis, ebenso die zweite Datei.
Vielen Dank schon mal für Eure Unterstützung!!
Viele Grüße
Jochen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit '11.12.2017 Piet für Herber Forum Const ExtWb = "Mappe2" 'Name der Mappe mit Tabelle "Datentransfer" Const Ziel = "Datentransfer" 'Ziel Tabelle "Datentransfer" Const Quelle = "Tabelle1" 'Name der Quell Tabelle A12:A95 Sub Externe_Tabelle_Kopieren() Dim AC As Range, z As Integer z = 7 '1.Zeile in Datentransfer 'zuerst Ext.Mappe Datentransfer Bereich löschen ExtWb.Worksheets(Ziel).Range("A7:B95").ClearContents 'Schleife zum auflisten des Bereichs A12:A95 For Each AC In Worksheets(Quelle).Range("A12:A95") If AC.Offset(0, 1) > 0 Then ExtWb.Worksheets(Ziel).Cells(z, 1) = AC.Cells(1, 1) ExtWb.Worksheets(Ziel).Cells(z, 2) = AC.Cells(1, 2) z = z + 1 'naechste Zeile End If Next AC End Sub

Hallo Jochen,
kein Thema, drehen wir den Spiess einfach um. Probier mal das neue Makro.
Hier must du für "Mappe2" deine Datei aus der die Daten geholt werden angeben.
Schauen wir mal ob es so klappt ...
Wenn es klappt bitte Thread schliessen, KontrollBox nicht aktivieren.
mfg Piet

Option Explicit         '11.12.2017   Piet für Herber Forum
Const ExtWb = "Mappe2"        'Name der Mappe aus der kopiert wird
Const Ziel = "Datentransfer"  'Ziel Tabelle "Datentransfer"
Const Quelle = "Tabelle1"     'Name der Quell Tabelle A12:A95
Sub Externe_Daten_Kopieren()
Dim AC As Range, z As Integer
z = 7  '1.Zeile in Datentransfer
With ThisWorkbook
'zuerst Datentransfer Bereich löschen
.Worksheets(Ziel).Range("A7:B95").ClearContents
'Schleife zum auflisten des Bereichs A12:A95
For Each AC In ExtWb.Worksheets(Quelle).Range("A12:A95")
If AC.Offset(0, 1) > 0 Then
.Worksheets(Ziel).Cells(z, 1) = AC.Cells(1, 1)
.Worksheets(Ziel).Cells(z, 2) = AC.Cells(1, 2)
z = z + 1  'naechste Zeile
End If
Next AC
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Werte aus Spalten kopieren wenn Zelle gefüllt ist

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

334 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte aus Spalten kopieren wenn Zelle gefüllt ist

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

334 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread