Thema Datum  Von Nutzer Rating
Antwort
Rot .Cells(1).PasteSpecial xlPasteValues
 17.03.2015 11:26:31 Gast80551
NotSolved

Ansicht des Beitrags:
Von:
Gast80551		 Datum:
17.03.2015 11:26:31		 Views:
1066		 Rating:
     
Antwort:
  Ja
Thema:
.Cells(1).PasteSpecial xlPasteValues
--> Mit diesem Code sollen Werte aus einer Datei in eine neue Datei exportiert werden als harte Werte, sprich ohne die dahinterliegenden Werte.. Leider funktioniert es insofern nicht, da die Formeln leider doch mit kopiert werden. Findet jmd eine Lösung? 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

Thema Datum  Von Nutzer Rating
Antwort
Rot .Cells(1).PasteSpecial xlPasteValues
 17.03.2015 11:26:31 Gast80551
NotSolved