Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Tabellen mit Button übertragen

Tabellen mit Button übertragen
25.11.2005 10:10:42
Matthias
Hallo Miteinander
Ein Excelarbeitsblatt mit 3 Tabellen soll mittels Button gespeichert werden,
so dass nur 2 Tabellen (z.b: Tabelle2 und Tabelle 3) in ein neues Excelfile gespeichert werden. Mit nur einer Tabelle geklappt es, aber bei 2 Tabellen weiss ich nicht wie das geht. Kann mir Jemand weiterhelfen?
Herzlichen Dank und baldiges schönes Wochenende.
Matthias
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellen mit Button übertragen
25.11.2005 12:58:58
Thorsten
Hallo Matthias,
ich prale jetzt mal mit fremden Wissen. Folgender Code ist von Herrn Herbers Excel CD. Die Anschaffung lohnt sich.
gib den Code im Standartmodul ein:

Sub SaveAndBackUp()
Dim sPath As String, sFile As String
Application.ScreenUpdating = False
'In Zelle B1 den Speicherpfad eintragen z.B. c:\temp'
sPath = Range("B1").Value & "\"
With ActiveWorkbook
'Datei wird mit der Endung "bak" gespeichert'
sFile = Left(.Name, Len(.Name) - 3) & "bak"
End With
Worksheets(Array("Tabelle1", "Tabelle3")).Copy
ActiveWorkbook.SaveAs sPath & sFile
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub

Das Forum lebt von Rückmeldung
Gruß
Thorsten
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige