VBA Zellen ohne Formel in ein anderes Arbeitsblatt übertragen

Question

Hallo,

ja, ich habe viel darüber auf Google gefunden, aber nichts half mir wirklich weiter.

Benutze Excel2007 unter Win7

Ich habe eine Schleife mit "do until" gebildet, in der eine Variable je Zelle einen Wert errechnet.
Diese Variable aus Spalte J soll nun in das Arbeitsblatt "Zukaufsliste" kopiert werden. Dort ist es die Spalte X.

Es funktioniert, aber die Formel, die in der Spalte J steht will ich nicht in der Zielmappe haben, da sie einen Fehler verursacht #Wert! .Das ist aber nur ein Grund.

So werden die Variablen hochgerechnet :

[code]
jBrmGewMin = 15 (Zeile der Ausgangsmappe
xBrmGewZukauf = 2 (Zeile der Zielmappe)

Do.....
diverse Berechnungen
until.........

************************Hier ist das Problem Anfang***********************

Cells(jBrmGewMin, 10).Copy

ActiveSheet.Paste Destination:=Worksheets("Zukaufsliste").Cells(xBrmGewZukauf, 26)

************************Hier ist das Problem Ende*************************


jBrmGewMin = jBrmGewMin = + 1
xBrmGewZukauf = xBrmGewZukauf + 1

Jetzt bleibt nur zu hoffen, dass ich mein Problem einigermaßen verständlich beschrieben habe.

Viele Grüße
Michael

Answer 1

Hallo Michael,

Sub Werte()
' Formeln ersetzen durch Werte ohne Formate
Columns("B:C").Copy
Columns("B:C").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False 'Zwischenspeicher löschen
End Sub

Sub Werte_Format()
' Formeln ersetzen durch Werte mit Formate
' Workbooks("Datei1.xls").Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address).Copy
' Vorschlag Verbesserrung NoNet
Workbooks("Datei1.xls").Worksheets("Tabelle1").UsedRange.Copy
' *****
With Workbooks("Datei2.xls").Worksheets("Tabelle1").Range("A1")
.PasteSpecial Paste:=xlValues ' Werte
.PasteSpecial Paste:=xlFormats ' Formate
End With
Application.CutCopyMode = False
End Sub

Gruß Hajo

Answer 2

Hallo Hajo,

SUPER, das mit der ersten Variante habe ich ausprobiert und es klappt !
Nur weiß ich noch nicht, wie ich das andere Arbeitsblatt damit ansteuern kann, habe also eine Spalte in
der Ausgangsmappe mal angesteuert.


Könntest du mir da auch einen Tipp geben ?

Viele Grüße
Michael

Answer 3

Hallo Hajo,

ein großes DANKE darf natürlich nicht fehlen !

Answer 4

Lösche im 2 Beispiel was vor Worksheets steht einschl. Punkt

Gruß Hajo

Answer 5

Hallo Hajo,

hat geklappt !. Danke !

Gruß
Michael