Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1268to1272
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
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

speichern unter mir Dateinamen

speichern unter mir Dateinamen
Peter
unser Betrieb wurde auf Office 2010 umgestellt.
Der Makro unten funktioniert nicht ?!?
In dem Blatt "Matrix_TÜ"n wird in der Zelle O6 ein Text mit Verketten zusammengebaut, der dann als Name im Feld Dateiname bei speiechern unter sofort steht.
Der Name aus der Zelle O6 wird nicht übernommen !
Wer weiß warum ... oder wie sollte es jetzt neu (anders) aussehen ... 

Sub SpeichernUnterDialogAufrufen()
'Application.Dialogs(xlDialogSaveAs).Show
Range("T1:X1").Select
fileSaveName = Application.GetSaveAsFilename("\\BKU.db.de\db\DB_005\glw_11\RVO-KSZ- I\I2\ _
Koordination Produktion\KAPA TÜ\Allgemeines\Proaktiv_BIK\Vordrucke\Vordrucke versendete Faxe  _
2012\TÜ56 und TÜ57\" & Worksheets("Matrix_TÜ").Range("O6") & ".xls")
If fileSaveName  False Then
ActiveWorkbook.SaveAs fileSaveName
End If
End Sub

Gruß Peter
AW: speichern unter mir Dateinamen
17.07.2012 13:11:29
marcl
Hallo Peter,
versuch mal folgendes (ungetestet):
Sub SpeichernUnterDialogAufrufen()
'Application.Dialogs(xlDialogSaveAs).Show
Range("T1:X1").Select
fileSaveName = Application.GetSaveAsFilename("\\BKU.db.de\db\DB_005\glw_11\RVO-KSZ- I\I2\ _
Koordination Produktion\KAPA TÜ\Allgemeines\Proaktiv_BIK\Vordrucke\Vordrucke versendete Faxe  _
2012\TÜ56 und TÜ57\" & ThisWorkbook.Sheets("Matrix_TÜ").Cells(6,15) & ".xls")
If fileSaveName  False Then
ActiveWorkbook.SaveAs fileSaveName
End If
End Sub

Gruß
marcl
AW: speichern unter mir Dateinamen
17.07.2012 13:17:46
Peter
halle marcl
ich bekomme Syntaxfehler angezeigt ...
Gruß Peter
Anzeige
AW: speichern unter mir Dateinamen
17.07.2012 13:30:37
Matze,Matthias
Hallo Peter,
und so?
" & Worksheets("Matrix_TÜ").Range(Cells( 6, 15) & ".xls")
warum oben select,ist das nötig?
Range("T1:X1").Select
Gruß Matze
AW: speichern unter mir Dateinamen
17.07.2012 13:49:15
Peter
hallo Matze,
funktioniert immer noch nicht ...
Gruß Peter
AW: speichern unter mir Dateinamen
17.07.2012 14:22:17
marcl
fileSaveName habe ich mal als Variable deklariert
bei nicht false sondern ""
Das Fileformat als Excel8 (xls) angegeben. Selbst wenn man xls als Endung schreibt und das unter 2010 speichert, kann man es nicht unter Excel 2003 öffnen.
Bei mir funktioniert es nun
Sub SpeichernUnterDialogAufrufen()
'Application.Dialogs(xlDialogSaveAs).Show
Range("T1:X1").Select
Dim fileSaveName As String
fileSaveName = "\\BKU.db.de\db\DB_005\glw_11\RVO-KSZ- I\I2\" & _
"Koordination Produktion\KAPA TÜ\Allgemeines\Proaktiv_BIK\Vordrucke\Vordrucke versendete  _
Faxe" & _
"2012\TÜ56 und TÜ57\" & ThisWorkbook.Sheets("Matrix_TÜ").Cells(6, 15) & ".xls"
If fileSaveName  "" Then
ActiveWorkbook.SaveAs fileSaveName, FileFormat:=xlExcel8
End If
End Sub
Gruß
marcl
Anzeige
AW: speichern unter mir Dateinamen
17.07.2012 14:22:23
marcl
fileSaveName habe ich mal als Variable deklariert
bei nicht false sondern ""
Das Fileformat als Excel8 (xls) angegeben. Selbst wenn man xls als Endung schreibt und das unter 2010 speichert, kann man es nicht unter Excel 2003 öffnen.
Bei mir funktioniert es nun
Sub SpeichernUnterDialogAufrufen()
'Application.Dialogs(xlDialogSaveAs).Show
Range("T1:X1").Select
Dim fileSaveName As String
fileSaveName = "\\BKU.db.de\db\DB_005\glw_11\RVO-KSZ- I\I2\" & _
"Koordination Produktion\KAPA TÜ\Allgemeines\Proaktiv_BIK\Vordrucke\Vordrucke versendete  _
Faxe" & _
"2012\TÜ56 und TÜ57\" & ThisWorkbook.Sheets("Matrix_TÜ").Cells(6, 15) & ".xls"
If fileSaveName  "" Then
ActiveWorkbook.SaveAs fileSaveName, FileFormat:=xlExcel8
End If
End Sub
Gruß
marcl
Anzeige
AW: speichern unter mir Dateinamen
17.07.2012 15:03:16
Peter
Hallo an alle,
es funkioniert einfach nicht ...
Gruß Peter
meine Begeisterung für Office 2010 hält sich "sehr stark in Grenzen "
AW: speichern unter mir Dateinamen
18.07.2012 07:50:20
marcl
Guten Morgen,
ist denn etwas zu sehen? Satzteil rot? Habe bemerkt, dass Zeilenumbruch vorgenommen wurde. Das wird beim Kopieren in VBA Editor nicht wieder korrigiert. Hier mien nächster Versuch mit einem neuen Zeilenumbruch. Ist "Vordrucke versendete Faxe" ein eigenener Ordner?
Sub SpeichernUnterDialogAufrufen()
'Application.Dialogs(xlDialogSaveAs).Show
Range("T1:X1").Select
Dim fileSaveName As String
fileSaveName = "\\BKU.db.de\db\DB_005\glw_11\RVO-KSZ- I\I2\" & _
"Koordination Produktion\KAPA TÜ\Allgemeines\Proaktiv_BIK\Vordrucke\" & _
"Vordrucke versendete Faxe\" & _
"2012\TÜ56 und TÜ57\" & ThisWorkbook.Sheets("Matrix_TÜ").Cells(6, 15) & ".xls"
If fileSaveName  "" Then
ActiveWorkbook.SaveAs fileSaveName, FileFormat:=xlExcel8
End If
End Sub

Gruß
marcl
Anzeige
AW: speichern unter mir Dateinamen
18.07.2012 07:51:20
marcl
Guten Morgen,
ist denn etwas zu sehen? Satzteil rot? Habe bemerkt, dass Zeilenumbruch vorgenommen wurde. Das wird beim Kopieren in VBA Editor nicht wieder korrigiert. Hier mien nächster Versuch mit einem neuen Zeilenumbruch. Ist "Vordrucke versendete Faxe" ein eigenener Ordner?
Sub SpeichernUnterDialogAufrufen()
'Application.Dialogs(xlDialogSaveAs).Show
Range("T1:X1").Select
Dim fileSaveName As String
fileSaveName = "\\BKU.db.de\db\DB_005\glw_11\RVO-KSZ- I\I2\" & _
"Koordination Produktion\KAPA TÜ\Allgemeines\Proaktiv_BIK\Vordrucke\" & _
"Vordrucke versendete Faxe\" & _
"2012\TÜ56 und TÜ57\" & ThisWorkbook.Sheets("Matrix_TÜ").Cells(6, 15) & ".xls"
If fileSaveName  "" Then
ActiveWorkbook.SaveAs fileSaveName, FileFormat:=xlExcel8
End If
End Sub

Gruß
marcl
Anzeige
AW: speichern unter mir Dateinamen
18.07.2012 08:20:55
Peter
morgen marcl,
erst einmal vielen Dank für Deinen Bemühungen.
Habe es heute morgen wieder ausprobiert und bekam die folgender Zeile gelb markiert
ActiveWorkbook.SaveAs fileSaveName, FileFormat:=xlExcel8
Gruß Peter
AW: speichern unter mir Dateinamen
18.07.2012 09:11:21
marcl
Hm, nur gelb und keine Warnhinweise? Das ist ja komisch. Wenn Du die Datei hochlädst kann ich mir das heute Nachmittag mal anschauen.
Gruß
marcl
AW: speichern unter mir Dateinamen
19.07.2012 15:59:42
Peter
hallo an alle,
ich krieg´ bald ne´ Krise ...
ich habe jetzt so einiges Ausprobiert, aber es klappt nicht ...
der richtige Ordner wird ausgewählt, aber es steht nichts in dem Feld Dateiname.
Der Dateiname soll ja aus dem Blatt Matrix_TÜ aus der Zelle T6 übernommen werden.
Der Dateiname wird in der Zelle T6 mit Verketten zusammen gesetzt.
Gruß Peter
Anzeige
AW: speichern unter mir Dateinamen
19.07.2012 16:27:32
Peter
hallo an alle,
ich krieg´ bald ne´ Krise ...
ich habe jetzt so einiges Ausprobiert, aber es klappt nicht ...
der richtige Ordner wird ausgewählt, aber es steht nichts in dem Feld Dateiname.
Der Dateiname soll ja aus dem Blatt Matrix_TÜ aus der Zelle T6 übernommen werden.
Der Dateiname wird in der Zelle T6 mit Verketten zusammen gesetzt.
Gruß Peter
ist das Zellformat Text ? Test einmal
19.07.2012 20:01:53
Matze,Matthias 

Sub SpeichernUnterDialogAufrufen()
'Application.Dialogs(xlDialogSaveAs).Show
Range("T1:X1").Select
Dim fileSaveName As String
fileSaveName = "\\BKU.db.de\db\DB_005\glw_11\RVO-KSZ- I\I2\" & _
"Koordination Produktion\KAPA TÜ\Allgemeines\Proaktiv_BIK\Vordrucke\" & _
"Vordrucke versendete Faxe\" & _
"2012\TÜ56 und TÜ57\" & ThisWorkbook.Sheets(("Matrix_TÜ").Cells(6, 15).Text) & ".xls"
If fileSaveName  "" Then
ActiveWorkbook.SaveAs fileSaveName, FileFormat:=xlExcel8
End If
End Sub
Gruß Matze
Anzeige
Cells Angabe ist falsch.
19.07.2012 20:10:24
Matze,Matthias
Hallo Peter,
Cells (6, 15) ist auch nicht T6 sondern O6
Cells (6, 20 ) ist T6
speichern unter mit Dateinamen
20.07.2012 08:05:48
Peter
morgen Matze,
als erstes mal´ - T6 war von mir ein Tippfehler - es ist O6 !
als ich ich es zum testen eingebaut hatte, wurde diese Zeile in Rot angezeigt ... es ist wohl irgendwo ein Fehler ... ?!
fileSaveName = "\\BKU.db.de\db\DB_005\glw_11\RVO-KSZ- I\I2\" & _
"Koordination Produktion\KAPA TÜ\Allgemeines\Proaktiv_BIK\Vordrucke\" & _
"Vordrucke versendete Faxe\" & _
"2012\TÜ56 und TÜ57\" & ThisWorkbook.Sheets(("Matrix_TÜ").Cells(6, 15).Text) & ".xls"
Gruß Peter
Anzeige
Lasse den Beitrag offen,....
20.07.2012 16:02:27
Matze,Matthias
Hallo Peter,
ich weis nicht woran es liegen kann, aber vielleicht solltest du mal versuchen:
A) zeichne mit dem Makrorecorder mal den genauen Pfad auf wo diese Datei abgespeichert werden soll
nur den Pfad
B) Probier doch mal in deinen Makro mit einen einfachen kurzen Pfad aus c:\Testlauf\
Hier müssen eh die Profies ran, also viel Spaß beim Testen.
Matze

