Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
732to736
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
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Speichern VBA

Speichern VBA
Stefan
Hallo Zusammen
Ich hab folgendes roblem
Ich möchte das ich über ein Makro ein Speichern erstellen.
Dabei sollte der dateinamen aus werten von Zwei Feldern bestehen.
unter I2 steht z.b. der wert 98
und unter K2 das aktuelle Datum
als ergebniss sollte das Makro also mir die Datei unter 16.02.2006-98
Speichern.
wichtig ist mir eigentlich nur das dieses Makro den Standartwert unter I2 (z.b.98) mit dem aktuellen Datum verbindet und mir daraus eine Datei erstellt.
Grüsse aus Reutlingen
wetter 11+ Grad
Stefan

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Speichern VBA
16.02.2006 11:46:40
Frederik
Hallo Stefan!
Das muss so aussehen:
ActiveWorkbook.SaveAs (Date & "-" & ThisWorkbook.Sheets("Tabelle1").Range("I2") & ".xls")
Gruß
F
AW: Speichern VBA
16.02.2006 11:47:23
Hoffi
Hallo Stefan,
Das müsste so klappen:

Sub Speichern()
Dim strDat, strPath, fn
strPath = "C:\" 'Pfad anpassen
strDat = Cells(2, 11).Value & "-" & Cells(2, 9).Value & ".xls"
fn = strPath & strDat
ActiveWorkbook.SaveAs Filename:=fn
End Sub

Grüße
Hoffi
P.S. Rückmeldung obs klappt wäre nett...
AW: Speichern VBA
16.02.2006 11:52:58
UweD
Hallo
so...

Sub speichern()
Dim Pfad, Datum$, Z1$
Pfad = "C:\Temp\"
Datum = ActiveSheet.Range("K2") & "-"
Z1 = ActiveSheet.Range("I2") & ".xls"
ActiveWorkbook.SaveAs Filename:=Pfad & Datum & Z1
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Vielen Dank an alle
16.02.2006 12:02:46
Stefan
Habe es mit "UweD" vorschlag Probiert und es funzt.
Vielen Dank
Natürlich auch an Hoffi und Frederick.
Bis dann
Grüße Stefan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige