Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
156to160
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
156to160
156to160
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur TABELLENBLATT speichern unter...

Nur TABELLENBLATT speichern unter...
05.09.2002 14:12:51
Friedl G.
Hallo Forum

Mit folgendem Makro speichere ich meine Datei unter "xyz" mit vordefinierten Speicherpfad....

Wie müsste es geändert sein, wenn ich nur ein Tabellenblatt, z.B. "Tabelle1" - "speichern unter...." - möchte.

Bitte wieder mal um Hilfe

Sub Speichern()
Dim DName As String, aktDir As String
aktDir = CurDir 'ggf. löschen**********************
ChDir "C:\Dokumente und Einstellungen\FGruber\Eigene Dateien\Backstage\Ausgangs Rechnungen"
DName = Application.GetSaveAsFilename( _
fileFilter:="EXCEL Arbeitsmappe (*.xls), *.xls")
ChDir aktDir 'ggf. löschen**********************
End Sub

Makro stammt von L.Vira

Liebe Grüße und Dank im Voraus
Friedl

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Nur TABELLENBLATT speichern unter...
05.09.2002 15:14:01
Konrad
Das geht nur indem du die leeren Tabellenblätter löscht.
Tabelle2.delete. Um sicher zu gehen, dass sie auch leer ist, musst du auf den Tabelleninhalt überprüfen. am besten ist's, wenn du eine Zelle hast, die immer gefüllt ist. Wenn sie leer ist If Tabelle2.Range("A1") = "" then Tabelle2.delete.
Am besten ist es natürlich, du machst es dynamisch:
For each Worksheet in Workbooks
If Tabelle2.Range("A1") = "" then Tabelle2.delete
next
Re: Nur TABELLENBLATT speichern unter...
05.09.2002 15:41:00
Friedl G.
Hallo Konrad

Nicht ganz was ich möchte

Mit folgendem Makro speichere ich ein einzelnes Tabellenblatt unter dem Namen "wie in c11" im Quellpfad der geöffneten Datei.

Sub RechnungSichern()
Sheets("rechnung").Copy
ActiveWorkbook.SaveAs FileName:=Range("c11").Value
End Sub


Ich möchte jedoch den Ziel vordefinieren und nicht mehr den Bezug zu c11 haben, dann öffnet sich die "Speichern unter" MsgBox und ich gebe den neuen Dateinamen ein - OK ?

Liebe Grüße
Friedl

Anzeige
Re: Nur TABELLENBLATT speichern unter...
05.09.2002 15:47:35
L.Vira
Du hast dir die Antwort doch eigenlich schon selbst gegeben:

Option Explicit
Sub Speichern()
Dim DName As String, aktDir As String
aktDir = CurDir 'ggf. löschen**********************
'ChDir "C:\Dokumente und Einstellungen\FGruber\Eigene Dateien\Backstage\Ausgangs Rechnungen"
ActiveSheet.Copy
DName = Application.GetSaveAsFilename( _
fileFilter:="EXCEL Arbeitsmappe (*.xls), *.xls")
ChDir aktDir 'ggf. löschen**********************
End Sub

Re: Man braucht nur denken :-)
05.09.2002 15:51:16
Friedl G.
Hallo Konrad

Tja...

Danke - Manchmal gehts einfach nicht...!?!?

Liebe Grüße
Friedl

Re: Nochmals Frage an Konrad
05.09.2002 16:11:35
Friedl G.
Hallo Konrad

Makro funktioniert blendend !!
Kann ich im selben Makro auch einen Befehl integrieren um dann die gespeicherte Datei auch gleich zu schliessen. d.h.,nach schliessen der "Speichern unter..." Dialogbox...

Wie lautet der Code dazu?

Danke Friedl

Anzeige
Re: Voreilig - Funktioniert doch nicht ?!?
09.09.2002 23:54:17
Friedl G.
Hallo...

War wohl ein bisschen zu voreilig..
Die Makro's funktionieren nicht so wie sollen..

Also
Workbook speichern unter....

Option Explicit
Sub Speichern()
Dim DName As String, aktDir As String
aktDir = CurDir 'ggf. löschen**********************
ChDir "C:\Dokumente und Einstellungen\FGruber\Eigene Dateien\Backstage\Ausgangs Rechnungen"
DName = Application.GetSaveAsFilename( _
fileFilter:="EXCEL Arbeitsmappe (*.xls), *.xls")
ChDir aktDir 'ggf. löschen**********************
End Sub

Makro läuft ohne Fehler ab, findet auch den Pfad, aber es wird NICHT gespeichert !!

2tens
Worksheet speichern unter..

Option Explicit
Sub Speichern()
Dim DName As String, aktDir As String
aktDir = CurDir 'ggf. löschen**********************
'ChDir "C:\Dokumente und Einstellungen\FGruber\Eigene Dateien\Backstage\Ausgangs Rechnungen"
ActiveSheet.Copy
DName = Application.GetSaveAsFilename( _
fileFilter:="EXCEL Arbeitsmappe (*.xls), *.xls")
ChDir aktDir 'ggf. löschen**********************
End Sub

Makro wird ausgeführt, alles läuft, nur die Pfadangabe wird nicht erkannt. Vordefinierte Pfadangabe wird nicht verwendet.

Was könnten die Gründe dafür sein ??

Dank im voraus
Friedl

Anzeige

200 Forumthreads zu ähnlichen Themen

VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
Anzeige
VBA Speichern unter
PeterO

Hallo!
Ich habe folgendes Problem:
über einen Commandbutton kopiert der User ein Blatt in eine neue Datei, die so dann gleich geschlossen werden soll. Hier erscheint dann der Dialog "Wollen Sie speichern? - ja - nein - abbrechen -". Ich hätte nun aber gern, dass gleich der Dialog "Speic...
28.10.2008 15:59:44
Thread-ID: 1019997
3 Beiträge
Einzelnes Tabellnblatt in PDF Datei speichern
Jens

Ich habe folgendes Problem, ich möchte ein einzelnes Tabellenblatt aus Excel heraus in eine Pdf Datei mittels command Buttom und Makro/ VBA speichern. Als PDF Prog nutze ich Adobe Acrobat Prof 8.0(bringt nen Converter mit).
THX im Voraus
27.02.2009 15:30:50
Thread-ID: 1054824
14 Beiträge
Anzeige
Nur Tabellenblatt speichern nicht ganze Arbeitsm
Horst

Hey !
Da eine meiner Arbeitsmappe immer mehr Arbeitsblätter (Tabellen) bekommt. Möchte ich diese irgendwie ausgliedern und nur bei bedarf wieder reinladen.
Kann ich das irgend wie per Marko oder zu Fuß erledigen?
Das heißt unter ihrem Namen ablegen. Und irgendwie (per extra Menüpunk...
19.03.2009 11:41:16
Thread-ID: 1061772
10 Beiträge
VBA Speichern unter
BuStue

Hallo Leute, schönen Guten Morgen.
KAnn man folgenden Code so umdrehen, das der Inhalt der Zelle D4 vor dem Blattnamen abgespeichert wird,
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ThisWorkbook.Sheets("Bestandsübersicht").Range("D4").Value & "....
26.03.2009 07:58:29
Thread-ID: 1064084
4 Beiträge
nur eine Tabelle anwählen, falls ...
Peter

Guten Tag
Gelegentlich wähle ich in einer Arbeitsmappe gleichzeitig mehrere Tabellen an, wenn ich beispielsweise bei allen die gleichen Änderungen durchführen will.
Nun habe ich mir eine Routine geschrieben, die auf allen Tabellen ein Passwort setzt oder entfernt.
Diese Routine läuf...
02.06.2009 09:34:43
Thread-ID: 1078545
8 Beiträge
Automatisch berechnen nur in einem Tabellenblatt
Gerrit

Moin,
habe das automatische berechnen gernerell ausgeschaltet, jedoch bei einem Tabellenblatt brauche ist es.
Gibt's hier ne Möglichkeit?
Vielen Dank!
Gerrit
20.06.2009 23:56:05
Thread-ID: 1083169
22 Beiträge
VBA Speichern unter
Alexander

wie kann ich bei folgendem "speichern unter" das Abbrechen unterdrücken/deaktivieren da ich sonst eine fehlermeldung bekomme ? Sub Exportieren Aktualiesieren() ' Kopieren aktueller stand in alten Stand Range("A6:L98").Copy Sheets("Alter Stand").Select Range("a4").PasteSpecial Paste:=xlPasteValu...
25.07.2009 10:08:55
Thread-ID: 1091205
2 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
2
13
2
9
3
7
21
1
13
4
5
6
5
13
10
7
3
7
8
7
1
2
15