Supportnet Computer Supportnet Games Supportnet Kochen Explipedia
Login: guestBesucher online: 389
Supportnet Computerforum
SUPPORT
Home
Forum
Tipps & Infos
Blitz Angebote
Members
Hilfe
Video

TOP THEMEN
SSD Test
Alles über SSDs

Android Tipps
iPad Tipps
Google Tipps
Windows 8 FAQ
Windows 7 FAQ
E-Mail FAQ
Netzwerk FAQ
Festplatten FAQ
Datenrettung FAQ
Bildbearbeitung FAQ

Top iPhone Apps
Computer Einsteiger
Die 5 besten...
Explipedia
Themen
Direktlinks

Neue Einträge
News einsenden News einschicken
Tipps einsenden Tipp einschicken

SN-LINKS

Suche
Befreundete Seiten
Top Seiten

Supportnet/Forum/Tabellenkalkulation



Supportnet/Forum/Tabellenkalkulation
von happy1998 vom 11.01.2018, 13:56 Diese Seite den Supportnet Favoriten hinzufügen  Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden


Dateinamen per Makro erstellen

 (146 Hits)

Hallo,
in Excel habe ich ein Blatt, welches nach dem speichern als *xlsx Datei versandt werden soll.

Application.Dialogs(xlDialogSaveAs).Show sFilename, xlOpenXMLWorkbook


Der Name besteht aus dem aktuellen Jahr _ aktueller Monat _ aktueller Tag _ Inhalt Zelle AZ26 _ die ersten fünf Zeichen des Inhalts Zelle AZ29 _ Inhalt Zelle AZ30

2018_01_10_xxx_yyy_zzz

xxx=AZ26
yyy=AZ29
zzz=AZ30

Kann mir jemand helfen?


Antwort schreiben 50 Bonuspunkte

Antworten...
Antwort 1 von M.O. vom 11.01.2018, 15:39 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo,

wenn es nur um den Dateinamen geht, dann probier es mal so:

Sub name()

Dim strName As String

strName = Year(Date)

If Month(Date) < 10 Then
 strName = strName & "_0" & Month(Date)
Else
 strName = strName & "_" & Month(Date)
End If

If Day(Date) < 10 Then
 strName = strName & "_0" & Day(Date)
Else
 strName = strName & "_" & Day(Date)
End If

strName = strName & "_" & Left(Range("AZ26"), 5) & "_" & Left(Range("AZ29"), 5) & "_" & Left(Range("AZ30"), 5)

MsgBox strName

End Sub

Gruß

M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 2 von happy1998 vom 11.01.2018, 16:44 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo M.O. ,

danke das Makro funktioniert.

Wie bekomme die denn nun die Variable name als Vorschlag für sFilename?

Application.Dialogs(xlDialogSaveAs).Show sFilename, xlOpenXMLWorkbook


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 3 von M.O. vom 11.01.2018, 19:33 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo happy1998,

das kannst du so machen:

Sub name()

Dim strName As String
Dim strDatei As String

strName = Year(Date)

If Month(Date) < 10 Then
 strName = strName & "_0" & Month(Date)
Else
 strName = strName & "_" & Month(Date)
End If

If Day(Date) < 10 Then
 strName = strName & "_0" & Day(Date)
Else
 strName = strName & "_" & Day(Date)
End If

strName = strName & "_" & Left(Range("AZ26"), 5) & "_" & Left(Range("AZ29"), 5) & "_" & Left(Range("AZ30"), 5) & ".xlsx"

Datei = Application.GetSaveAsFilename(InitialFileName:=strName, fileFilter:="Excel-Arbeitsmappe, *.xlsx")
If Datei = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Datei

End Sub


Gruß

M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 4 von happy1998 vom 12.01.2018, 11:03 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo M.O.

habe das Makro eingebaut bekomme aber eine Fehlermeldung:
Laufzeitfehler '1001'
Diese Erweiterung kann nicht mit dem ausgewähltem Dateityp verwendet werden ....

ActiveWorkbook.SaveAs Filename:=Datei

Hintergrund:
Die genutzte Datei ist eine *.xlsm Datei, die vor dem versenden als *.xlsx gespeichert werden soll (und natürlich die Makro Funktionen verlieren soll).

Die *.xlsm Datei ist lediglich die Vorlage ...


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 5 von M.O. vom 12.01.2018, 11:25 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo happy1998,

ersetze am die Zeile
ActiveWorkbook.SaveAs Filename:=Datei

durch
ActiveWorkbook.SaveAs Filename:=Datei , FileFormat:=xlOpenXMLWorkbookMacroEnabled  

Gruß

M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 6 von happy1998 vom 12.01.2018, 11:49 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo M.O.,

funktioniert leider nicht - es kommt die gleiche Fehlermeldung.


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 7 von M.O. vom 12.01.2018, 12:26 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo happy1998,

so funktioniert es bei mir:

Sub name()

Dim strName As String
Dim strDatei As String

strName = Year(Date)

If Month(Date) < 10 Then
 strName = strName & "_0" & Month(Date)
Else
 strName = strName & "_" & Month(Date)
End If

If Day(Date) < 10 Then
 strName = strName & "_0" & Day(Date)
Else
 strName = strName & "_" & Day(Date)
End If

strName = strName & "_" & Left(Range("AZ26"), 5) & "_" & Left(Range("AZ29"), 5) & "_" & Left(Range("AZ30"), 5) & ".xlsx"

'Benachrichtungen ausschalten
Application.DisplayAlerts = False

Datei = Application.GetSaveAsFilename(InitialFileName:=strName, fileFilter:="Excel-Arbeitsmappe, *.xlsx")
If Datei = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Datei, FileFormat:=xlOpenXMLWorkbook

'Benachrichtungen wieder einschalten
Application.DisplayAlerts = True

End Sub

Gruß

M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten
Diese Antwort hat das Problem gelöst!




Antwort schreiben
    Bitte einen 'Nickname' wählen.
Nickname:*
    (eMail-Adresse wird nicht veröffentlicht.)
eMail:
Nachricht: Ich möchte bei Antworten benachrichtigt werden.
    Hilfe zur Beitragsformatierung gibts [hier]
                   
Antwort:*
  Die Nutzungsbedingungen habe ich gelesen und akzeptiert.

MACHEN SIE IHRE WEBSITE ATTRAKTIVER
Sie haben eine eigene Website und wollen Ihre Besucher auf den Supportnet-Service aufmerksam machen? Kopieren Sie einfach den Quellcode in Ihre Seite und jeder Besucher Ihrer Seite kann direkt auf die Supportnet-Datenbank zugreifen.

My Supportnet


SUCHE

Gruppen im Forum
Betriebsysteme
Software
Hardware
Netzwerk
Programmierung
Sonstiges

Impressum © 1997-2018 Supportnet
Version: supportware 1.8.230E / 18.10.2010, Startzeit:Thu Jan 11 00:11:46 2018