Werte aus Formel in nächst freie Zeile kopieren

• Werte aus Formel in nächst freie Zeile kopieren von Gonzoll vom 24.09.2003 19:37:51
  • AW: Werte aus Formel in nächst freie Zeile kopieren - von andre am 24.09.2003 19:52:26
    • AW: Werte aus Formel in nächst freie Zeile kopieren - von Gonzoll am 24.09.2003 19:56:02
  • AW: Werte aus Formel in nächst freie Zeile kopieren - von PeterW am 24.09.2003 20:55:16
    • AW: Werte aus Formel in nächst freie Zeile kopieren - von Gonzoll am 25.09.2003 03:55:27
      • AW: Werte aus Formel in nächst freie Zeile kopieren - von andre am 27.09.2003 20:39:45

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

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

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

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

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

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

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