Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
652to656
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
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Beim Speichern auf CSV-Datei prüfen

Beim Speichern auf CSV-Datei prüfen
14.08.2005 18:46:10
Cordula
Hallo Excel-Freunde,
folgenden Code nutze ich, um eine CSV-Datei als xls-Datei unter dem Namen "Buch.xls" zu speichern. Dabei bleibt die Original-CSV-Datei bestehen. Das funktioniert auch. Allerdings wird JEDE Arbeitsmappe unter dem Namen BUCH gespeichert, sobald ich auf das Button klicke. Genau das soll Excel nicht. Ich möchte, dass nur CSV-Dateien -diese haben unterschiedliche Dateinamen- als Buch.xls gespeichert werden (er überschreibt jedesmal die Datei und das ist ok)

Sub Buch_Speichern()
Const LW = "c:\"
Const Pfad = "c:\Cordula"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "Buch.xls", FileFormat:=xlNormal
ActiveWorkbook.Close SaveChanges:=True
End Sub

In der Recherche habe ich leider nichts gefunden. Wäre toll, wenn mir jemand helfen könnte. Vielen Dank schon mal im voraus!
LG
Cordula

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beim Speichern auf CSV-Datei prüfen
14.08.2005 19:51:30
Erich
Hallo Cordula,
versuch mal

Sub Buch_Speichern()
'   Const LW = "c:\"
Const Pfad = "c:\Cordula\"
If UCase(Right(ActiveWorkbook.Name, 4)) = ".CSV" Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Pfad & "Buch.xls", FileFormat:=xlNormal
ActiveWorkbook.Close SaveChanges:=True
End If
End Sub

DIe Variable LW wird nicht verwendet. "Pfad" habe ich beim SaveAs vor den Dateinamen gestellt.
Wenn die Endung nicht csv ist, passiert nichts.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Beim Speichern auf CSV-Datei prüfen
14.08.2005 20:40:29
Cordula
Hallo Erich,
vielen vielen Dank für den Code. Er funktioniert!
Würdest du mir bitte noch sagen, was
If UCase(Right(ActiveWorkbook.Name, 4))
bedeutet?
Wäre toll.Danke!
LG
Cordula
Anzeige
AW: Beim Speichern auf CSV-Datei prüfen
14.08.2005 21:50:45
Erich
Hallo Cordula,
klar, gerne:
ActiveWorkbook.Name
- ist klar, Name der Mappe (z.B. abc.Xls oder efg.csv)
Right(ActiveWorkbook.Name, 4)
- die letzten vier Stellen des Namens (z.B. .Xls oder .csv)
UCase(Right(ActiveWorkbook.Name, 4))
- die vier Stellen GROSS geschrieben (z.B. .XLS oder .CSV)
(Dann ist egal, wie csv im Dateinamen geschrieben ist, csv oder Csv oder CSV oder csV...).
Genauso gut hätte man
If LCase(Right(ActiveWorkbook.Name, 4)) = ".csv" then
schreiben können - alles mit Kleinbuchstaben.
Mehr Infos bekommst du leicht, wenn du im VBA-Code den Cursor in einen der vorkommenden Begriffe stellst und F1 drückst.
Grüße von Erich aus Kamp-Lintfort
Anzeige
DANKE! o.T.
15.08.2005 10:44:13
Cordula
AW: Beim Speichern auf CSV-Datei prüfen
14.08.2005 19:53:20
Reinhard
Hi Cordula,
mir ist völlig unklar warum du bei Nicht-csv-Dateien auf den Button klickst!?
ungetestet:

Sub Buch_Speichern()
if instr(thisWorkbook.name,".csv")then ActiveWorkbook.SaveAs "Buch.xls", FileFormat:=xlNormal
ActiveWorkbook.Close SaveChanges:=True
End Sub

Gruß
Reinhard
AW: Beim Speichern auf CSV-Datei prüfen
14.08.2005 20:45:04
Cordula
Hey Reinhard,
deine Frage ist berechtigt, warum ich noch einmal drauf klicke.....
Nur nutzen andere Anwender diese Tabelle und ruck zuck kann es passieren, dass sie auf den Button klicken -versehentlich natürlich- und schon wird die aktive Mappe als BUCH gespeichert. Das wäre nicht so toll.
Dein Code werde ich noch etwas umändern, weil auch deine Variante grundsätzlich super ist. Vielen Dank für deine Hilfe.
LG
Cordula
Anzeige
AW: Beim Speichern auf CSV-Datei prüfen
14.08.2005 22:57:14
Reinhard
Hi Cordula,
lass den Ursprungscode, klicke im VB-Editor doppelt auf dieseArbeitsmappe und fügst folgenden Code rein. Die zweite Sub dint nur zur Ermittlung des Namens, kannste dann danach löschen.
Gruß
Reinhard
folgenden Code?
15.08.2005 10:52:54
Cordula
Hallo Reinhard,
aahhh, ich verstehe, warum "dieser Arbeitsmape". Du hast geschrieben "...fügst folgenden Code rein..." Es folgte aber keiner :-)) Meinst du jenen, den du mir vorher geschickt hast? Leider habe ich gerade nicht die Möglichkeit, es auszuprobieren.
LG
Cordula
AW: folgenden Code?
15.08.2005 13:46:56
Reinhard
Hallo Cordula,
sorry, hatte vergessen ihn mitzuschicken, habe ihn neu geschrieben: 

