Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1628to1632
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
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Kopieren mit Wert und Format

VBA Kopieren mit Wert und Format
19.06.2018 23:04:23
Patric
Hallo zusammen,
ich hoffe ich habe im Forum meine Frage nicht übersehen und stelle Sie nicht doppelt.
Für meine wahrscheinlich für euch einfache Aufgabenstellung möchte ich mich schon einmal entschuldigen.
Ich möchte folgendes tun.
Ich habe ein Tabellenblatt, gefüllt mit Daten.
Nun möchte ich einen Bereich aus Tabellenblatt 1 in Tabellenblatt 2 Kopieren.
Aus Tabellenblatt 1 sollen immer weitere / neue Einträge in die jeweils erste leere Zeile aus Tabellenblatt 2 eingefügt werden.
Ich möchte aber gerne das Format behalten und ausschließlich die Werte kopieren. Geht das?
Mein Versuch, bei dem das Format vernünftig kopiert wird aber immer ein Laufzeitfehler für die Werte erscheint, sieht bisher so aus:
' KW_abschließen Makro 

Sub KW_Abschluß_Klicken()
'Message Box generieren
If MsgBox("KW abschließen & zurücksetzen?", vbOKCancel) = vbOK Then
End If
'Bereich kopieren
Sheets("Wochenbericht").Range("A3:AO49").Copy
'einfügen in erste freie Zeile in ausgabe
Sheets("Jahresübersicht").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:= _
xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
'Sheets("Jahresübersicht").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:= _
xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
'Kopiermodus beenden
Application.CutCopyMode = False
End Sub
Der Laufzeitfehler 1004 sagt aus, dass alle verbundenen Zellen die selbe Größe haben müssen.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Kopieren mit Wert und Format
20.06.2018 07:39:31
fcs
Hallo Patric,
verbundene Zellen sind bei manchen Operation des Programmierers Alptraum - machen Schwierigkeiten erfordern zusätzlichen Programmieraufwand.
Deshalb: verbundene Zellen wenn möglich vermeiden!
Wenn du auf die verbundenen Zellen nicht verzichten kannst/willst, dann müssen die Spaltenblöcke mit verbundenen Zellen und nicht verbundenen Zellen jeweils getrennt kopiert werden.
Beispiel nach folgendem Schema.
Gruß
Franz 
' KW_abschließen Makro
Sub KW_Abschluß_Klicken()
Dim Zeile As Long, Spalte As Long
Dim wksWo As Worksheet
Dim wksJahr As Worksheet
'Message Box generieren
If MsgBox("KW abschließen & zurücksetzen?", vbOKCancel) = vbCancel Then
Exit Sub
End If
Set wksWo = Sheets("Wochenbericht")
Set wksJahr = Sheets("Jahresübersicht")
Application.ScreenUpdating = False
With wksJahr
'erste freie Zeile in Ausgabe-Blatt in Übersicht
Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
'Bereich 1 kopieren
wksWo.Range("A3:T49").Copy
'einfügen in
Spalte = .Range("A3").Column
.Cells(Zeile, Spalte).PasteSpecial Paste:=xlPasteFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Cells(Zeile, Spalte).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Bereich 2 kopieren = 1. Spalten-Bereich mit verbundenen Zellen
wksWo.Range("U3:Y49").Copy
'einfügen in
Spalte = .Range("U3").Column
.Cells(Zeile, Spalte).PasteSpecial Paste:=xlPasteFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Cells(Zeile, Spalte).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Bereich 3 kopieren
wksWo.Range("Z3:AO49").Copy
'einfügen in
Spalte = .Range("Z3").Column
.Cells(Zeile, Spalte).PasteSpecial Paste:=xlPasteFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Cells(Zeile, Spalte).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
'Kopiermodus beenden
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Anzeige
AW: VBA Kopieren mit Wert und Format
20.06.2018 11:28:26
Patric
Hallo Franz,
vielen Dank für deine Schnelle Antwort und die damit verbundene Arbeit.
Da ich keine verbundenen Zellen in meiner Tabelle gefunden habe, habe ich zum Test eines generellen Makrofehler dein Makro übernommen, erst einmal aber noch versucht den kompletten Bereich zu kopieren.
Ich werde das Makro mal anpassen um mit Spalte "A" anzufangen um zu schauen ob mir der Fehler bereits ab der 1. Spalte ausgeworfen wird.
Ich habe meine Beispieldatei mal angehangen. Vielleicht könntest du dennoch mal draufschauen um zu schauen ob ich ein generelles Problem in den Tabellen habe ?
Nochmals vielen Dank!!!
https://www.herber.de/bbs/user/122202.xlsm
Anzeige
AW: VBA Kopieren mit Wert und Format
20.06.2018 14:57:11
fcs
Hallo Partrik,
die 6 verbundenen Zellbereiche befinden sich im Zellbereich J3:N5.
Das macht es etwas komplizierter.
Hier müssen die Zellbereiche J3:K5, L3:N5, und J6:N49 getrennt übertragen werden, damit kein Fehler auftritt.
Sub KW_Abschluß_Klicken()
Dim Zeile As Long, Spalte As Long
Dim wksWo As Worksheet
Dim wksJahr As Worksheet
'Message Box generieren
If MsgBox("KW abschließen & zurücksetzen? TEST TEST", _
vbOKCancel) = vbCancel Then
Exit Sub
End If
Set wksWo = Sheets("Wochenbericht")
Set wksJahr = Sheets("Jahresübersicht")
Application.ScreenUpdating = False
With wksJahr
'erste freie Zeile in Ausgabe-Blatt in Übersicht
Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
'Bereich 1 kopieren
wksWo.Range("A3:I49").Copy
'einfügen in
Spalte = .Range("A3").Column
.Cells(Zeile, Spalte).PasteSpecial Paste:=xlPasteFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Cells(Zeile, Spalte).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Bereich 2 kopieren = 1. Spalten-Bereich mit verbundenen Zellen
wksWo.Range("J3:K5").Copy
'einfügen in
Spalte = .Range("J3").Column
.Cells(Zeile, Spalte).PasteSpecial Paste:=xlPasteFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Cells(Zeile, Spalte).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Bereich 3 kopieren = 1. Spalten-Bereich mit verbundenen Zellen
wksWo.Range("L3:N5").Copy
'einfügen in
Spalte = .Range("L3").Column
.Cells(Zeile, Spalte).PasteSpecial Paste:=xlPasteFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Cells(Zeile, Spalte).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Bereich 5 kopieren
wksWo.Range("J6:N49").Copy
'einfügen in
Spalte = .Range("J6").Column
.Cells(Zeile + 3, Spalte).PasteSpecial Paste:=xlPasteFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Cells(Zeile + 3, Spalte).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Bereich 6 kopieren
wksWo.Range("O3:AO49").Copy
'einfügen in
Spalte = .Range("O3").Column
.Cells(Zeile, Spalte).PasteSpecial Paste:=xlPasteFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Cells(Zeile, Spalte).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
'Kopiermodus beenden
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Hilfsmakro zur Suche von verbundenen Zellbereichen 
Sub verbundene_Zellensuchen()
Dim wks As Worksheet
Dim rngZelle As Range
Set wks = ActiveSheet
For Each rngZelle In wks.UsedRange.Cells
If rngZelle.MergeCells = True Then
If MsgBox("Verbunden: " & rngZelle.MergeArea.Address(False, False, xlA1), _
vbOKCancel, "verbundene Zellen suchen") = vbCancel Then Exit For
End If
Next
End Sub