299 Forumthreads zu ähnlichen Themen

Mappe mit variablen Dateinamen aktivieren
Peter

Hallöchen an alle,
wie kann man eine geöffnete Mappe über workbooks.activate oder windows.activate ansprechen, ohne dass man den vollen Dateinamen kennt.
Dateiname = "Auftragskennzahlen(*).xls"
Das * steht für eine Zahl, die mir nicht bekannt ist, sondern von einer Web-Datenbank ver...
07.08.2008 17:27:58
Thread-ID: 1000047
4 Beiträge
Anzeige
Platzhalter fuer Dateiname
Dirk

Hallo an alle Tüftler,
ich recherchierte schon stundenlang im Archiv nach diesem Betreff - wurde aber nicht so recht fündig.
Ich möchte Daten aus einer csv-Datei in eine xl-Mappe importieren - der Haken ist allerdings, daß der Name der csv-Datei ständig wechselt.
Aus der Bezeichnung...
19.08.2008 16:21:08
Thread-ID: 1002987
5 Beiträge
Dateinamen während Auto_Open im AddIn
Rolli

Hallo Forum,
ich hab da mal ne Frage!!
Ich würde gerne ein AddIn (Erstellt ne Symbolleiste) nur dann ausführen wollen, wenn eine bestimmte Datei (Z.B. "Test.csv") geöffnet wird.
Wenn ich aber in der Auto_Open Routine im AddIn das ActiveWorkbook abspreche gibt es dieses noch nicht. W...
22.08.2008 12:10:00
Thread-ID: 1003802
5 Beiträge
Anzeige
Dateiname anzeigen
Ralf

