Supportnet / Forum / Tabellenkalkulation
excel
Frage
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
Antwort 1 von fedjo
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
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
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
Bis später,
karin
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