Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Dettleff33 vom 09.06.2020, 13:42 Options
ich möchte eine Excel-Datei speichern u. als Dateinamen die Werte aus der Tabelle nehmen.
Hallo,
ich brauche eure hilfe.
ich möchte eine Excel-Datei speichern u. als Dateinamen die Werte aus der Tabelle nehmen.
Problem ist in der Zelle "c2" habe ich als Datum Mai 2008 (01.05.08) stehen, beim speichern nimmt er immer 01.05.2008.
Ich hätte gerne so : "Name" GmbH Prov. Abr. Mai 2008
Sub Aufstellungen_speichern()
Dim such As String
Dim ort1 As Variant
such = Range("A1").Value
Workbooks.Open Filename:="K:\VP\Vertriebspartner.xls"
Cells.Find(What:=such, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Selection.AutoFilter Field:=3, Criteria1:=such, Operator:=xlAnd
Range("M500").Select
Selection.End(xlUp).Select
ort1 = Selection.Value
ActiveWorkbook.Close savechanges:=False
Range("c2").Select
Selection.NumberFormat = "mmmm yyyy"
ActiveWorkbook.SaveAs Filename:=ort1 & ActiveSheet.Range("a1") & " Prov. Abr. " & ActiveSheet.Range("c2") & ".xls"
ActiveWorkbook.Close
End Sub
ich brauche eure hilfe.
ich möchte eine Excel-Datei speichern u. als Dateinamen die Werte aus der Tabelle nehmen.
Problem ist in der Zelle "c2" habe ich als Datum Mai 2008 (01.05.08) stehen, beim speichern nimmt er immer 01.05.2008.
Ich hätte gerne so : "Name" GmbH Prov. Abr. Mai 2008
Sub Aufstellungen_speichern()
Dim such As String
Dim ort1 As Variant
such = Range("A1").Value
Workbooks.Open Filename:="K:\VP\Vertriebspartner.xls"
Cells.Find(What:=such, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Selection.AutoFilter Field:=3, Criteria1:=such, Operator:=xlAnd
Range("M500").Select
Selection.End(xlUp).Select
ort1 = Selection.Value
ActiveWorkbook.Close savechanges:=False
Range("c2").Select
Selection.NumberFormat = "mmmm yyyy"
ActiveWorkbook.SaveAs Filename:=ort1 & ActiveSheet.Range("a1") & " Prov. Abr. " & ActiveSheet.Range("c2") & ".xls"
ActiveWorkbook.Close
End Sub
Antwort 1 von M.O. vom 09.06.2020, 14:27 Options
Hallo,
versuch es mal so:
Gruß
M.O.
versuch es mal so:
Sub Aufstellungen_speichern()
Dim such, Monat As String
Dim ort1 As Variant
Dim m as integer
such = Range("A1").Value
Workbooks.Open Filename:="K:\VP\Vertriebspartner.xls"
Cells.Find(What:=such, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Selection.AutoFilter Field:=3, Criteria1:=such, Operator:=xlAnd
Range("M500").Select
Selection.End(xlUp).Select
ort1 = Selection.Value
ActiveWorkbook.Close savechanges:=False
Range("c2").NumberFormat = "mmmm yyyy"
m = Month(Range("C2"))
Select Case m
Case Is = 1
Monat = "Januar "
Case Is = 2
Monat = "Februar "
Case Is = 3
Monat = "März "
Case Is = 4
Monat = "Abril "
Case Is = 5
Monat = "Mai "
Case Is = 6
Monat = "Juni "
Case Is = 7
Monat = "Juli"
Case Is = 8
Monat = "August "
Case Is = 9
Monat = "September "
Case Is = 10
Monat = "Oktober "
Case Is = 11
Monat = "November "
Case Is = 12
Monat = "Dezember "
End Select
ActiveWorkbook.SaveAs Filename:=ort1 & ActiveSheet.Range("a1") & " Prov. Abr. " & Monat & Year (Range(“C2“)) & ".xls"
ActiveWorkbook.Close
End Sub
Gruß
M.O.
Antwort 2 von Dettleff33 vom 09.06.2020, 14:50 Options
Hallo,
danke für deine schnelle Antwort.
Bekomme eine Fehlermeldung
Lauzeitfehler "1004"
Die Methode 'SaveAS' für das Objekt'_Workbook ist fehlgeschlagen
Gruß, Dettleff33
danke für deine schnelle Antwort.
Bekomme eine Fehlermeldung
Lauzeitfehler "1004"
Die Methode 'SaveAS' für das Objekt'_Workbook ist fehlgeschlagen
Gruß, Dettleff33
Antwort 3 von M.O. vom 09.06.2020, 15:29 Options
Hallo,
bei dem Ausdruck Year (Range(“C2“) musst die Anführungszeichen noch mal richtig setzen, dann sollte es klappen.
Gruß
M.O.
bei dem Ausdruck Year (Range(“C2“) musst die Anführungszeichen noch mal richtig setzen, dann sollte es klappen.
Gruß
M.O.
Antwort 4 von Dettleff33 vom 10.06.2020, 15:09 Options
Super, danke
Es funktioniert
Es funktioniert
Ähnliche Themen
Berechnung speichern, Eingabewerte löschen
Lene2 20.08.2007 - 16 Hits - 1 Antwort
Daten von Mappe A nach Mappe B kopieren
Tomschi 31.08.2007 - 15 Hits - 3 Antworten
Tabelle als pdf speichern UND ausdrucken
m-o-m 19.10.2007 - 77 Hits - 2 Antworten
Aus Access Excel-Datei füllen und öffnen
stirlitz 30.10.2007 - 199 Hits - 2 Antworten
Dateinamen auslesen
prack 21.01.2008 - 78 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
