Thema: excel


Seite durchsuchen:
Home


zurück zur Übersicht

Diskussionsgruppe: Tabellenkalkulation

Hallo leute

ich binn auf der suche nach einer Formel oder makro
und zwar!!

ich möchte Angebote schreiben excel sollte mir automatisch eine nummer zuweisen und diese datei dann unter der nummer speichern
keine ahnung ob das so funktioniert
über eure infos würde ich mich freuen
Danke

 Von: Ludsche Datum: 05.05.2007, 20:08

alle Antworten zu dieser Frage


Antwort 1 von fedjo vom 06.05.2007, 10:42
Hallo Ludsche,
das nachfolgende Makro erhöht die Zahl in A1 um 1 und bildet einen Dateinamen von A1 und B1 und speichert die Tabelle ab.
Gruß
fedjo

Option Explicit
Sub speichern()
Dim strDateiname As String
Range("A1").Value = Range("A1").Value + 1 'Zelle A1 anpassen
strDateiname = Range("A1").Value & Range("B1").Value & ".XLS" 'Zellen A1, B1 anpassen
ActiveWorkbook.SaveAs ("C:\Dokumente und Einstellungen\Admin\Desktop\" & strDateiname) 'Pfad anpassen
Application.DisplayAlerts = False
End Sub

Antwort 2 von Beverly vom 06.05.2007, 11:47
Hi,

eine andere Möglichkeit wäre, wenn du alle Angebote in einem Ordner ablegst und dann die Anzahl der Mappen zählen lässt. Das Günstigste ist, wenn du dir eine Vorlage im selben Ordner erstellst und in dieser folgenden Code verwendest

Sub dateien_zaehlen_speichern()
With Application.FileSearch
.LookIn = "D:\Eigene Dateien\Excel\"
.SearchSubFolders = False
ThisWorkbook.SaveCopyAs "Angebot" & .FoundFiles.Count + 1 & ".xls"
End With
End Sub


Bis später,
karin

Antworten der Gruppe: Tabellenkalkulation
www.supportnet.de



Office 365 stellt vertraute Microsoft Office-Tools für die Zusammenarbeit und Produktivität über die Cloud bereit. So können alle ganz einfach von nahezu überall zusammenarbeiten und auf E-Mails, Webkonferenzen, Dokumente und Kalender zugreifen.