Code umdrehen!

[Käpt'n Blaubär]

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.

[cysu11]

Hallo Peter,


na ist doch klar, weils von vorne zu einfach wäre :) :97:


Lieben Dank nochmals
LG
Alexandra

[Kuwer]

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