Office: (Office 2013) Excel Button zum speichern in csv

Ich habe eine Excel-Datei, in der ich im Tabellenblatt 1 einen Button eingefügt, der mir in beim drücken aus der .xlsb-Datei das Tabellenblatt 3 ohne weitere Fragen als csv-Datei abspeichern soll. Der Button ist schon da, hatte auch schon einiges probiert, aber leider mit mäßigen Erfolg.
Ich hoffe, dass ihr mir weiter helfen könnt.

 

Hi Andy (dies ist die Anrede in einem Beitrag),


(hier folgt der Beitragstext)

Hast du das Abspeichern schon mal mit dem Makrorekorder aufgezeichnet?


(und am Ende eines Beitrages folgt ein Gruß mit einem Namen, denn auf der anderen Seite der Leitung sitzen ebenfalls Menschen und keine Computer :))


Bis später,
Karin

 

Guten morgen Mitstreiter,
Karin, du hast natürlich vollkommen recht. Sorry für das Missgeschick.

Da ich von VBA so gar keine Ahnung habe, habe ich leider auch so gar keine Ahnung wie ich mit dem Makrorekorder umgehen soll.

Könnte also noch eure Hilfe gebrauchen.

Danke schon mal im Voraus

Gruß Andreas

 

Hi Andreas,

WAS hast du denn schon probiert?


Bis später,
Karin

 

Hallo Mitstreiter, Hallo Karin

Ich bin da wie gesagt etwas ratlos.

Ich habe es zwar geschafft, dass eine csv Datei im Verzeichnis erzeugt wird, aber leider das falsche Tabellenblatt.

Er speichert das Tabellenblatt (1) ab, in dem der Button ist und leider nicht das Tabellenblatt 3

Private Sub CommandButton1_Click()
Dim newname As String

newname = "N:\Allgemein\Organisatorische Themen\InfoNet\02_Testumgebung\0018_Ansprechpartner-Datenbank" & ActiveSheet.name
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=newname, FileFormat:=xlCSV
ActiveWorkbook.Close False
End Sub

Aber die Lösung scheint Nah :-)
Ich hoffe ihr könnt mir helfen

Andreas

 

Hi Andreas,

in deinem Code wird das aktive Tabellenblatt exportiert - du musst also nur ActiveSheet durch Worksheets("DeineTabelle") ersetzen.

Bis später,
Karin

 

Hallo Karin,
soweit erst mal danke.
Das Makro soll aber nicht das aktive Tabellenblatt (1) als csv-Datei exportieren, sondern das Tabellenblatt 3. Gibt es da eine Möglichkeit, ohne den Button in das andere Tabellenblatt zu verschieben?

Ich hoffe du weißt eine Lösung

Andreas

 

Hi Andreas,

ich hatte doch bereits geschrieben, was du im Code ändern musst. Den Namen "DeineTabelle" musst du natürlich an deine Bedingungen anpassen.

Bis später,
Karin

 

Hallo Karin,
hattest du, aber ich hatte auch ".Name" gelöscht. Daher ging es nicht.
Jetzt geht es.
Kann ich dem Makro jetzt noch klar machen, dass er nicht mehr fragen soll, ob er die Datei überschreiben darf? Er soll sie ja überschreiben.
Hoffe du weißt da auch noch einen Weg

Gruß
Andreas

 

Hallo Karin
Habe jetzt eine Lösung gefunden. Funktioniert jetzt alles so wie es soll
Danke dir für deine Unterstützung
Gruß
Andreas

 

@All,

ich weiß nicht was für eine Lösung Andreas gefunden hat :p, aber ich würde es dahingehend lösen, dass ich die blau markierten Zeilen ergänze:

Code:

