Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1516to1520
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
1516to1520
1516to1520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren nur Werte übertragen

Kopieren nur Werte übertragen
02.10.2016 22:09:53
chris58
Hallo !
Ich habe diesen genialen Code hier gefunden um ein Tabellenblatt in eine neue Mappe zu kopieren. . Auf der zu exportierenden Mappe sind Buttons mit Makros eingetragen. Diese sollten auf der neuen Mappe nicht aufscheinen. Ich bräuchte nur die Werte in der neuen Mappe.
Was muß ich ändern das dies so geht ?
Danke
chris58
Sub BlattKopieren()
Dim strFile As String
strFile = "MAPPE1_DATEN"   'Hier kanst du den Dateinamen vorgeben!
'Auch mit Pfad!
'"C:\Eigene Dateien\MAPPE1_DATEN"
strFile = Application.GetSaveAsFilename(InitialFileName:=strFile, _
fileFilter:="Excel Files (*.xls; *.xla; *.xlt), *.xls; *.xla; *.xlt")
If strFile = "Falsch" Then Exit Sub
Workbooks("Master.xls").Sheets("Bereinigt").Copy
With ActiveWorkbook
.Sheets(1).Name = "Exportdaten"
.SaveAs strFile
'.Close   'wenn die neue Mappe geschlossen werden soll!
End With
End Sub

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren nur Werte übertragen
02.10.2016 22:33:56
Daniel
Hi
das Sheets.Copy kopiert das komplette Tabellenblatt mit allen Inhalten und den Makrocodes
für eine "nur Werte-Kopie" legt man am besten eine neue leere Datei an und kopiert die gewünschten Inhalte hinein.
...
Workbooks.Add xlWBATWorksheet
Workbooks("Master.xls").Sheets("Bereinigt").UsedRange.Copy
Activesheet.Name = "Exportdaten"
ActiveSheet.PasteSpecial xlPasteValues
ActiveSheet.PasteSpecial xlPasteFormats
ActiveWorkbook.SaveAs strfile
...

Gruß Daniel
AW: Kopieren nur Werte übertragen
02.10.2016 23:31:47
chris58
Hallo !
Ja, das war mir klar. Nur diese Zeilen schauen nicht so aus, als ob ich das einfach übernehmen könnte.
Nur, wie bekomm ich diese Zeile in den bestehenden Code rein, das ist mir nicht so klar.
chris58
Workbooks.Add xlWBATWorksheet
Workbooks("Master.xls").Sheets("Bereinigt").UsedRange.Copy
Activesheet.Name = "Exportdaten"
ActiveSheet.PasteSpecial xlPasteValues
ActiveSheet.PasteSpecial xlPasteFormats
ActiveWorkbook.SaveAs strfile
Sub BlattKopieren()
Dim strFile As String
strFile = "MAPPE1_DATEN"   'Hier kanst du den Dateinamen vorgeben!
'Auch mit Pfad!
'"C:\Eigene Dateien\MAPPE1_DATEN"
strFile = Application.GetSaveAsFilename(InitialFileName:=strFile, _
fileFilter:="Excel Files (*.xls; *.xla; *.xlt), *.xls; *.xla; *.xlt")
If strFile = "Falsch" Then Exit Sub
Workbooks("Master.xls").Sheets("Bereinigt").Copy
With ActiveWorkbook
.Sheets(1).Name = "Exportdaten"
.Sheets(1).UsedRange.Value = .Sheets(1).UsedRange.Value
.SaveAs strFile
.Close   'wenn die neue Mappe geschlossen werden soll!
End With
End Sub

Anzeige
AW: Kopieren nur Werte übertragen
03.10.2016 00:11:27
Daniel
Hi
naja, das fügst du anstelle von dem ein, was du sonst zum kopieren und einfügen des Blattes verwendest.
deinen eigenen Code solltest du ja kennen, und da VBA im großen und ganzen englische Begriffe verwendet, muss man ja nicht jedesmal ins Handbuchschauen um zu erraten, wofür die einzelne Befehlszeile gut sein könnte.
ein bisschen Mitdenken hat beim Programmieren noch nie geschadet.
Gruß Daniel
AW: Kopieren nur Werte übertragen
02.10.2016 22:34:43
Fennek
Hallo,
versuche eine Zeile einzufügen:

With ActiveWorkbook
.Sheets(1).Name = "Exportdaten"
'NEU
.value = .value
.SaveAs strFile
'.Close   'wenn die neue Mappe geschlossen werden soll!
End With
mfg
Anzeige
AW: Kopieren nur Werte übertragen
02.10.2016 22:52:56
chris58
Hallo !
Habe den Code geändert, nur jetzt kommt dann ein Laufzeitfehler 438.
chris58
Sub BlattKopieren()
Dim strFile As String
strFile = "MAPPE1_DATEN"   'Hier kanst du den Dateinamen vorgeben!
'Auch mit Pfad!
'"C:\Eigene Dateien\MAPPE1_DATEN"
strFile = Application.GetSaveAsFilename(InitialFileName:=strFile, _
fileFilter:="Excel Files (*.xls; *.xla; *.xlt), *.xls; *.xla; *.xlt")
If strFile = "Falsch" Then Exit Sub
Workbooks("Master.xls").Sheets("Bereinigt").Copy
With ActiveWorkbook
.Sheets(1).Name = "Exportdaten"
 .Value = .Value 'hier ist der Fehler
.SaveAs strFile
'.Close   'wenn die neue Mappe geschlossen werden soll!
End With
End Sub

