Excel, automatisches Speichern

  • #1
E

Elhamplo

Aktives Mitglied
Themenersteller
Dabei seit
21.09.2005
Beiträge
26
Reaktionspunkte
0
Hallo.......

wie schon gesagt bin ich Excel-Neuling.

Ich brauch schon wieder Hilfe.

Ich möchte eine Exceldatei speichern mit Hilfe eines Makros, so das ein wenig PC-Erfahrender einfach nur auf einem Button drücken muss.

Das Laufwerk ist immer das Gleiche nur die Datei muss bei jedem neuen Speichern in ein neuen Ordner gespeichert werden. Der Makro soll also dann nach dem Namen der Datei fragen und wie der Ordner heissen soll, und dann die Datei in den soeben angelegten Ordner speichern.

Vielen Dank für Eure Hilfe

Gruß Elhamplo
 
  • #2
Hallo

ich hab dir mal etwas gemacht. Einfach ich weiss nicht ob es vielleicht besser wäre eine Kontrolle einzubauen welche kontrolliert ob der Ordnername bzw. der Dateiname im Ordner bereits exsitiert.

aber naja, das könnte man dann noch einbauen.

Zwingend ist einfach dass du einen Hauptpfad angibst. Damit das Makro einen anhaltspunkt hat wo das ding gespeichert wird ^^.

Ich hoffe es ist verständlich erklärt, sonst einfach fragen :D

Code:
Option Explicit
Sub speichern()
'Hauptpfad festlegen
Const c_hauptpfad = C:\Makro Sachen\wintotal\

Dim ordner As String, dateiname As String, npfad As Long

'Bestimmen des Ordnernamens
ordner = Application.InputBox(prompt:=Bitte geben sie den Ordnername ein, Title:=Ordnernamen, Type:=2)

'Bestimmen des Dateinamens
dateiname = Application.InputBox(prompt:=Bitte geben sie den Dateiname ein, Title:=Dateinamen, Type:=2)

npfad = c_hauptpfad & ordner & \ & dateiname & .xls

'Ordner erstellen
MkDir c_hauptpfad & ordner & \

'Speichern
ThisWorkbook.SaveAs filename:=npfad

End Sub

mfg billy
 
  • #3
Hallo Billy,

Sorry das ich erst jetzt schreiben kann, hatte leider keine Zeit........

super, danke das funst, genau so was suchte ich. :D

Wie gesagt nochmals Sorry wegen der späten Antwort.

Gruß

Elhamplo
 
Thema:

Excel, automatisches Speichern

ANGEBOTE & SPONSOREN

Statistik des Forums

Themen
113.840
Beiträge
707.963
Mitglieder
51.494
Neuestes Mitglied
Flensburg45
Oben