Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
280to284
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
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabelle speichern

Tabelle speichern
17.07.2003 09:41:14
Giuseppe Bonfirraro
Hallo zusammen,
Wie kann ich innerhalb 1 Arbeitsmappe nur eine Tabelle speichern?
Unter andere habe eine Tabelle (Rechnung). Ich möchte die Rechnung speichern unter der Rechnungsnummer (F7).
Kann mir jemand helfen?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle speichern
17.07.2003 09:47:09
geri
Hallo Guiseppe
als Ansatz wobei bei INPUbox musst du ändern auf Deine Zelle mit Rechnungsnummer

Sub Speichern_blatt()
Application.ScreenUpdating = False
ActiveSheet.Copy
Dim neuName As String
neuName = InputBox("Unter welchem Namen soll die Datei gespeichert werden?")
'Pfad anpassen "C:\???????\
ActiveWorkbook.SaveAs Filename:="C:\DATEN\" & neuName & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'Pfad anpassen "C:\???????\
MsgBox " Die Datei wurde unter C:\DATEN\ " & neuName & " gespeichert !", vbibformation
Application.ScreenUpdating = True
End Sub

gruss geri

Anzeige
AW: Tabelle speichern
17.07.2003 10:41:55
Giuseppe Bonfirraro
Hallo geri danke für deine Antwort. Ich möchte die Tabelle mit der Ihnalt der Zelle N15 speichern. wie soll ich deine Makro ändern?

AW: Tabelle speichern
18.07.2003 09:03:17
geri
Hallo Giuiseppe
es wird nur ein blatt gespeichert das wolltest du doch
gehe zu VBA Umgebung (Alt+F11) füge ein Modul ein und diesen Code in Modul

Sub Speichern_blatt()
Application.ScreenUpdating = False
ActiveSheet.Copy
Dim neuName As String
'in Range steht die Zelle von wo Name geholt wird
neuName = Range("N15")
neuName = InputBox("Unter welchem Namen soll die Datei gespeichert werden?")
'Pfad anpassen "C:\???????\
ActiveWorkbook.SaveAs Filename:="C:\DATEN\" & neuName & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'Pfad anpassen "C:\???????\
MsgBox " Die Datei wurde unter C:\DATEN\ " & neuName & " gespeichert !", vbibformation
Application.ScreenUpdating = True
End Sub

hoffe es ist die Lösung für Dich
gruss geri

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige