Registriert seit: 28.01.2015
Version(en): 2007 und 2010
14.09.2016, 12:14
(Dieser Beitrag wurde zuletzt bearbeitet: 14.09.2016, 12:14 von PhilippB..)
Danke Zwergel,
eine Kleinigkeit noch. Wenn ich jetzt den zusammengefassten Excel sheet "combined" aktualisieren möchte, zieht er alle Daten von den Sheets 1-10 und der liste "combined" in ein neues tabellenblatt. ich möchte aber nur das der excelsheet "combined" angepasst wird, ohne Generierung eines neuen tabllenblattes. Quasi den auswertungsheet "combined" aktualisieren bei Ausführung des vba codes.
Registriert seit: 10.04.2014
Version(en): Office 2007, 2016, Win 10 64 bit
Hi,
davon war gestern bei dir allerdings nicht die Rede.
Zitat:mit folgendem VBA-Code bekomme ich es fast hin. Was fehlt und noch nicht funktioniert ist, dass ich von den 17 Excel-Sheets nur 10 zusammenfügen möchte.
Ändere mal den Code hier:
Code:
alt
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
neu
Sheets("Combined").Select
Mit freundlichen Grüßen :)
Michael
![[-]](https://www.clever-excel-forum.de/images/collapse.png)
Folgende(r) 1 Nutzer sagt Danke an Zwergel für diesen Beitrag:1 Nutzer sagt Danke an Zwergel für diesen Beitrag 28
• PhilippB.
Registriert seit: 28.01.2015
Version(en): 2007 und 2010
14.09.2016, 13:15
(Dieser Beitrag wurde zuletzt bearbeitet: 14.09.2016, 13:15 von PhilippB..)
Besten DAnk
Registriert seit: 28.01.2015
Version(en): 2007 und 2010
(14.09.2016, 13:15)PhilippB. schrieb: Besten DAnk
zu früh gefreut. wenn ich jetzt den vba code ausführe, erfasst er immer alle Daten neu hintereinander. der sheet combnied. soll aber nur die vorhandenen und eventuell dazukommen Daten zusammenfügen.
der aktuelle vba code:
Sub Combine()
Dim J As Integer
On Error Resume Next
Sheets("Combined").Select
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To 11
Sheets(J).Activate
Range("A2").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
Hat jemand eine Idee? Vielen Dank im Voraus
Registriert seit: 10.04.2014
Version(en): Office 2007, 2016, Win 10 64 bit
14.09.2016, 13:44
(Dieser Beitrag wurde zuletzt bearbeitet: 14.09.2016, 13:44 von Zwergel.)
Hi mal ins Blaue:
ersetz überall im Code Sheets (1) durch Sheets ("Combined")
Mit freundlichen Grüßen :)
Michael
Registriert seit: 28.01.2015
Version(en): 2007 und 2010
(14.09.2016, 13:44)Zwergel schrieb: Hi mal ins Blaue:
ersetz überall im Code Sheets (1) durch Sheets ("Combined")
ändert sich nicht...
Registriert seit: 21.07.2016
Version(en): 2007
(14.09.2016, 13:20)PhilippB. schrieb: zu früh gefreut. wenn ich jetzt den vba code ausführe, erfasst er immer alle Daten neu hintereinander. der sheet combnied. soll aber nur die vorhandenen und eventuell dazukommen Daten zusammenfügen.
...
Hi,
das muss so sein bei dem von Dir verwendeten Code. Mehrfaches ausführen fügt alle Daten an vorhandene Daten an.
Code:
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Wenn Du das nicht willst bzw. bei jeder Ausführung alle Daten neu zusammengestellt werden sollen dann füge
Code:
sheets(1).UsedRange.ClearContents
hiernach ein
Code:
Sub Combine()
Dim J As Integer
On Error Resume Next
Gruß
Ich
Registriert seit: 28.01.2015
Version(en): 2007 und 2010
(14.09.2016, 14:29)IchBinIch schrieb: Hi,
das muss so sein bei dem von Dir verwendeten Code. Mehrfaches ausführen fügt alle Daten an vorhandene Daten an.
Code:
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Wenn Du das nicht willst bzw. bei jeder Ausführung alle Daten neu zusammengestellt werden sollen dann füge
Code:
sheets(1).UsedRange.ClearContents
hiernach ein
Code:
Sub Combine()
Dim J As Integer
On Error Resume Next
Gruß
Ich
Für mich seid ihr die größten.
BESTEN DANK!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
