Schritt 3
Daten importieren:
Mit dieser Makro können nun individuell von einer anderen Exceldatei also die Datei Artikelnummer123.xls oder Artikelnummer5568.xls beispielsweise die Spalte A (z.B die 150 Artikelnummern) aus dem Tabellenblatt ART-Beschreibung komplett kopiert und in das Tabellenblatt Source der Exceldatei DATENBANK1A eingefügt werden.
Sub DATENBANK1A()
'Step 3 Data Import to the Dashboard
Dim Quelltab As Worksheet
Dim Zieltab As Worksheet
Dim zelle As Range
Dim Zaehler As Long
Dim wb1 As Workbook
Set wb1 = ActiveWorkbook
Zaehler = 1
Set Quelltab = ActiveWorkbook.Worksheets("Source")
Set Zieltab = ActiveWorkbook.Worksheets("Source")
Quelltab.Range("A:A").ClearContents
again:
Artikelnummer = InputBox("Bitte die Artikelnummer Exceldatei eingeben z.B. Artikelnummer123.xls ")
On Error GoTo again
Workbooks.Open Filename:="C:\Users\Artikel\" & Artikelnummer & ".xls"
Workbooks(Artikelnummer & ".xls").Activate
Worksheets("ART- Beschreibung").Select
lz = Worksheets("ART- Beschreibung").Cells(Rows.Count, 2).End(xlUp).Row
Workbooks(Artikelnummer & ".xls").Worksheets("ART- Beschreibung").Range("B3:B" & lz).copy Destination:=wb1.Worksheets("Source").Range("A1")
Workbooks(Artikelnummer & ".xls").Close savechanges = False
End Sub
[*]
[sup]
*Threadedit* 02.10.2015, 14:03:46
Admininfo: Führe Threads bitte nicht fort, indem du weitere eröffnest, und vermeide Mehrfachanfragen! Siehe dazu unser FAQ 2, #3 - wie man einen Thread eröffnet[/sup]