Herbers Excel-Forum - das Archiv

Werte aus Formel in nächst freie Zeile kopieren

Bild

Betrifft: Werte aus Formel in nächst freie Zeile kopieren
von: Gonzoll
Geschrieben am: 24.09.2003 19:37:51
Hallo,

ich habe folgendes Problem.
Ich versuche nicht zusammenhängende Zellen in ein neues Tabellenblatt zu kopieren. Dort sollen die Zellen immer in die nächst freie Zeile kopiert werden. Das Makro das ich habe funktioniert prima, bis auf die kleine Tatsache, dass in den Zellen die kopiert werden sich Formeln befinden und nicht die Werte, sondern die Zelle eins zu eins kopiert wird.
Wie schaffe ich es, dass nur die ermittelten Werte kopiert werden?

Danke im voraus

Hier das von mir verwendete Makro:



Sub CPI()
Sheets("Gesamt").Select
Dim rngAct As Range
Dim intRow As Integer, intCol As Integer
With Worksheets("CPI")
If IsEmpty(.Cells(1, 1)) Then
intRow = 1
Else
intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
For Each rngAct In Worksheets("Gesamt").Range("A4,C52,E52,G52,J52,L52,N52").Cells
intCol = intCol + 1
rngAct.Copy .Cells(intRow, intCol)
Next rngAct
End With
Application.CutCopyMode = False
End Sub


Bild

Betrifft: AW: Werte aus Formel in nächst freie Zeile kopieren
von: andre
Geschrieben am: 24.09.2003 19:52:26
hallo gonzoll,
etw so:
.Cells(intRow, intCol).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
gruss andre
Bild

Betrifft: AW: Werte aus Formel in nächst freie Zeile kopieren
von: Gonzoll
Geschrieben am: 24.09.2003 19:56:02
Danke, aber den Trick hatte ich schon probiert und VBA kontert mit einem "Erwarte Anweisunsende".
Funz also nicht

Gruß
Mick
Bild

Betrifft: AW: Werte aus Formel in nächst freie Zeile kopieren
von: PeterW
Geschrieben am: 24.09.2003 20:55:16
Hallo Gonzoll,

hast du es mal ohne Copy und stattdessen mit direkter Zuweisung versucht:

For Each rngAct In Worksheets("Gesamt").Range("A4,C52,E52,G52,J52,L52,N52").Cells
intCol = intCol + 1
.Cells(intRow, intCol) = rngAct.Value
Next rngAct

Gruß
Peter
Bild

Betrifft: AW: Werte aus Formel in nächst freie Zeile kopieren
von: Gonzoll
Geschrieben am: 25.09.2003 03:55:27
Hallo Peter,

könnte Dich glatt knutschen.
Bevor ich mir nächstes mal drei Tage um die Ohren haue, frage ich doch besser gleich jemanden der sich damit auskennt.

Vielen, vielen Dank

Gruß
Michael
Bild

Betrifft: AW: Werte aus Formel in nächst freie Zeile kopieren
von: andre
Geschrieben am: 27.09.2003 20:39:45
hallo gonzoll,

und sie bewegt sich doch ... bzw er funzt. du hast zwar inzwischen die lösung von peter genommen aber hier noch ein hinweis zu meinem code. du musst den code in einer neuen zeile beginnen wie in meiner antwort und das .Cells(intRow, intCol) in der zeile
rngAct.Copy .Cells(intRow, intCol)
weglassen.



Sub CPI()
Sheets("Gesamt").Select
Dim rngAct As Range
Dim intRow As Integer, intCol As Integer
With Worksheets("CPI")
If IsEmpty(.Cells(1, 1)) Then
intRow = 1
Else
intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
For Each rngAct In Worksheets("Gesamt").Range("A4,C52,E52,G52,J52,L52,N52").Cells
intCol = intCol + 1
' so wird's auch was:
rngAct.Copy
.Cells(intRow, intCol).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next rngAct
End With
Application.CutCopyMode = False
End Sub


 Bild
Excel-Beispiele zum Thema " Werte aus Formel in nächst freie Zeile kopieren"
Anzeigen von Werten und Formeln Zeile einfügen und Formeln und Werte übernehmen
Formeln mit Zelladressen speichern Zeilenumbruch in Formel erzwingen
Aktueller Arbeitsblattname in Formel Variable in Formel einbauen
Ein Zeichen in einer Formel suchen Variable in Excel-Formel einbauen.
Summenformel unter Zahlenreihe eintragen Arbeitszeittabelle und SVERWEIS-Formel