VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Gast49672	Datum: 06.03.2015 10:37:54	Views: 456	Rating:	Antwort:
Thema: Wer findet den Fehler im Code?
Public Sub Export_XLPH() Dim Blatt As Worksheet Dim aBlattNamen() As String Dim lngIndex As Long Dim Pfad As String Pfad = ThisWorkbook.Path & "\" & "Export" ReDim aBlattNamen(0 To ThisWorkbook.Worksheets.Count - 1) For Each Blatt In ThisWorkbook.Worksheets Select Case Blatt.Name Case "Tabelle100", "Tabelle101" ' hier Ausnahmen auflisten Case Else aBlattNamen(lngIndex) = Blatt.Name lngIndex = lngIndex + 1 End Select Next Set Blatt = Nothing If lngIndex = 0 Then MsgBox "Keine Blätter zum Exportieren gefunden!" Exit Sub End If Application.ScreenUpdating = False ReDim Preserve aBlattNamen(0 To lngIndex - 1) ThisWorkbook.Worksheets(aBlattNamen).Copy For Each Blatt In ActiveWorkbook.Worksheets With Blatt.UsedRange .Copy .Cells(1).PasteSpecial xlPasteValues Application.Goto .Cells(1) End With Next Set Blatt = Nothing Application.CutCopyMode = False Application.DisplayAlerts = False ActiveWorkbook.SaveAs Pfad, ThisWorkbook.FileFormat Application.DisplayAlerts = True ActiveWorkbook.Close False Application.ScreenUpdating = True MsgBox "Export-Datei wurde ersteltt in:" & vbLf & vbLf & Pfad & ".???" End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen