Value-Zuweisung löscht Formeln im Zielbereich?

Hallo miteinander,
ich habe eine Tabelle mit einigen Zeilen, die zwar leer, aber formatiert sind und teilweise Formeln enthalten. Nun sollen aus einem anderen Bereich derselben Tabelle Zeilen hierhin kopiert werden, wobei Formatierungen und Formeln des Zielbereichs nicht überschrieben werden sollen.
Die Zwischenablage soll bei dieser Kopieraktion nicht benutzt werden - damit fällt .Copy und .PasteSpecial schon mal aus.
Ich habe es versucht mit:

        sMoveDest = lDestRow & ":" & lDestRow + iAdditionalNumberOfRows)
sMoveSource = lFirstRowToMove & ":" & lLastRowToMove
.Rows(sMoveDest).Value = .Rows(sMoveSource).Value

oder

 Dim rSource As Range, rDest As Range
Set rDest = .Rows(sMoveDest)
Set rSource = .Rows(sMoveSource)
rDest.Value = rSource.Value

In beiden Fällen werden die im Zielbereich vorhandenen Formeln gelöscht. Ich habe vorher geprüft: in (z.B.) N50 (Zielbereich) steht die Formel
| (Range("N50").Formula: =IF(COUNTIF(Q50:S50,"x")>0,"X","")
Aus dem Quellbereich würde z.B. N70 nach N50 kopiert werden. N70 hat aber keinen Inhalt
| (IsEmpty(Range("N70").Value = True).
Trotzdem ist nach der Zuweisung die Formel in N50 verschwunden. Obwohl doch eigentlich nur "values" übertragen werden sollen ...
| (Range("N50").Formula: )
Wie kann ich das verhindern? Was könnte/sollte ich dazu noch prüfen bzw. sicherstellen?
Vielen Dank schon mal für eure Ideen und Vorschläge!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,

heißt für mich: "Finger weg von den Formeln"

...eben, aber auch nur für Dich, aber nich für Excel, das haut Dir nämlich dabei gewaltig auf die Finger...;-)
Ich glaub das müssen wir für 'VBA nicht ganz so Gute' machen: Bei einer Anweisung XXX.Value=YYY.Value wird alles, was sich in XXX befindet, vollständig mit dem Inhalt von YYY überschrieben.
Dabei ist es völlig egal ob sich in YYY Schneehasen, Zweigangschlagbohrmaschinen oder die Playmates des Monats befinden, aber auch weniger schnucklige Dinger, wie schwarze Löcher, das Vakuum eines Paralleluniversums, oder das absolute Nichts...
D.h. um es etwas weniger blumig zu formulieren, auch wenn YYY.Value gleich vbNullstring, "" , oder Empty ist, wird eben genau das in XXX.Value geschrieben, alles andere ist futsch..ätsch...
Bei XXX.Formula=YYY.Formula passiert gleiches eben mit der Formel...
Willst Du das verhindern, mußt Du vorher einen Abfrage-Beding. proggen, oder Du fügst die Werte in andere Zellen als die mit Inhalt belegten ein...
Jetzt bringen wir Dich 'VBA gut' aber ein ganzes Stück näher, was...;-)
Gruß, Mullit

Option Explicit Public Sub test() Dim avntSource() As Variant, avntTarget() As Variant Dim ialngRow As Long, ialngColumn As Long avntSource() = Cells(1, 1).Resize(3, 3).Formula avntTarget() = Cells(4, 6).Resize(6, 8).Formula For ialngRow = 1 To Ubound(avntSource, 1) For ialngColumn = 1 To Ubound(avntSource, 2) If avntSource(ialngRow, ialngColumn) <> vbNullString Then _ avntTarget(ialngRow, ialngColumn) = avntSource(ialngRow, ialngColumn) Next Next Cells(4, 6).Resize(6, 8).Formula = avntTarget() End Sub VBA/HTML - CodeConverter für Office-Foren AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann Projektbetreuung durch mumpel Code erstellt und getestet in Office 12

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G	H
1	567	6787	978935			7898	5768	456
2	57	5				789	34564	456
3		67	68978			789	4564	45654
4	5677					567	6787	978935
5	567	6787	978935			57	5	456
6	57	5	57			789	67	68978
7	567	67	68978

Zelle	Formel
A1	=A5
B1	=B5
C1	=C5
A2	=A6
B2	=B6
B3	=B7
C3	=C7
F4	=A5
G4	=B5
H4	=C5
F5	=A6
G5	=B6
H5	=H2
F6	=F3
G6	=B7
H6	=C7

Value-Zuweisung löscht Formeln im Zielbereich?

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread