Hallo Leute,
kann mir jemand hierbei helfen?
Ich habe hier folgenden Code der mir den Inhalt in Spalte B einer Exceldatei kopiern soll und mir diese Inhalte in die Spalte A einer Anderen Exceldatei hineinfügen soll. KNR.xls ist die Exceldatei aus der die informationen stammen. Jede Woche bekomme ich neue KNR.xls die auch immer KNR heißen.
Speziell Spalten B aus der KNR Datei soll kopiert werden.
Die Excel Datei Datenbank ist die Datei in der es hinein Kopiert werden soll.
Speziel in das Tabellenblatt Quelle.
Gruß Hajo
Sub DATENBANK()
Dim Quelltab As Worksheet
Dim Zieltab As Worksheet
Dim Zelle As Range
Dim Zaehler As Long
Zaehler = 1
Bereich = "A2:A500"
Set Quelltab = ActiveWorkbook.Worksheets("Quelle")
Set Zieltab = ActiveWorkbook.Worksheets("Output")
Quelltab.Range(Bereich).ClearContents
again:
KNR = InputBox("Bitte KNR Dateiname angeben (z.B. KNR_215)")
On Error GoTo again
Workbooks.Open Filename:="C:\Users\Documents\MaxMustermann\Kunden Ordner\KNR-Datei\" & KNR & ".xls"
Workbooks(KNR & ".xls").Activate
Worksheets("Kundennummer").Select
lz = Worksheets("Kundennummer").Cells(Rows.Count, 2).End(xlUp).Row
Workbooks(KNR & ".xls").Worksheets("Kundennummer").Range("B6:B500").Copy Destination:=Workbooks("DATENBANK.xlsm").Worksheets("Quelle").Range("A2")
Workbooks(KNR & ".xls").Close savechanges = False
For Each Zelle In Quelltab.Range("A1:A500")
Zieltab.Cells(Zaehler, 1) = Zelle
Zaehler = Zaehler + 1
Next Zelle
End Sub