Hallo Alexandra,
ich will Dir doch Uwe's Lösung nicht ausreden. Wie kommst Du denn auf sowas? :05:
Ne, ne, ne ... nur hatte ich das Verständnisproblem, warum Du unbedingt von hinten durch's Knie in's Auge schießen wolltest.
Hallo Peter,
na ist doch klar, weils von vorne zu einfach wäre :) :97:
Lieben Dank nochmals
LG
Alexandra
Hallo Alexandra,
ich weiß nicht, ob diese Variante besser/schneller ist oder bei Dir überhaupt funktioniert.
Hier werden die Blätter kopiert und anschließend "bereinigt":
Code:
Sub ExportDaten_2()
Dim i As Long, oDraw As Object
If MsgBox("Sind Sie sicher, dass Sie die Daten exportieren möchten? ", vbYesNo) = vbYes Then
Application.ScreenUpdating = False
ThisWorkbook.Sheets(Array("produkte", "kunden", "LN", "zwischen", "Attribute")).Copy
For Each oDraw In ActiveWorkbook.Sheets
oDraw.DrawingObjects.Delete
Next oDraw
With ActiveWorkbook
For i = 2 To .VBProject.VBComponents.Count
With .VBProject.VBComponents(i).CodeModule
.DeleteLines 1, .CountOfLines
End With
Next i
.SaveAs "upload.xls"
End With
Application.ScreenUpdating = True
End If
End Sub
Gruß Uwe