Das Archiv des Excel-Forums
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 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
- AW: Werte aus Formel in nächst freie Zeile kopieren - von andre am 27.09.2003 20:39:45
- 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 24.09.2003 19:52:26
 |
Betrifft: Werte aus Formel in nächst freie Zeile kopieren
von: Gonzoll
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
| |
