Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blatt aus Arbeitsmappe als externe Datei ablegen .

Blatt aus Arbeitsmappe als externe Datei ablegen .
Dustin
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Blatt aus Arbeitsmappe als externe Datei ablegen .
20.08.2012 15:46:00
Dieter(Drummer)
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)
AW: Blatt aus Arbeitsmappe als externe Datei ablegen .
20.08.2012 15:56:00
Josef

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 »

Anzeige
AW: Blatt aus Arbeitsmappe als externe Datei ablegen .
21.08.2012 14:49:10
Dustin
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.
AW: Blatt aus Arbeitsmappe als externe Datei ablegen .
21.08.2012 14:55:21
Dustin
ich hoffe ich habe es verständlich rüber gebracht :))

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige