Supportnet / Forum / Tabellenkalkulation

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

Hallo,

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.

Hallo,

danke für deine schnelle Antwort.


Bekomme eine Fehlermeldung

Lauzeitfehler "1004"

Die Methode 'SaveAS' für das Objekt'_Workbook ist fehlgeschlagen

Gruß, Dettleff33

Hallo,

bei dem Ausdruck Year (Range(“C2“) musst die Anführungszeichen noch mal richtig setzen, dann sollte es klappen.

Gruß

M.O.

Super, danke

Es funktioniert

• Berechnung speichern, Eingabewerte löschen
• Daten von Mappe A nach Mappe B kopieren
• Tabelle als pdf speichern UND ausdrucken
• Aus Access Excel-Datei füllen und öffnen
• Dateinamen auslesen