Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte aus Formel in nächst freie Zeile kopieren

Werte aus Formel in nächst freie Zeile kopieren
24.09.2003 19:37:51
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte aus Formel in nächst freie Zeile kopieren
24.09.2003 19:52:26
andre
hallo gonzoll,
etw so:
.Cells(intRow, intCol).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
gruss andre
AW: Werte aus Formel in nächst freie Zeile kopieren
24.09.2003 19:56:02
Gonzoll
Danke, aber den Trick hatte ich schon probiert und VBA kontert mit einem "Erwarte Anweisunsende".
Funz also nicht

Gruß
Mick
AW: Werte aus Formel in nächst freie Zeile kopieren
24.09.2003 20:55:16
PeterW
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
Anzeige
AW: Werte aus Formel in nächst freie Zeile kopieren
25.09.2003 03:55:27
Gonzoll
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
AW: Werte aus Formel in nächst freie Zeile kopieren
27.09.2003 20:39:45
andre
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

Anzeige

382 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige