Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
16.04.2024 16:22:58
Pivot
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
368to372
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
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro um Funktion erweitern

Makro um Funktion erweitern
28.01.2004 00:07:53
Dieter
Hallo Forum, habe unten aufgeführtes Makro, im Forum gefunden.
Meine Frage ist es Möglich das nur Werte und Formartierungen übernommen werden.
Nett wäre es wenn noch vor dem speichern eine InfoBox erscheinen würde wo der Speichername un Speicherort angezeigt wird.
MfG Dieter

Sub FileSpeichernUnter()
Dim DName As String, aktDir As String
ChDir "C:\temp" 'Speicherort
ActiveSheet.Copy
DName = "Blatt1" & " " & [A1] & " " & Format(Now, "DD-MM-YY") & ".xls"
ActiveWorkbook.SaveAs DName ' speichere unter Inhalt ZelleA1 Datum.xls
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro um Funktion erweitern
28.01.2004 00:22:12
Ramses
Hallo

Sub FileSpeichernUnter()
Dim DName As String, aktDir As String
ChDir "C:\temp" 'Speicherort
ActiveSheet.Copy
DName = "Blatt1" & " " & [A1] & " " & Format(Now, "DD-MM-YY") & ".xls"
MsgBox DName
ActiveWorkbook.SaveAs DName ' speichere unter Inhalt ZelleA1 Datum.xls
End Sub

Gruss Rainer
AW: Makro um Funktion erweitern
28.01.2004 00:29:42
Dieter
Hallo Rainer guten Morgen,Das nur Werte und keine Formel ist das nicht Möglich?
Wenn nicht sage ich schonmal Danke für die Mühe.
MfG Dieter
AW: Makro um Funktion erweitern
28.01.2004 00:36:59
Ramses
Hallo

Sub FileSpeichernUnter()
Dim DName As String, aktDir As String
ChDir "C:\temp" 'Speicherort
ActiveSheet.Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=Fals
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
DName = "Blatt1" & " " & [A1] & " " & Format(Now, "DD-MM-YY") & ".xls"
MsgBox DName
ActiveWorkbook.SaveAs DName ' speichere unter Inhalt ZelleA1 Datum.xls
End Sub

Gruss Rainer
Anzeige
AW: Danke Rainer alles Bestens o.T.
28.01.2004 00:50:05
Dieter
''
Merci :-) Geschlossen o.T.
28.01.2004 00:53:40
Ramses
...

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige