02.03.2020, 20:21
Hallo Gemeinschaft,
da ich keine Ahnung vom Programieren habe wende ich ,ich an euch mit der Hoffnung das mir einer Helfen kann
ich habe zwei Excel Tabellen wo mittels macro die werte von der einen in die andere eingetragen werden soll.
In der einen Tabelle genannt bestellung habe ich ein Blatt Bestellung und ein Blatt Übersicht. Der Besteller trägt unter Berstellung ein was er möchte und in der übersicht bringe ich das in eine zeile mittels =Bestellformular!B5
Nun habe ich diesen Macro der aber in meiner anderen Tabelle Bestellung zusammenfassung die daten falsch einträgt
hier trägt er mir das ein: ='C:\Users\klaus\Documents\Imkerverein\Imkerbestellung\Eingang\[Bestellung-2020_Neu.xls]Bestellformular'!B4
Public Sub EinlesenBestellungen()
Const FOLDER_PATH = "C:\Users\klaus\Documents\Imkerverein\Imkerbestellung\Eingang\" 'Pfad angepasst "Hier musst Du den Pfad der EingangsExcel eingeben"
Dim strFilename As String
Dim objTargetWorksheet As Worksheet
Dim objSourceWorkbook As Workbook
Application.ScreenUpdating = False
'Active Tabelle
Set objTargetWorksheet = ActiveSheet
'erste Datei suchen
strFilename = Dir$(FOLDER_PATH & "*.xls") '"Hier .xls oder xlsx"
Do Until strFilename = vbNullString
'?ffnet eine Datei
Set objSourceWorkbook = Workbooks.Open(Filename:=FOLDER_PATH & strFilename)
'Kopiert von den Zeilen 4 bis zum Ende
'With objSourceWorkbook.ActiveSheet
With objSourceWorkbook.Worksheets("?bersicht")
.Range(.Cells(4, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 80)).Copy
End With
'in die aktive Mappe und f?gt sie jeweils unten an
With objTargetWorksheet
.Paste Destination:=.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
'Schliesst die ge?ffnete Datei
Call objSourceWorkbook.Close(SaveChanges:=False)
'lese den n?chsten Dateinamen
strFilename = Dir$()
Set objSourceWorkbook = Nothing
Loop
Set objTargetWorksheet = Nothing
Application.ScreenUpdating = True
End Sub
Hintergrund ist das ich nicht jede bestellung einzeln in die zusammenfassung eintragen muss.
wäre super wenn hier mir einer eine Lösung geben könnte.
im Vorraus herzlichen Dank
da ich keine Ahnung vom Programieren habe wende ich ,ich an euch mit der Hoffnung das mir einer Helfen kann
ich habe zwei Excel Tabellen wo mittels macro die werte von der einen in die andere eingetragen werden soll.
In der einen Tabelle genannt bestellung habe ich ein Blatt Bestellung und ein Blatt Übersicht. Der Besteller trägt unter Berstellung ein was er möchte und in der übersicht bringe ich das in eine zeile mittels =Bestellformular!B5
Nun habe ich diesen Macro der aber in meiner anderen Tabelle Bestellung zusammenfassung die daten falsch einträgt
hier trägt er mir das ein: ='C:\Users\klaus\Documents\Imkerverein\Imkerbestellung\Eingang\[Bestellung-2020_Neu.xls]Bestellformular'!B4
Public Sub EinlesenBestellungen()
Const FOLDER_PATH = "C:\Users\klaus\Documents\Imkerverein\Imkerbestellung\Eingang\" 'Pfad angepasst "Hier musst Du den Pfad der EingangsExcel eingeben"
Dim strFilename As String
Dim objTargetWorksheet As Worksheet
Dim objSourceWorkbook As Workbook
Application.ScreenUpdating = False
'Active Tabelle
Set objTargetWorksheet = ActiveSheet
'erste Datei suchen
strFilename = Dir$(FOLDER_PATH & "*.xls") '"Hier .xls oder xlsx"
Do Until strFilename = vbNullString
'?ffnet eine Datei
Set objSourceWorkbook = Workbooks.Open(Filename:=FOLDER_PATH & strFilename)
'Kopiert von den Zeilen 4 bis zum Ende
'With objSourceWorkbook.ActiveSheet
With objSourceWorkbook.Worksheets("?bersicht")
.Range(.Cells(4, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 80)).Copy
End With
'in die aktive Mappe und f?gt sie jeweils unten an
With objTargetWorksheet
.Paste Destination:=.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
'Schliesst die ge?ffnete Datei
Call objSourceWorkbook.Close(SaveChanges:=False)
'lese den n?chsten Dateinamen
strFilename = Dir$()
Set objSourceWorkbook = Nothing
Loop
Set objTargetWorksheet = Nothing
Application.ScreenUpdating = True
End Sub
Hintergrund ist das ich nicht jede bestellung einzeln in die zusammenfassung eintragen muss.
wäre super wenn hier mir einer eine Lösung geben könnte.
im Vorraus herzlichen Dank