Liebes Excel-Forum,
ich hätte da wiedermal ein kleines Problem.
Ich möchte gerne den Dateinamen den ich über eine MSG-Box generiert habe, nachdem die Datei gespeichert wurde, in einer Zelle auf einem Arbeitsblatt angezeigt bekommen.
Wie macht man das?
Vielen Dank für die Mühe
09.09.2008 13:07:00
Thread-ID: 1008435
8 Beiträge
Dateinamen aus Verzeichnis
Jonatan

Hallo,
habe folgenden Code im Archiv gefunden.
Nun würde ich gerne alle Dateinamen eines Ordners und sämtlichen Unterordnern auslesen.
Die Zeile Cells(iCnt, 2) = .FoundFiles.Name ist allerdings falsch. Ich weiß nicht genau, wie man sich den Namen ausgeben lässt.
Könnt ihr mir we...
18.09.2008 08:21:00
Thread-ID: 1010589
3 Beiträge
Dateinamen aus Verzeichnis
Jonatan

Ähm, ich glaub da ging in der Darstellung meiner Frage eben was schief.
Hier nochmal der Code:
Option Explicit
Sub Daten_Loeschen() Dim fSearch As FileSearch Dim wkb As Workbook Dim strPath As String Dim iCnt As Integer Dim index As Variant strPath = "C:\Dokumente und Einstellunge...
18.09.2008 08:32:00
Thread-ID: 1010593
2 Beiträge
Alte Einträge (Dateinamen) farbig darstellen?
Selma

Hallo Leute,
ich habe in Spalte A eine Liste der Dateinamen.
Wenn vor .doc dies steht "_neu" dann soll nachgeschaut werden, ob es die Dateiname ohne "_neu" gibt,
falls ja, dann soll diese Zelle mit Füllfarbe 3 (rot) dargestellt werden.
Dies gilt nur für die Dateiendung .doc
...
21.09.2008 13:22:00
Thread-ID: 1011293
10 Beiträge
Dateinamen aus Verzeichnis nach Excel kopieren
obelix-xxl

Hallo,
nachfolgenden Makro habe ich bei der Suche hier im Forum gefunden.
Es wäre schön, wenn mir Unterstützung geboten würde.
Für meinen Anwendungsfall benötige ich in einer Afrage, die
1.) Abfrage nach dem Unterverzeichnis im dem die zu kopierenden Dateinnamen stehen (Padangab...
08.10.2008 11:35:00
Thread-ID: 1014978
3 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
3
3
4
4
4
7
2
1
9
2
8
2
7
1
4
3
4
2
5
2
2
2
2
4
26