Code umdrehen!

[Käpt'n Blaubär]

Hallo Uwe,

Und/oder die neue Datei soll VBA-frei sein?

ja, das habe ich eigentlich so verstanden, daß in der neuen Datei kein Makro sein soll / braucht / muß.
Der VBA-Teil ließe sich nach dem Kopieren ja löschen.
Gleiches gilt für nicht gewollte Blätter. Zusätzliche Blätter dürften auch unproblematisch zu erstellen sein.

Ich überlege hin und her, aber es wird mir nicht wirklich klar, was da passieren soll.

[cysu11]

Hallo Uwe,

vielleicht gibt es noch mehr Worksheets, die nicht in die neue Datei sollen?
Und/oder die neue Datei soll VBA-frei sein?

Genau so ist es! :)

Deswegen möchte ich auch nicht die einzelnen Blätter einfach kopieren sondern mit dem hier:
"Cells.Copy Destination:=ThisWorkbook.Sheets("produkte").Cells" arbeiten und die Zellen kopieren aber ich weiß nicht wie ich es anwenden soll!?

Hast du eine Idee?


Danke
VG
Alexandra

[Kuwer]

Hallo Alexandra,

nächster Versuch:

Code:

Sub ExportDaten()
  If MsgBox("Sind Sie sicher, dass Sie die Daten exportieren möchten? ", vbYesNo) = vbYes Then
    Application.ScreenUpdating = False
    With Workbooks.Add(xlWBATWorksheet)
      .Worksheets(.Worksheets.Count).Name = "produkte"
      ThisWorkbook.Sheets("produkte").Cells.Copy .Worksheets(.Worksheets.Count).Cells(1)
      
      .Worksheets.Add after:=.Worksheets(.Worksheets.Count)
      .Worksheets(.Worksheets.Count).Name = "kunden"
      ThisWorkbook.Sheets("kunden").Cells.Copy .Worksheets(.Worksheets.Count).Cells(1)
      
      .Worksheets.Add after:=.Worksheets(.Worksheets.Count)
      .Worksheets(.Worksheets.Count).Name = "LN"
      ThisWorkbook.Sheets("LN").Cells.Copy .Worksheets(.Worksheets.Count).Cells(1)
      
      .Worksheets.Add after:=.Worksheets(.Worksheets.Count)
      .Worksheets(.Worksheets.Count).Name = "zwischen"
      ThisWorkbook.Sheets("zwischen").Cells.Copy .Worksheets(.Worksheets.Count).Cells(1)

      .Worksheets.Add after:=.Worksheets(.Worksheets.Count)
      .Worksheets(.Worksheets.Count).Name = "Attribute"
      ThisWorkbook.Sheets("Attribute").Cells.Copy .Worksheets(.Worksheets.Count).Cells(1)

      .SaveAs "upload.xls"
    End With
    Application.ScreenUpdating = True
  End If
End Sub

Gruß Uwe

[cysu11]

Hallo Uwe,


PERFEKT!!!!!!!!!!!!!!!!!!!!! :)
Genauso habe ich es mir vorgestellt!


Vielen lieben Dank
VG
Alexandra

[Rabe]

Hi alle,

Deswegen möchte ich auch nicht die einzelnen Blätter einfach kopieren sondern mit dem hier:
"Cells.Copy Destination:=ThisWorkbook.Sheets("produkte").Cells" arbeiten und die Zellen kopieren aber ich weiß nicht wie ich es anwenden soll!?

ist es da nicht einfacher, aus der Originaldatei alle Blätter zu löschen bis auf das eine und dieses dann als xlsx unter dem Zielnamen zu speichern?
Jede einzelne Zelle zu kopieren ist doch nicht unbedingt resourcenschonend.

[cysu11]

Hallo Ralf,


das ist ein guter Gedanke, allerdings würden doch da die CommandButtons auch mitgehen, oder?


Vielen Dank
VG
Alexandra

[Käpt'n Blaubär]

Hallo Alexandra,

ist es da nicht einfacher, aus der Originaldatei alle Blätter zu löschen bis auf das eine und dieses dann als xlsx unter dem Zielnamen zu speichern?
Jede einzelne Zelle zu kopieren ist doch nicht unbedingt resourcenschonend.

Hmmm ... das sage ich doch schon die ganze Zeit.

das ist ein guter Gedanke, allerdings würden doch da die CommandButtons auch mitgehen, oder?

Die ließen sich auch per VBA löschen.
Wenn man weiß, wieviele, dann sogar durch eine einfache Schleife :05:

[cysu11]

Hallo Peter,


und was ist mit den ganzen Codes und Userforms und Module usw.?


Danke
VG
Alexandra

[Käpt'n Blaubär]

Hallo Alexandra,

wenn Du das so speicherst, wie Ralf das vorgeschlagen hat,

... dann als xlsx unter dem Zielnamen zu speichern ...

dann ist das vollautomatisch auch verschwunden

[cysu11]

Hallo Peter,


OK, dann wäre das auch eine Alternative! :)
Ich bleibe jedoch bei Uwes Lösung! Sollte das Ganze irgendwann sich an den Ressourcen bemerkbar machen, dann komme ich drauf zurück! :)
Momentan habe ich noch nicht so viele Daten, dass sich das bemerkbar machen würde!!

Vielen Dank euch Allen
VG
Alexandra