Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1132to1136
1132to1136
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellblatt per Button in andere Mappe speichern | Herbers Excel-Forum

Forumthread: Tabellblatt per Button in andere Mappe speichern

Tabellblatt per Button in andere Mappe speichern
26.01.2010 10:03:34
Klaus Rettig

Guten Morgen,
ich bin noch ein VBA Neuling und habe folgendes Problem. Ich habe eine Mappe in der meine Vorlagen (Tabellenblätter) Auftragsbestätigungen(AB), Rechnungen(RE),Lieferscheine(LS) und Kunden sind. Wenn ich jetzt eine neue AB schreibe und fertg bin, soll diese in einer Mappe AB 2010 per Button gespeichert werden. Unter folgenden Kriterien: KDName(B21) und NR(S21). Da aber in der Vorlage Makros sind solle diese beim gespeicherten TB am besten gelöscht sein. Ich hoffe ihr könnt mir helfen.
Vielen Dank im vorraus
Klaus

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellblatt per Button in andere Mappe speichern
26.01.2010 10:07:11
Hajo_Zi
Hallo Klaus,
Einzelnes Register speichern 
Sub Blattspeichern()
ActiveSheet.Copy
ActiveWorkbook.SaveAs FileName:="D:\Eigene Dateien\Hajo\" & ActiveSheet.Name & ".xls"
End Sub
als Dateiname mußt Du nur Deine Datein eintragen.

Anzeige
AW: Tabellblatt per Button in andere Mappe speichern
26.01.2010 13:27:26
Klaus Rettig
Hallo Hajo,
vielen Dank für deine schnelle Antwort. Ich habe einen Button erstellt und den Code eingetragen. Aber es passiert nichts. Was mache ich falsch?
Gruß Klaus
AW: Tabellblatt per Button in andere Mappe speichern
26.01.2010 10:46:51
Oliver
Hallo Klaus,
Makro-Module können auf folgende Arten gelöscht werden:
'Löschen von Modul2 
Sub Modul_Löschen()
Set VBP = Application.VBE.ActiveVBProject
VBP.vbComponents.Remove VBP.vbComponents("Modul2")
End Sub
'Bestimmte Module löschen 
Sub Bestimmte_Module_löschen()
Dim Namen(1 To 3)
Namen(1) = "Modul1"
Namen(2) = "Modul2"
Namen(3) = "Modul3"
For x = 1 To UBound(Namen)
Set VBP = Application.VBE.ActiveVBProject
VBP.vbComponents.Remove VBP.vbComponents(Namen(x))
Next x
End Sub
'alle Module löschen 
Sub Alle_Module_löschen()
Set VB = Application.VBE.ActiveVBProject
For Each Objekt In ThisWorkbook.VBProject.vbComponents
If Objekt.Type = 1 Then VB.vbComponents.Remove _
VB.vbComponents(Objekt.Name)
Next Objekt
End Sub
Wobei die Module beim kopieren/verschieben von Tabelenblättern nicht mitgenommen werden. Diese werden beim speichern oder kopieren ganzer Dateien mitgenommen. Die Lösung von Hajo ist für Dich perfekt, da das Problem der Makros gar nicht erst entsteht.
Viele Grüsse
Oliver
Anzeige
AW: Tabellblatt per Button in andere Mappe speichern
27.01.2010 15:57:36
Klaus Rettig
Hallo,
ich habe das kopieren hingekriegt aber die Makros sind noch aktiv. Wie bekomme ich diese beim kopierten Blatt abgeschaltet? Hier mein Code:
Private Sub CommandButton2_Click()
Dim TBName$
Dim WBName$
TBName = "AB"
WBName = InputBox("Dateiname:", , "AB " & CStr(ActiveSheet.Cells(21, 2).Value) & "-" & CStr( _
ActiveSheet.Cells(21, 18).Value) & "-" & CStr(ActiveSheet.Cells(21, 19).Value) & ".xls")
If WBName = "" Then Exit Sub
Application.CutCopyMode = False
Worksheets(TBName).Copy
ActiveWorkbook.SaveAs Filename:="C:\AB 2010\" & WBName
ActiveWorkbook.Close
End Sub
Gruß Klaus
Anzeige
AW: Tabellblatt per Button in andere Mappe speichern
27.01.2010 16:00:21
Hajo_Zi
Hallo Klaus,
speichere die Datei als Version vor 97, falls Du keine Funktion benuzt die es da noch nicht gab.

;

Forumthreads zu verwandten Themen

Fehler beim Kopieren von Tabelle in neue Datei
Tabelle

Guten Abend
Aus einer Datei möchte ich gerne eine Tabelle via "Verschieben oder kopieren" in eine neue Arbeitsmappe verschieben (mittels Aktivieren des Kästchens "Kopie erstellen").
Das ist in der Regel auch kein Problem. Doch heute scheitere ich bei einer bestimmten Datei daran, da bei...
28.08.2008 17:48:35
Thread-ID: 1005548
3 Beiträge
Tabellenblätter in neue Arbeitsmappe kopieren
Christian

Hallo!
ich möchte gerne per makro aus einer datei mit ca. 70 tabellenblättern 11 Blätter auswählen und in eine neue Mappe kopieren, am besten sollten auch gleich noch die verküpfungen (in der neuen mappe) gelöscht werden.
Die zu kopierenden Blätter sind nicht hintereinander, also quer ü...
10.09.2008 16:37:00
Thread-ID: 1008845
6 Beiträge
Tabellenblatt mit Schleife mehrfach kopieren
Markus

Hallo zusammen,
ich möchte das erste Tabellenblatt mehrfach kopieren und jeder Kopie einen anderen Namen geben. Die Namen, die vergeben werden sollen, befinden sich im ersten Tabellenblatt (Spalte Z, ab Zeile 1). Derzeit sind es 10, es kommen aber leider immer welche hinzu bzw. die Namen än...
23.09.2008 21:07:55
Thread-ID: 1011888
5 Beiträge
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Alle Blätter in andere Mappe kopieren
Doro

Hallo Liebe Profis,
ich möchte gerne alle Tabs aus dem File DatenFile in das File AuswerteFile vor das Tabellenblatt 3 kopieren, und nutze folgenden Code:
Dim AuswerteFile As String
AuswerteFile = ThisWorkbook.Name
Dim FileToOpen
If Dir("C:\*.*") "" Then ChDir "C:\"
Fil...
26.01.2009 15:46:00
Thread-ID: 1043923
8 Beiträge
alle Tabellenblätter in anderes File kopieren
Doro

Hallo Forum!
habe eben schonmal "versucht" zu posten, aber irgendwie ist mein Beitrag weg...
Ich möchte gerne das File DatenFile öffnen, alle Tabellenblätter markieren, und dann in das File AuswerteFile kopieren, und bekomme in der letzten Zeile einen Laufzeitfehler.
Kann da jemand...
26.01.2009 16:48:18
Thread-ID: 1043937
3 Beiträge
Worksheet in andere Datei kopieren
Werner

mein VBA-Level: befriedigend
Hallo Freunde,
ich versuche eine Tabelle (Worksheet) von einer in eine andere Excel-Datei zu kopieren, und zwar so:
Workbooks("Datei1.xls").Worksheets("Zukopieren").Copy After:=Workbooks("Datei1.xls").Worksheets
(Sheets.Count)
Leider klappt das n...
03.02.2009 08:15:00
Thread-ID: 1046501
7 Beiträge
tabellenblatt in Excel mit neuer Instanz kopieren
chris

Hallo zusammen,
ich habe eine frage.Vielleicht könnt ihr mir helfen.
ich versuche eine Auswertung zu erstellen und diese soll in eine neue Instanz von Excel kopiert werden.
Aber irgendwie klappt das nicht :(
Ich habe unten einen code angefügt damit ich als erstes eine neue Insta...
10.02.2009 13:39:15
Thread-ID: 1049055
8 Beiträge
mehrere Blätter in andere Mappe kopieren
Jakob

Hallo,
mit den unten angehängten Code kopiere ich das aktuelle Blatt in eine seperate Mappe. Den Code würde ich jetzt gerne so erweitern, daß mehrere Blätter auf einmal in die gleiche Mappe kopiert werden.
Wie müßte der Code aussehen der das bewerkstellig?
Ich Danke Euch schon mal.<...
27.02.2009 14:29:50
Thread-ID: 1054785
5 Beiträge
Daten von und in andere Arbeitsmappe kopieren
und

Hallo,
ich wollte unten angeführte Makros folgendermaßen abändern:
Die Makros sollten aus Arbeitsmappe 1, die die zu ersetzenden DAten enthält, ausgeführt werden, d.h. es sollte kein Makro in Arbeitsmappe2 verwendet werden. Die Makros müssten also die Arbeitsmappe 2 öffnen, - die Werte...
28.02.2009 17:59:02
Thread-ID: 1055113
5 Beiträge
Anzeige
Zugriff auf Tabellenblatt in anderer Datei
Ulrich

Hallo,
ich würde gerne in einer Datei eine Zusammenfassung darstellen, und gebe dazu einen Namen eines Tabellenblattes einer anderen Datei ein, aus der dann eine Zelle übernommen wird. Ziel ist es in der Zusammenfassung z.b. 2012 als Jahr (Name des Tabellenblattes) einzugeben und ich bekomm...
01.03.2009 18:03:43
Thread-ID: 1055274
2 Beiträge
Datenübernahme in andere Arbeitsmappe
Uwe

Guten Morgen,
In einer Jahrestabelle (Datum steht in Spalte C) werden Daten für verschiedene Mitarbeiter festgehalten. Diese Daten befinden sich z.B. für den 13.03.09 (Datum steht in C13) in den Zellen E13:AA13. Via VBA habe ich die Möglichkeit beim Öffnen der Datei zum aktuellen Datum zu "...
13.03.2009 08:28:55
Thread-ID: 1059736
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige