Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1644to1648
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
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitsblatt nur als Werte kopieren

Arbeitsblatt nur als Werte kopieren
07.09.2018 12:39:09
martin
Hallo an alle,
ich habe ein Makro programmiert, bei dem ich via Buttonklick eine Arbeitsmappe aus dem Windows Explorer auswählen kann, von dem es dann das erste Arbeitsblatt in dei Mappe mit dem Button kopiert:
If strDatei "" Then
Set wkb = Workbooks.Open(strDatei)
wkb.Sheets(1).Copy after:=wkbAkt.Sheets(1) 'Nur Arbeitsblatt 1 relevant
wkb.Close False
End If
Könnt ihr mir sagen, wie ich es umsetzen kann, dass bei diesem Kopiervorgang lediglich die Werte kopiert werden und nicht Formeln, Bilder etc?
Dankeschön
Martin

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsblatt nur als Werte kopieren
07.09.2018 12:46:12
Werner
Hallo Martin,
auf diese Weise gar nicht.
Du kopierst ja ein komplettes Blatt und komplett bedeutet halt auch, dass du die Formatierungen mit kopierst.
Wenn, dann müsstest du den Bereich, den du kopieren willst entsprechend ansprechen, kopieren, in der Zieldatei ein neues Blatt einfügen und dort dann die kopierten Daten als Werte wieder einfügen.
Gruß Werner
AW: Arbeitsblatt nur Werte kopieren
07.09.2018 13:22:11
Gerd
Moin Martin,
teste mal. 
wkbAkt.Sheets.Add after:=wkbAkt.Sheets(1)  'Nur Arbeitsblatt 1 relevant
wkb.Sheets(1).UsedRange.Copy
ActiveSheet.Range(wkb.Sheets(1).UsedRange.Address).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Gruß Gerd
Anzeige
AW: Arbeitsblatt nur Werte kopieren
11.09.2018 10:19:06
martin
Hallo Gerd,
vielen Dank für deine Antwort. Der Code funktioniert bedingt. Ich bekomme jetzt beide Versionen in meine Arbeitsmappe kopiert. Also einmal nur Werte und einmal mit Formeln. Ich finde einfach nicht lückenlos raus welche Zeile ich ändern/ rausnehmen muss. Evtl. kannst Du nochmal helfen. Hier der Code des gesamten Modul:
Sub AbgerundetesRechteck3_Klicken()
Dim strDatei As String, wkb As Workbook, wkbAkt As Workbook
Dim RNG As Range, WS, Z, strFilter As String
Dim i As Integer, j As Integer, k As Integer
Set wkbAkt = ActiveWorkbook
With Application.FileDialog(msoFileDialogFilePicker) 'Datei öffnen
.AllowMultiSelect = False 'nur eine Datei öffnen erlaubt
If .Show = -1 Then strDatei = .SelectedItems(1)
End With
If strDatei "" Then
Set wkb = Workbooks.Open(strDatei)
wkb.Sheets(1).Copy after:=wkbAkt.Sheets(1) 'Nur Arbeitsblatt 1 relevant
wkbAkt.Sheets.Add after:=wkbAkt.Sheets(1) 'Nur Arbeitsblatt 1 relevant
wkb.Sheets(1).UsedRange.Copy
ActiveSheet.Range(wkb.Sheets(1).UsedRange.Address).PasteSpecial xlPasteValues
Application.CutCopyMode = False
wkb.Close False
End If
For Each WS In ActiveWorkbook.Sheets
If WS.Name "Produktvergleich" Then 'dieses Blatt nicht einblenden
If Not IsEmpty(ActiveSheet.Cells(4, 5)) Then 'Wenn die Zelle E4 nicht leer ist dann...
If strDatei "" Then
ActiveSheet.Name = Cells(4, 5).Text 'Text aus Zelle A1 wird ausgelesen und als Tab-Name verwendet.
End If
End If
End If
Next
Vielen Dank schon mal
Grüße
Martin
Anzeige
AW: Arbeitsblatt nur Werte kopieren
11.09.2018 12:51:08
Werner
Hallo Martin,
hier kopierst du das komplette Blatt, mit Formatierungen/Formeln. 
wkb.Sheets(1).Copy after:=wkbAkt.Sheets(1) 'Nur Arbeitsblatt 1 relevant