Option Explicit
Private Sub Workbook_Open()
If InStr(ThisWorkbook.Name, ".csv") Then
Worksheets("Tabelle1").Shapes("Button 1").Visible = True
Else
Worksheets("Tabelle1").Shapes("Button 1").Visible = False
End If
End Sub
Sub Namenermitteln()
Dim bild
For Each bild In ActiveSheet.Shapes
MsgBox bild.Name
Next bild
End Sub

Gruß
Reinhard
Anzeige
Vielen Dank Reinhard! o.T.
15.08.2005 14:49:53
Cordula

303 Forumthreads zu ähnlichen Themen

Access Datei in csv Datei speichern
Fred

Hallo zusammen
Ich habe ein Problem und hoffe mir kann jemand helfen. Ich importiere in meine Tabelle csv.Dateien.
Vorher muss ich aber immer Access Tabellen in das csv.Format exportieren. Ich suche ein Makro was dieses für mich automatisch auf Button klick machen würde.
Also Datei...
25.08.2008 20:27:50
Thread-ID: 1004581
5 Beiträge
Anzeige
Registerkarte als csv separat speichern
Herbert

Hallo,
ich möchte eine Registerkarte per Knopfdruck auf einen Button (Steuerelement) in eine neue Datei im Ordner C:\Temp speichern. Anbei der Code zum Speichern im txt-Format. Kann man diese auf das Ausgabeformat csv modifizieren? Bin für jede Hilfe dankbar.
Gruß Herbert
Dim strSep...
16.10.2008 10:01:00
Thread-ID: 1016757
2 Beiträge
Tabellenblatt separat speichern als csv
Herbert

Hallo,
der beigefügte Code wurde mir freundlicherweise hier bereit gestellt. Aus einer Datei wird ein Tabellenblatt in eine neue Datei im Ordner C:\temp gespeichert. Das Dateiformat der neuen Datei ist csv. Die einzelnen Werte der neuen csv-Datei werden durch Semikolon getrennt. Ich benötig...
16.10.2008 16:07:00
Thread-ID: 1016905
6 Beiträge
Anzeige
Als csv automatisiert speichern
Herbert

Hallo,
noch eine Frage zur Speicherung eines Excel-Sheets in eine neue Datei.
Die Ausgangsdatei hat eine Registerkarte. Der Inhalt dieser Registerkarte soll im Pfad C:\temp\sicherung als .csv-Datei abgelegt werden. Der Dateiname soll "Saldierung_aktuelles Datum.csv" sein.
Leider wir...
20.11.2008 12:02:00
Thread-ID: 1026369
2 Beiträge
Tabellenblätter einzeln als Datei speichern
murat

Hallo,
ich habe einen tollen VBA Code hier im Forum gefunden!
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle C2 des jeweiligen tabellenblattes.
Der Code unten i...
13.01.2009 11:46:16
Thread-ID: 1039178
3 Beiträge
Umwandeln PIVOT-Tabelle in reguläre Datentabelle
Susi

Hallo liebe Excel-Freunde,
ich habe eine Pivot-Tabelle aus einer umfangreichen Datenmenge erstellt und das Datum nach Quartalen gruppiert. Diese Daten der neuen Pivot-Tabelle möchte ich nun weiterverwenden. Das Problem dabei ist, das ich die Werte der Pivot-Tabelle in eine neue reguläre Dat...
04.02.2009 12:03:00
Thread-ID: 1046976
5 Beiträge
Alle Dateien als Excel97 speichern
WolfgangN

Hallo,
ich habe Excel2003 und möchte alle Excel-Tabellen aus einem Ordner (Excel-Tabellen) in einem anderen Ordner (PCShop) als Excel 97 Version speichern, um sie zu brennen und zu einem PC zu nehmen, wo nur Excel 97 installiert ist.
An den Dateien wird nichts geändert, soll nur als Exc...
12.02.2009 19:17:00
Thread-ID: 1050222
3 Beiträge
Möchte .xls in .csv umwandeln
Leo

Moin Moin zusammen,
ich raff` es einfach nicht wie ich meine .xls-Daten in eine .csv-Datei umwandeln lassen kann !!!
Wahrscheinlich ist es einfach zu spät am Abend bzw. zu früh am morgen !? ?! !?
Eine kurze Erklräung ist in der Datei vorhanden : https://www.herber.de/bbs/user/60320....
15.03.2009 04:29:27
Thread-ID: 1060323
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
33
1
5
4
1
2
4
2
3
14
1
1
1
1
2
2
2
5
3
5
4
3
7
1