Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Blatt aus Arbeitsmappe als externe Datei ablegen . | Herbers Excel-Forum


Betrifft: Blatt aus Arbeitsmappe als externe Datei ablegen . von: Dustin
Geschrieben am: 20.08.2012 15:02:30

Hallo zusammen,

Ich habe eine recht große Arbeitsmappe in der sich ein bestimmtes Blatt befindet,
das würde ich gerne, am besten, per Button klick in ein Ordner abspeichern können.
Sodass ich dann als " nächst höhere Ebene" an die Daten dieses Blattes komme ohne die Arbeitsmappe zu öffnen.

Ich hoffe jemand hat einen Tipp für mich.

Ich bedanke mich jetzt schonmal für eure Ideen.

Gruss
kleinmarci

  

Betrifft: AW: Blatt aus Arbeitsmappe als externe Datei ablegen . von: Dieter(Drummer)
Geschrieben am: 20.08.2012 15:46:00

Hi Kleinmarci,

einfach das Tabellenblatt, dass du extern speichern willst, aktivieren. Dann Menüpunkt BEARBEITEN/Blatt verschieben/kopieren/ dann zu NEUE Arbeitsmappe und OK. Dann der NEUEN ARBEITSMAPPE einen Namen geben und SPEICHERN UNTER den emtsprechenden Pfad nehmen.

Das ganze kannst dur auch per Makro aufzeichen und einem Button zuweisen.

Gruß, Dieter(Drummer)


  

Betrifft: AW: Blatt aus Arbeitsmappe als externe Datei ablegen . von: Josef Ehrensberger
Geschrieben am: 20.08.2012 15:56:00


Hallo Marci,

teste Mal.

' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub saveSheet()
  Dim objWB As Workbook
  Dim strFile As String, strExt As String
  Dim lngFormat As Long, lngCalc As Long
  
  On Error GoTo ErrExit
  
  With Application
    .ScreenUpdating = False
    .EnableEvents = False
    lngCalc = .Calculation
    .Calculation = xlCalculationManual
    .DisplayAlerts = False
  End With
  
  strFile = Application.GetSaveAsFilename("Excel Dateien (*.xls; *.xlsx; *.xlsm)," & _
    "*.xls; *.xlsx; *.xlsm")
  
  If strFile <> CStr(False) Then
    strExt = Mid(strFile, InStrRev(strFile, ".") + 1)
    Select Case strExt
      Case "xls": lngFormat = -4143
      Case "xlsm": lngFormat = 52
      Case Else: lngFormat = 51
    End Select
    ThisWorkbook.Sheets("Bestimmtes Blatt").Copy
    Set objWB = ActiveWorkbook
    With objWB
      .SaveAs strFile, lngFormat
      .Close
    End With
  End If
  
  ErrExit:
  
  With Err
    If .Number <> 0 Then
      MsgBox "Fehler in Prozedur:" & vbTab & "'saveSheet'" & vbLf & String(60, "_") & _
        vbLf & vbLf & IIf(Erl, "Fehler in Zeile:" & vbTab & Erl & vbLf & vbLf, "") & _
        "Fehlernummer:" & vbTab & .Number & vbLf & vbLf & "Beschreibung:" & vbTab & _
        .Description & vbLf, vbExclamation + vbMsgBoxSetForeground, _
        "VBA - Fehler in Modul - Modul2"
      .Clear
    End If
  End With
  
  On Error GoTo 0
  
  With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = lngCalc
    .DisplayAlerts = True
  End With
  
  Set objWB = Nothing
End Sub






« Gruß Sepp »



  

Betrifft: AW: Blatt aus Arbeitsmappe als externe Datei ablegen . von: Dustin
Geschrieben am: 21.08.2012 14:49:10

Danke schonmal für die Antworten.
Hat soweit gut geklappt.

Jetzt hätte ich noch eine Frage.

Ich habe jetzt 5 Dateien die vom aufbau her gleich sind.
Der Unterschied ist lediglich der inhalt der zellen.

Ist es möglich jetzt eine Datei zu erstellen in der die selbe Tabelle ist wo nur die Daten aus den 5 anderen .xlsx Dateien eingefügt werden.

Beispiel:

In den 5 Dateien sind jeweil 2 Spalten mit "Name" "Vorname"
In meiner Ziel datei sollen alle 5 Dateien eingeflegt werden nach Z.B Name, Vorname.


  

Betrifft: AW: Blatt aus Arbeitsmappe als externe Datei ablegen . von: Dustin
Geschrieben am: 21.08.2012 14:55:21

ich hoffe ich habe es verständlich rüber gebracht :))


Beiträge aus den Excel-Beispielen zum Thema "Blatt aus Arbeitsmappe als externe Datei ablegen ."