Anzeige
AW: Kopieren nur Werte übertragen
02.10.2016 22:58:37
Daniel
Hi
das .Value = .Value musst du auf einen Zellbereich anwenden, nicht auf das Workbook.
With .ActiveWorkbook
.Sheets(1).UsedRange.Value = .Sheets(1).UsedRange.Value
End with
aber das eleminiert nur die Formeln und keine Makros oder gar Buttons.
Gruß Daniel
AW: Kopieren nur Werte übertragen
02.10.2016 23:06:19
chris58
Hallo !
Danke, das geht nun, jedoch sind die Buttons in der neuen Mappe noch drinnen.
chris58
AW: Kopieren nur Werte übertragen
02.10.2016 23:25:46
Daniel
naja, du hast ja nicht nur von Fennek eine Antwort bekommen, sonderen davor noch von jemand anderem.
Wenn du diese Antwort einfach ignorierst, könnte der Anworter das als grobe Unhöflichkeit von dir empfinden.
Gruß Daniel
Anzeige
AW: Kopieren nur Werte übertragen
03.10.2016 00:29:01
chris58
Hallo !
Gut, dann laß ich es halt so. Habe keinen Plan.
chris
Sub BlattKopieren()
Dim strFile As String
strFile = "MAPPE1_DATEN"   'Hier kanst du den Dateinamen vorgeben!
'Auch mit Pfad!
'"C:\Eigene Dateien\MAPPE1_DATEN"
strFile = Application.GetSaveAsFilename(InitialFileName:=strFile, _
fileFilter:="Excel Files (*.xls; *.xla; *.xlt), *.xls; *.xla; *.xlt")
If strFile = "Falsch" Then Exit Sub
Workbooks("Master.xls").Sheets("Bereinigt").Copy
With ActiveWorkbook
.Sheets(1).Name = "Exportdaten"
.Sheets(1).UsedRange.Value = .Sheets(1).UsedRange.Value
.SaveAs strFile
.Close   'wenn die neue Mappe geschlossen werden soll!
End With
End Sub

Anzeige
AW: Kopieren nur Werte übertragen
03.10.2016 12:43:48
chris58
Hallo Daniel !
Habe es nun nach längern probieren geschafft und die Zeile eingebaut.
Danke nochmals für Deine Hilfe.
chris58
Sub BlattKopieren()
Dim strFile As String
strFile = "MAPPE1_DATEN"   'Hier kanst du den Dateinamen vorgeben!
'Auch mit Pfad!
'"C:\Eigene Dateien\MAPPE1_DATEN"
strFile = Application.GetSaveAsFilename(InitialFileName:=strFile, _
fileFilter:="Excel Files (*.xls; *.xla; *.xlt), *.xls; *.xla; *.xlt")
If strFile = "Falsch" Then Exit Sub
Workbooks("Master.xls").Sheets("Bereinigt").Copy
With ActiveWorkbook
.Sheets(1).Name = "Exportdaten"
.Sheets(1).UsedRange.Value = .Sheets(1).UsedRange.Value
.Sheets(1).DrawingObjects.Visible = False
.SaveAs strFile
.Close   'wenn die neue Mappe geschlossen werden soll!
End With
End Sub

Anzeige
AW: Kopieren nur Werte übertragen
03.10.2016 16:21:53
Daniel
schön das du dich selber drum bemühst.
Aber warum blendest du die Objekte nur aus und löschst sie nicht gleich ganz?
die Makros sind dann immer noch drin.
ich würde ja empfehlen:
- neue Datei erstellen
- daten kopieren und als Wert einfügen
- daten kopierne und Formate einfügen.
wenn du nicht weißt, wie das programmiert wird, kannst du es auch mal von Hand ausführen und mit dem Recorder aufzeichnen.
Gruß Daniel

305 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
aus kompletter Mappe NUR WERTE kopieren
Lauren

Hallo zusammen,
das ist wohl etwas simples aber ich bin nicht dahintegekommen.
Ich will eine Kopie einer Excel-Mappe mit ca. 80 Tabellenblättern erstellen aber es sollen NUR DIE WERTE kopiert werden also ohne Formeln usw. nur die Werte.
Dann in allen Tabellenblättern in der Kopierte...
17.09.2008 11:04:00
Thread-ID: 1010287
5 Beiträge
Anzeige
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Werte aus einer anderen xls-File kopieren
Horst

Hallo zusammen,
folgendes Problem stellt sich mir:
Ich will aus einer anderen Mappe mehrere Zeilen und Zellen kopieren. Je nachdem welche Mappe der Benutzer haben will, wird diese geöffnet und die gewünschten Daten kopiert.
Hier mein Ansatz:
Code:
Sub Kopieren()
Di...
08.10.2008 10:43:00
Thread-ID: 1014931
2 Beiträge
Minus-Zeit als Ergebnis einer Formel
Rico

Hallo liebe Ex(cel)perten
Ich kommen langsam aber stetig voran und ich entschuldige mich jetzt schon da ich weiss, dass diese Probleme viel besprochen werden in diesem genialen Forum aber ich hab leider auf mein Problem keine Lösung gefunden in der Recherche.
Gemäss Beispielmappe: https...
09.10.2008 11:31:11
Thread-ID: 1015298
3 Beiträge
Formel ganz ausblenden wenn Werte fehlen !?
nathan

Einen schönen Nachmittag,
kann ich ein Ergebnis in einer Formel solange ausblenden lassen, bis die benötigten Werte eingegeben wurden?
Beispiel:
E3 = 5
E4 = 7
E5 = (E3+E4)
Angezeigt wird: 12
E3 = 5
E4=
E5 = (E3+E4)
Nichts wird angezeigt.
oder
"We...
09.10.2008 15:18:01
Thread-ID: 1015360
2 Beiträge
in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
23.10.2008 23:15:29
Thread-ID: 1018831
7 Beiträge
Anzeige

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