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