Anzeige
AW: VBA Kopieren mit Wert und Format
22.06.2018 10:13:36
Patric
Wollte nur noch einmal eine kurze Rückmeldung geben, es hat alles hervorragend funktioniert.
Die verbundenen Zellen muss ich komplett übersehen haben.
Vielen Dank für die schnelle Hilfe und deine Mühe!

166 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
Bedingte Formatierung mit VBA-Modul
Fuhrer

Hallo zusammen
Ich will mit einem VBA-Modul einen bestimmten Bereich nach definierten Kriterien einfärben.
Das Modul wird später einem Comnand-Button Zugeordent (dies ist für mich kein Problem).
Nun konnte ich im Internet ein entprechendes Makro finden. Jedoch ist dieses Makro nur f...
19.01.2009 18:03:57
Thread-ID: 1041611
6 Beiträge
Formatierung mit VBA
Dave

Hallo zusammen
Ich will Zellen aufgrund des Inhalts, der mit einer Formel geholt wird, formatieren.
Ich habe es in der folgenden Datei versucht, jedoch wird die Formatierung nicht automatisch angepasst, sondern die Zelle muss jedesmal angewählt werden.
Könnt ihr Euch das mal in der...
27.01.2009 08:20:03
Thread-ID: 1044069
10 Beiträge
Anzeige
Bedingte Formatierung mit VBA
Steffen

Hallo,
habe schon viele Einträge gelesen, aber noch keiner war für mein Problem hilfreich oder ich stelle mich nur zu dämlich an. Folgendes Problem:
1. In einer Tabelle, die vom SQl-Server gefüllt wird, ist außerhalb des benannten Bereiches eine Spalte M, deren Zellen eine bestimmte Far...
13.02.2009 09:44:00
Thread-ID: 1050348
4 Beiträge
bedingte Formatierung mit VBA
Weis

Hallo Leute,
ich habe leider sehr begrenzte VBA-Kenntnisse. Deswegen baue ich auf Euch. Ich weiß, dass dies mit einer bedingten Formatierung leicht zu lösen ist. Ich möchte allerdings unbedingt eine VBA-basierte Lösung.
Folgendes Problem:
Ich möchte in einem bestimmten Bereich (Spal...
20.03.2009 19:10:26
Thread-ID: 1062337
5 Beiträge
Mittelwerte in ein neues Blatt kopieren per VBA
Drusilla

Hallo liebe Profis
Da mir letztes Mal so gut geholfen wurde, würde ich euch gerne nochmals fragen. Ich möchte per Makro folgendes erreichen:
-neues Blatt generieren mit dem Namen „Uebersicht“
-dort Mittelwerte (sind schon berechnet, schreibe das nur, damit ihr wisst, dass in der...
06.05.2009 09:51:09
Thread-ID: 1073265
2 Beiträge
VBA - Formeln kopieren mit Bezug auf andere Sheets
Fabian

Hallo Zusammen,
ich habe folgende Problemstellung:
Eine Exceldatei *xlsx mit insgesamt 4 Tabellenblättern.
Tabellenblatt 1 - Material Data - Dateneingabe ab Zeile 2.
Tabellenblatt 2 - ABCXYZ - nicht relevant für das Problem
Tabellenblatt 3 - Life Time Cycle - Berechnung, di...
16.09.2009 09:14:54
Thread-ID: 1103102
5 Beiträge
Daten per VBA kopieren mit 2 Kreterien
Jan

Hallo, ich hab folgendes Problem und bitte um hilfe:
Ich verwende eine Datei mit ca. 20 fest benamten Tabellenblättern.
Im ersten Blatt ist eine Matrix in der im Bereich b2:b21 die Namen der Tabellenblätter untereinander stehen.
In Spalte c2:c21 wird nach Bedarf etwas eingetragen.
08.01.2010 22:13:28
Thread-ID: 1128404
4 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
1
5
9
4
3
4
1
4
3
6
3
8
12
2
1
11
2
2
13
2
8
12
2
3