Nimm diese Zeile aus dem Code raus.
Gruß Werner
AW: Arbeitsblatt nur Werte kopieren
11.09.2018 20:02:35
martin
Hallo nochmal,
wenn ich die Zeile rausnehme und das Makro dann starte, kommt folgende Meldung:
"Für diese Aktion müssen alle verbundenen Zellen die selbe Größe haben"
Der Debugger markiert dabei folgende Zeile:
"ActiveSheet.Range(wkb.Sheets(1).UsedRange.Address).PasteSpecial xlPasteValues"
Weißt Du vielleicht wie ich das noch beheben kann?
Vielen Dank & Grüße
Martin
Anzeige
AW: Arbeitsblatt nur Werte kopieren
12.09.2018 16:30:56
martin
Hat hier niemand eine Lösung? Evtl. muss man auch beide Zeilen drin lassen und dann das Blatt bei dem auch die Formeln mitkopiert wruden nachträglich löschen?! Danke Euch schon mal
AW: Arbeitsblatt nur Werte kopieren
13.09.2018 14:42:36
martin
Zum Haar raufen, es ist nur eine Kleinigkeit, aber ich komme nicht dahinter. Ich würd mich super freuen wenn jemand helfen kann.
Danke und Grüße
Martin

300 Forumthreads zu ähnlichen Themen

VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Anzeige
nur Werte kopieren
Pet


Guten Abend,
könnte mal wieder etwas Hilfe von Euch gebrauchen.
Unten stehender Code kopiert die bedingte Formatierung aus Tabelle1 mit.
Wie muss ich es ändern, dass nur die Werte kopiert werden?
Vielen Dank vorab für Eure Hilfe.
Gruß, Pet
Sub SchaltflächeCopy() D...
01.11.2008 21:04:45
Thread-ID: 1021094
7 Beiträge
Nur Werte kopieren!
markus473

Hallo zusammen,
ich habe ein Makro, welches Daten kopiert.
Jetzt wäre es besser, wenn es nur die Werte kopiert, da dann die Formatierung erhalten bleibt.
Wie müßte das denn dann aussehen?
Danke Gruß Markus
Sub Uebernahme_Januar() Dim sh As Worksheet UF_Dateiauswahl1.Show I...
26.01.2009 15:27:51
Thread-ID: 1043917
7 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
nur werte kopieren!
lisa

Hallo zusammen
Dieses Thema ist nicht nur in diesem Forum mehrfach angesprochen worden.
Ich rafe es nicht, trotz Recherche, hiefür nur den Wert kopieren zu lassen.
Das ist mein Orig. Gode
Private Sub CommandButton3_Click() Sheets("Dateneingabe").Range("L2").Copy Sheets("Liefer...
03.03.2009 14:07:47
Thread-ID: 1055975
5 Beiträge
Autofilter - nur gefilterte Werte kopieren ?
Piet

Hallo zusammen,
angenommen ich habe in Spalte A diverse Produkte (Produkt A, Produkt B, usw.)
und in Spalte B diverse Zahlenwerte zu den Produkten.
Z.B.:
Produkt Wert
a 27
b 13
b 17
a...
08.04.2009 15:38:42
Thread-ID: 1067762
3 Beiträge
Nur Werte mit selber Jahreszahl kopieren
Heinz

Hallo Leute
Habe heute schon wieder ein Problem !!
Ich hoffe es kann mir bitte wieder jemand weiterhelfen.
Ich habe in "Daten" I1 eine Jahreszahl stehen. In K31:K162 und in M31:M162 Daten mit TTT*TT.MMM.JJ stehen.
Nun möchte ich Daten die in K31:K162 gleich mit der Jahrsezahl in...
26.06.2009 16:13:15
Thread-ID: 1084642
13 Beiträge
Nur den Inhalt kopieren
edie

Hallo zusammen,
was muss ich ändern damit nur der Inhalt kopiert wird?
Sub test() Dim wsT As Worksheet Dim wsS As Worksheet Dim i As Integer Dim RowsT As Integer Application.ScreenUpdating = False Set wsT = ActiveWorkbook.Sheets.Add(, Worksheets(Worksheets.Count), , xlWorksheet) wsT.Nam...
27.12.2009 23:27:15
Thread-ID: 1126034
3 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
5
4
6
6
6
1
4
2
12
2
2
3
12
2
4
2
3
4
2
35
6
1
10
1
5