[COLOR=#0000ff]Application.DisplayAlerts = False[/COLOR]
ActiveWorkbook.SaveAs Filename:=newname, FileFormat:=xlCSV
[COLOR=#0000ff]Application.DisplayAlerts = True[/COLOR]

Damit werden die Benachrichtigungen von Excel zuerst abgeschaltet und erst dann die CLS-Datei erstellt. Und weil die Benachrichtigungen abgeschaltet sind, wird eine bereits vorhandene CLS-Datei ungefragt überschrieben. Am Ende wird die Benachtrichtigung wieder eingeschaltet - das ist ganz wichtig!! da andernfalls ab diesem Zeitpunkt überhaupt keine Excel-Benachrichtigungen mehr ausgegeben würden, weil diese Änderung Excel-weit gilt und nicht nur für die gerade geöffnete(n) Arbeitsmappe(n).


Bis später,
Karin

 

Guten morgen Karin, guten morgen liebe Excel-Gemeinde

Ich muss doch noch mal das Thema anschneiden.

wie gesagt, der Botton funktioniert jetzt auch soweit.

Hier noch mal das Makro:

Private Sub CommandButton1_Click()
Dim newname As String

newname = "N:\Allgemein\Organisatorische Themen\InfoNet\02_Testumgebung\0018_Ansprechpartner-Datenbank\" & Worksheets("FC_Datenbank").name
ActiveSheet.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=newname, FileFormat:=xlCSV
ActiveWorkbook.Close False
End Sub

Das Tool scheint jetzt zwar zu prüfen, ob das Tabellenblatt 3 (FC_Datenbank) vorhanden ist, aber leider sichert er weiterhin das Tabellenblatt 1. Das Tabellenblatt 1 ist zwar das, wo der Button für das Makro ist, aber speichern soll er hat das Tabellenblatt FC_Datenbank. (Tabellenblatt 3)

Ich hoffe ihr könnt mir da helfen

Schon mal ganz lieben Dank für eure Hilfe.

Andreas

PS: Deinen Hinweis "Application.DisplayAlerts = True" habe ich schon mit eingearbeitet. Danke auch dafür.

 

Hi Andreas,

du hast meinen Beitrag von Gestern, 13:11 immer noch nicht richtig gelesen...

Also bei mir wird das Tabellenblatt "FC_Datenbank" kopiert, gleichgültig ob es gerade aktiv ist oder nicht:

Code:

Private Sub CommandButton1_Click()
    Dim newname As String
    newname = "N:\Allgemein\Organisatorische Themen\InfoNet\02_Testumgebung\0018_Ansprechpartner-Datenbank\FC_Datenbank"
    Worksheets("FC_Datenbank").Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=newname, FileFormat:=xlCSV
    Application.DisplayAlerts = True
    ActiveWorkbook.Close False
End Sub

Bis später,
Karin

 

Hallo Karin,

Danke nochmal für deine Mühe. Da habe ich wohl was übersehen.

Gruß
Andreas

 

Thema: Excel Button zum speichern in csv (Office 2013)

Hallo alle zusammen,

die Lösungen die ich hier gefunden habe sind echt klasse!

Allerdings habe ich ein kleines Problem vor welchem ich stehe und nicht weiter komme.
Ich habe eine Datei mit einem Tabellenblatt "Daten". Dieses soll komplett als *.csv gespeichert werden und anschließend zwei Zellenbereiche (D15-Q27) und (F61-Q75) gelöscht werden. Das funktioniert soweit.
Aktuell speichert er die csv mit dem Namen ab welchen die xltm hat.
Jetzt möchte ich gerne die *.csv mit dem Wert als Namen abspeichern der in der Zelle D2 steht. Ist das möglich?

Aktuell sieht es so aus:

Private Sub Schaltfläche12_Klicken()
Dim newname As String

'Speichern:

newname = "C:\Daten" & ActiveSheet.Name
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=newname, FileFormat:=xlCSV
ActiveWorkbook.Close False

'Löschen:

Range("D15.Q27").ClearContents
Range("F61.Q75").ClearContents

End Sub

Vielen Dank für eure Hilfe im voraus.

Gruß
Andreas