Office: Einzelne Tabelle von mehre Tabellen speichern ohne Verknüpfung

Helfe beim Thema Einzelne Tabelle von mehre Tabellen speichern ohne Verknüpfung in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, ich möchte eine einzelne Tabelle speichern ohne Verknüpfung zu den anderen Tabellen. Die Formeln in den Zellen sollen aber nicht gelöscht... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Amar12, 7. April 2021 um 10:36 Uhr.

  1. Amar12 Neuer User

    Einzelne Tabelle von mehre Tabellen speichern ohne Verknüpfung


    Hallo,
    ich möchte eine einzelne Tabelle speichern ohne Verknüpfung zu den anderen Tabellen.
    Die Formeln in den Zellen sollen aber nicht gelöscht werden.

    Mit folgenden Code werden die Verknüpfung mit abgespeichert.

    Sub Rechnung_als_Excel_abspeichern()

    Dim Pfad As String
    Dim Neuer_Dateiname
    Pfad = ThisWorkbook.Path
    Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:=Pfad, fileFilter:="Excel-Arbeitsmappe, *.xls", Title:="Tabellenblatt Vorlage speichern unter")
    If Neuer_Dateiname = False Then Exit Sub
    ThisWorkbook.Sheets("Vorlage").Copy
    ActiveWorkbook.SaveAs Filename:=Neuer_Dateiname
    ActiveWorkbook.Close

    End Sub

    Ich habe ein anderen Code getestet.

    Option Explicit
    Sub KopierenOhneVerknuepfungeninneueDatei()
    Dim sFile As String
    'Neues Workbook erzeugen
    ActiveWorkbook.Sheets("Vorlage").Copy
    'Neuen Dateinamen eingeben
    sFile = InputBox("export in: Dateinamen angeben:")
    'Wenn neuer Name gleich "" dann Schluß
    If sFile = "" Then Exit Sub
    'Wenn neuer Name schon vergeben dann Überschreiben?
    If Dir(ThisWorkbook.Path & "\" & sFile & ".XLSX") <> "" Then
    Beep
    If MsgBox("Existiert schon, überschreiben?", _
    vbCritical + vbYesNo) = vbNo Then Exit Sub
    End If
    'Warnmeldungen abschalten
    Application.DisplayAlerts = False
    'Neues Workbook mit neuem Namen speichern
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & sFile & ".XLSX"
    Call BlaetterLoeschen
    Call DeleteAllShapes
    'Formeln durch Werte ersetzen
    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
    Application.DisplayAlerts = True
    'Nochmal mit Werten speichern
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    End Sub

    Sub BlaetterLoeschen()
    Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> ActiveWorkbook.ActiveSheet.Name Then ws.Delete
    Next
    End Sub

    Sub DeleteAllShapes()

    Dim Shp As Shape

    For Each Shp In ActiveWorkbook.ActiveSheet.Shapes
    Shp.Delete
    Next Shp

    End Sub


    Der Löscht die Verknüpfung und Formeln sowie die Grafik (Logo).
    Die Formel und die Grafik sollen aber nicht gelöscht werden.

    Vilen Dank im Voraus !

    Gruss
    Amar
     
  2. Amar12 Neuer User
    Hallo,
    ich habe ein Code gefunden.
    Es klappt Perfekt.

    Falls jemand auch so ein Code benötigt.

    Option Explicit
    Public Sub Main()
    Dim varFilename As Variant
    Dim intCount As Integer
    Dim varLinks As Variant
    Dim WBNew As Workbook
    Dim strPfad As String
    On Error GoTo Fin
    Application.ScreenUpdating = False
    strPfad = "C:\Temp\" ' Pfad anpassen
    strPfad = IIf(Right(strPfad, 1) = "\", strPfad, strPfad & "\")
    ThisWorkbook.Worksheets("Tabell1").Copy ' Tabellenblattindex ggf. anpassen
    Set WBNew = ActiveWorkbook
    With WBNew
    varLinks = .LinkSources(xlExcelLinks)
    If Not IsEmpty(varLinks) Then
    For intCount = 1 To UBound(varLinks)
    .BreakLink varLinks(intCount), xlExcelLinks
    Next intCount
    End If
    varFilename = Application.GetSaveAsFilename( _
    fileFilter:="Excel Datei (*.xlsx), *.xlsx", _
    InitialFileName:=WBNew.Worksheets(1).Name & _
    Format(Now, "YYMMDD") & ".xlsx")
    If varFilename <> False Then _
    .SaveAs varFilename, IIf(Val(Application.Version) > 11, 51, xlNormal)
    .Close False
    End With
    Fin:
    Set WBNew = Nothing
    Application.ScreenUpdating = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
    Err.Number & " " & Err.Description
    End Sub



    Gruss
    Amar
     
Thema:

Einzelne Tabelle von mehre Tabellen speichern ohne Verknüpfung

Die Seite wird geladen...
  1. Einzelne Tabelle von mehre Tabellen speichern ohne Verknüpfung - Similar Threads - Einzelne Tabelle mehre

  2. ListBox mit mehrspaltiger Tabelle bestücken und einzelne Zeilen löschen

    in Microsoft Excel Hilfe
    ListBox mit mehrspaltiger Tabelle bestücken und einzelne Zeilen löschen: Wieder mal Hallo zusammen! Bei meinen Experimenten bin ich auf ein weiteres Problem aufgrund meiner Unwissenheit gestoßen. Ich möchte eine ListBox mit einer mehrspaltigen Tabelle bestücken. Mit...
  3. Einzelne Tabelle "Speichern unter"

    in Microsoft Excel Hilfe
    Einzelne Tabelle "Speichern unter": Hallo liebe Community, ich entschuldige mich schon im Voraus für diesen Thread, falls bereits ein ähnlicher besteht. Es gibt bereits einige Lösungen zu meinem Problem, allerdings nicht die...
  4. Serienbrief erstellen und Tabellen einzeln als Anhang einfügen

    in Microsoft Word Hilfe
    Serienbrief erstellen und Tabellen einzeln als Anhang einfügen: Hallo alle zusammen, ich habe folgendes Projekt bekommen und suche zur Zeit einen Lösungsansatz (keinen vollständigen Code): Es gibt eine Excel-Tabelle mit mehreren Anlagen. Jede Anlage hat...
  5. einzelne Zeilen werden in Excel-Tabelle nicht gedruckt

    in Microsoft Excel Hilfe
    einzelne Zeilen werden in Excel-Tabelle nicht gedruckt: Hallo, vielleicht kann mir jemand helfen bei einem Problem, das mir bereits in der 2. Tabelle über den Weg läuft: Habe eine Tabelle erstellt, in der einzelne Zeilen ncit gedruck werden,...
  6. Aus Zwei Tabellen einzelne Werte Überprüfen und Datensatz zu

    in Microsoft Excel Hilfe
    Aus Zwei Tabellen einzelne Werte Überprüfen und Datensatz zu: Hallo Ich habe ein Problem: Ich habe Zwei Tabellen mit Datensätzen ca 1000 Zeilen. In beiden Tabellen steht eine Spalte die sozusagen das Schlüsselfeld ist In meinem Fall spalte C...
  7. Einzelne Kreissegmente mit Tabelle verbinden

    in Microsoft Excel Hilfe
    Einzelne Kreissegmente mit Tabelle verbinden: Hallo! Brauche dringend Hilfe bei einem Projekt. Ich möchte eine Qualifikationsmatrix erstellen und habe dabei neben den jeweiligen Fähigkeiten kleine Kreise, die je nach Punkteanzahl bei den...
  8. einzelne Blätter als Excel-Tabelle versenden

    in Microsoft Excel Hilfe
    einzelne Blätter als Excel-Tabelle versenden: Hallo, ich möchte aus meiner Arbeitsmappe nur einzelne Blätter versenden. Diese sollen aber beim Empfänger als Excel-Tabelle ankommen und nicht als Text. Weiß jemand Rat? Vielen Dank
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden