Wert vergleichen, überschreiben und neues Excel speichern

[ccolucci]

zu Frage 3: Warum jetzt plötzlich ohne VBA, nachdem Du hier schon die ganze Zeit VBA einsetzt?

Weil wenn ich nur Formeln in meiner Excel-Datei hätte, könnte ich das ganze als .xlsx abspeichern, was mir lieber wäre als .xlsm
Aber ich bin für jede Hilfe sehr, sehr dankbar. :28:

[Steffl]

Auch Hallo,

zu der Frage 1: Versuchs mal so

Code:

Private Sub CommandButton2_Click()
  strDateiname = Range("A2").Value & ".xls"
  Worksheets("Tabelle1").SaveAs ("\Dokumente\" & strDateiname) 'Pfad ggf. ändern
'   ActiveWorkbook.SaveAs ("\Dokumente\" & strDateiname) 'Pfad ggf. ändern
End Sub

zur Frage 2: Ich glaube nicht, das Du nur einen Teil der Tabelle speichern kannst. Höchstens Du kopierst den Bereich und fügst ihn in ein neues Tabellenblatt ein und speicherst dieses neue Tabellenblatt.

Nachtrag: Ach ja, ich glaube hier kannst Du auf VBA nicht verzichten.

[ccolucci]

Code:

   Worksheets("Tabelle1").SaveAs ("\Dokumente\" & strDateiname) 'Pfad ggf. ändern

Hi Steffl, vielen lieben Dank für Deine Hilfe!!!
Ich habe deine obige Zeile eingefügt, aber ein bisschen abgeändert: Tabelle2 (anstatt Tabelle1):  Worksheets("Tabelle2").SaveAs ("\Dokumente\" & strDateiname)

Leider funktioniert dies nicht. Es werden beide Tabellenblätter abgespeichert. (In Tabelle 2 hatte ich nur die Zahl "2" in Zelle A1 stehen. (zum testen). Mein Wunsch ist, dass ein komplett neues Excelfile entsteht, und zwar mit Inhalten aus einem einzigen Tabellenblatt (z.B. Tabelle1) oder nur ein Bereich, also bestimmte Zellen aus Tabelle1, z.B. B2:K30
Andere Tabellenblätter wie z.B. Tabelle5, Tabelle6, ... sollen nicht übernommen und mitgespeichert werden.
Ich teste weiter und recherchiere weiter und bitte um eure Unterstützung.

[schauan]

Hallöchen,

für die Programmieranfänge oder auch nur die "faulen" unter den besseren gibt es den Makrorekorder. Damit kann man einiges rausfinden und programmieren. Ich habe mal das Kopieren eines Blattes als neue Mappe aufgezeichnet Ich habe den Makrorekorder gestartet, die Tabelle1 kopiert - mit der Option Kopieren und (neue Arbeitsmappe), dann hab ich gespeichert und geschlossen und war wieder in der Ausgangsdatei. Beim Speichern hab ich noch ein anderes Laufwerk gewechselt.

Code:

Sub Makro1()
'
' Makro1 Makro
'

'
    Sheets("Tabelle1").Select
    Sheets("Tabelle1").Copy
    ChDir "F:\Work"
    ActiveWorkbook.SaveAs Filename:="F:\Work\Mappe5.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
End Sub

Im code müsstest Du die Laufwerks- und Verzeichnisangaben anpassen, und natürlich den Dateinamen übernehmen.
Wenn Du bestimmte Daten nicht weitergeben willst, kannst Du die Daten vor dem Speichern und Schließen löschen.

Etwas Optimierungspotentiel ist bei dem kurzen code auch noch drin, z.B. kann man diese beiden Zeilen
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy
zu einer zusammenfassen
Sheets("Tabelle1").Copy