Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1280to1284
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
Inhaltsverzeichnis

Einzelnes Tabellenblatt per klick speichern

Einzelnes Tabellenblatt per klick speichern
11.10.2012 16:16:03
Stefan
Hallo Zusammen,
ich habe eine Arbeitsmappe mit mehreren Tabellenblättern.
Jetzt möcht ich gerne einen Button einfügen, mit dem ich beim anklicken das aktive Tabellenblatt als einzelne Excelarbeitsmappe speichern kann.
Das Arbeitsblatt hat den Namen "Zusatzleistung" und der Speicherort lautet G:\Segment\Belegung\2012\.
Weis jemand wie das mit einem einfachen kniff zu machen ist? evtl. mit VBA?
Gruß
Stefan...

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einzelnes Tabellenblatt per klick speichern
11.10.2012 16:36:01
Tino
Hallo,
kannst mal so testen.
Sub Beispiel()
Dim strPath$, intFormat%, strName$, strExt$
strPath = "G:\Segment\Belegung\2012\"
With ThisWorkbook
intFormat = .FileFormat 'Fileformat
strExt = Mid$(.Name, InStrRev(.Name, "."), Len(.Name)) 'Extension
strName = ActiveSheet.Name & strExt 'Name neue Datei
.ActiveSheet.Copy 'neue Datei erstellen durch kopieren
End With
With ActiveWorkbook
.SaveAs strPath & strName, FileFormat:=intFormat
.Close 'schließen
End With
End Sub
Gruß Tino

AW: Einzelnes Tabellenblatt per klick speichern
11.10.2012 16:47:01
Stefan
Hallo Tino,
vielen Dank, hat super funktioniert.
Wenn man(n) weis wie's geht, ist's ja ganz einfach.
Nochmals Danke für die schnelle Antwort.
Gruß
Stefan...
Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige