Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1132to1136
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
1132to1136
1132to1136
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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.

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.

301 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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

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
2
5
4
4
7
2
6
7
4
4
1
1
2
3
5
6
6
5
5
1
10
8
1
5
7