Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Wert vergleichen, überschreiben und neues Excel speichern
#11
(26.06.2015, 16:59)Käpt schrieb: 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 Smile
Aber ich bin für jede Hilfe sehr, sehr dankbar. :28:
Vielen Dank für eure Unterstützung.
Gruß
ccolucci
--
Antworten Top
#12
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.
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#13
(26.06.2015, 17:40)Steffl schrieb:
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.
Vielen Dank für eure Unterstützung.
Gruß
ccolucci
--
Antworten Top
#14
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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste