Das Archiv des Excel-Forums

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 download Zeile einfügen und Formeln und Werte übernehmen download
Formeln mit Zelladressen speichern download Zeilenumbruch in Formel erzwingen download
Aktueller Arbeitsblattname in Formel download Variable in Formel einbauen download
Ein Zeichen in einer Formel suchen download Variable in Excel-Formel einbauen. download
Summenformel unter Zahlenreihe eintragen download Arbeitszeittabelle und SVERWEIS-Formel download
Zeilen mit leeren Formeln beim Druck unterdrücken download Ausgabe einer benutzerdefinierten Funktion in Matrixformel download
Listung der mit der Formel KOMBINATIONEN() ermittelten Elemente download Alle Formeln und Links in Werte wandeln download
Formel bis zur letzten Zeile der Nebenspalte kopieren download Summenformel per VBA eintragen download
Namen löschen ohne Formeln zu zerstören download Anzeige der Formel mit Quellblattangabe download
Alle Formeln und Zahlen löschen download Textstring in berechenbare Formel umwandeln download
Spielpaarungen von Vorrunde bis Finale durch Formeln ermitteln download Zahlenstring mit Formel auslesen und Fehlermeldung verhindern download
Wahrheitsprüfung einer mit Zellwerten zusammengestzten Formel download SVERWEIS-Formel über mehrere Fundstellen download
Mittelwert einer Zahlenreihe bis zur Zeile mit der Formel download SVERWEIS-, WVERWEIS- und Matrixformel-Beispiele download
Beispiel für die Anwendung der SUMMEWENN-FORMEL download Datei auswählen, öffnen und Formelsuchdialog anzeigen download
Formelbereich in Einzelelemente aufschlüsseln download Signal, wenn sich Formelwert über eine Grenze bewegt download
Formeleingabe über ShortCut download UserForm-Aufruf, wenn Formel-Wert Grenze überschreitet download
In Abhängigkeit von einem Formelwert Makro starten download In Abhängigkeit von einem Formelwert Mail mit Outlook versenden download
Anzahl nach 2 Kriterien ermitteln mit DB-Funktion und MatrixFormel download Sortierung mit Formel-Leerstrings am Ende download
Nach Formelkalkulation Zellwert erhöhen download Markierung von Formeln über bedingte Formatierung download
Zellschutz nur für Formeln download Text in Formel und Formel in Text download
Blatt ohne Code, Steuerelement und Formeln speichern download Zählen von in einer Formel vorkommenden Zahlen download
Temporärer VBA-Einsatz einer Matrixformel download Eintragen von Matrixformeln in eine Jahres-/Monatsmatrix download
Dynamischer Blattname in SVERWEIS-Formel download Bei Eintrag Übernahme der Formel aus Nebenzelle download
TextBox-Eingabe mit Formel weiterberechnen und zurückgeben download Formeltexte anzeigen download
Formel zur Ermittlung von Ostersonntag download Ermittlung von Datenbank- und Array-Formelergebnissen per VBA download
Blätter in andere Arbeitsmappen kopieren download Module von Mappe zu Mappe kopieren download
Arbeitsblatt 40 mal kopieren download Schriftgröße beim Kopieren verdoppeln download
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download Tabellencode nach Kopieren des Blattes löschen download
Arbeitsmappe blitzschnell kopieren download VBE-Namen der Blattmodule beim Kopieren festlegen download
Blattinhalt von einer zur anderen Arbeitsmappe kopieren download Datei kopieren, wenn noch nicht vorhanden download
Zeilenweise von Blatt zu Blatt kopieren download Erste Druckseite in eine neue Arbeitsmappe kopieren download
Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren download Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download
Bei Eintrag in Spalte A aktuelle Zeile kopieren download Filtern und Kopieren download
Zeile mit aktiver Zelle in anderes Blatt kopieren download Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download
Einen von einer Schlüsselziffer abhängigen Bereich kopieren download Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download
Über InputBox festzulegenden Bereich kopieren download Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download
Tabellenblatt kopieren und dreistellig fortlaufend numerieren download Jede zweite Zelle kopieren download
Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download Gruppe von Optionsfeldern kopieren und Makro zuweisen download
Nicht zusammenhängenden Bereich in nächste Zeile kopieren download Wert aus UserForm-TextBox suchen und Fundstelle kopieren download
Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download Zeile in Abhängigkeit zur Eingabe in Blätter kopieren download
Werte prüfen und kopieren download Bei Eintrag von X Zeile in andere Tabelle kopieren download
Daten kopieren wenn kein Datum oder Datum > Heute download Blattinhalte dreier Blätter in neues Blatt kopieren download
Kopieren und Umbenennen eines Blattes download Nur Zeilen mit bestimmtem Inhalt kopieren download
Artikelnummern nach Kriterien suchen und Datensätze kopieren download Bild in zweites Blatt an gleiche Position kopieren download
Alle Zeilen ohne Wert in vorgegebener Spalte kopieren download Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren download
Bildergruppe in anderes Blatt kopieren download Bei Eingabe Formel in der Nebenspalte nach unten kopieren download
Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download Begriff suchen und Fundzeilen in anderes Blatt kopieren download
Aktive Zeile kopieren und löschen download Datensätze, die öfter als 3 mal vorkommen, kopieren download
Den jeweils darüberliegenden Wert in Leerzellen kopieren download Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren download
Dateien listen und Blätter in neue Arbeitsmappe kopieren download