Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1908to1912
1908to1912
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur bestimmte werte kopieren

Forumthread: Nur bestimmte werte kopieren

Nur bestimmte werte kopieren
23.11.2022 13:33:41
David
Hallo Excelfreunde,
ich benötige eine Makro, die alle Werte 0 aus der Spalte BF kopiert , alle ''0'' Werte aus der Spalte BF überspringt und die aus der Spalte BF kopierte Werte in der Spalte AF einfügt.
Der erste Wert nach dem Überschriften befindet sich in der Zelle BF6.
Ich habe es selber versucht aber leider ohne Erfolg.
Kann mir bitte jemand helfen?
Danke im Voraus.
Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur bestimmte werte kopieren
23.11.2022 14:03:39
Yal
Hallo David,
Wenn nur Wert (und nicht Formeln) kopiert werden sollen, dann so:

Sub Kopieren()
Dim Z As Range 'Z wie Zelle
Application.ScreenUpdating = False
Applicaiton.EnableEvents = False
With Worksheets("xyz")
For Each Z In Range(.Range("BF1"), .Cells(Rows.Count, "BF").End(xlUp)).Cells
If Z.Value  0 Then Z.Offset(0, -1) = Z.Value
Next
End With
Applicaiton.EnableEvents = True
Application.ScreenUpdating = True
End Sub
VG
Yal
Anzeige
AW: Nur bestimmte werte kopieren
23.11.2022 14:47:04
David
Hallo Yal,
ich habe es versucht aber es hat leider nicht funktioniert :(.
Ich bekomme diesen Fehler :
"Lauzeitsfehler 424"
Objekt erforderich
VG
AW: Nur bestimmte werte kopieren
23.11.2022 15:49:34
Yal
Hallo David,
diese Fehler kommt nicht einfach so, sondern auf eine bestimmten Zeile. Diese bestimmte Zeile ist wahrscheinlich sehr ähnlich wie eine andere Zeile, die nicht angemekert worden ist. Dann kann man die beiden "vergleichen". Und vielleicht entdecken, dass in eine "Application" steht und in die andere "Applicaiton".
Wir können ein Fahrrad zur Verfügung stellen, aber für das Ausbalancieren musst Du selber sorgen. Denn niemand wird neben Dir mitlaufen ;-)
VG
Yal
Anzeige
AW: Nur bestimmte werte kopieren
23.11.2022 14:10:55
GerdL
Hallo David,
eine weitere Variante zum Testen.

Sub Unit()
Dim C As Range, R As Range
For Each C In Range(Cells(6, 58), Cells(Rows.Count, 58).End(xlUp)).Cells
If IsNumeric(C.Text) Then
If C  0 Then
If R Is Nothing Then
Set R = C
Else
Set R = Union(R, C)
End If
End If
End If
Next C
If Not R Is Nothing Then
For Each C In R.Areas
Call C.Copy
Call C.Offset(, -26).PasteSpecial(Paste:=pastexlvalues)
Application.CutCopyMode = False
Next
Set R = Nothing
End If
End Sub
Gruß Gerd
Anzeige
AW: Nur bestimmte werte kopieren
23.11.2022 14:52:14
David
Hallo Gerd,
es hat leider nicht funktioniert :(
ich habe diesen Fehler bekommen:
Fehler beim Kompilieren
Variable nicht definiert
VG David
AW: Nur bestimmte werte kopieren
23.11.2022 15:29:24
GerdL
Hallo David,
ändere
Call C.Offset(, -26).PasteSpecial(Paste:=xlPasteValues)
Gruß Gerd
AW: Nur bestimmte werte kopieren
23.11.2022 15:57:02
David
Hallo Gerd,
es hat nun funktioniert.
Ich hätte noch bitte eine kleine Frage und zwar, was müsste ich in dem Code ändern, um die Werte in der Spalte AH anstatt AF zu kopieren?
Danke schon mal
Grüß David
Anzeige
AW: Nur bestimmte werte kopieren
23.11.2022 16:03:49
GerdL
Hallo David,
nimm beim Offset dann statt -26 nur -24
Gruß Gerd
AW: Nur bestimmte werte kopieren
23.11.2022 16:12:20
David
Hallo Gerd,
genau das habe ich getan. Danke für die schnelle Rückmeldung und die Hilfe.
Gruß David
AW: Nur bestimmte werte kopieren
23.11.2022 16:08:09
David
Ich habe das mit Spalte ändern selber gelöst. Nochmal Vielen Dank!!!
Gruß David
Anzeige
AW: Nur bestimmte werte kopieren
23.11.2022 15:13:56
Daniel
Hi
ich würde erstmal alles kopieren und dann die 0-Werte löschen:

Range("BF:BF").Copy
Range("AF1").PasteSpecial xlpastevalues
With Range("AF:AF")
.Replace "0", True, xlwhole
if Worksheetfunction.Countif(.cells, True) > 0 Then  .SpecialCells(xlcelltypeconstants, 4).Delete shift:=xlup
end with
wenn die 0-Werte nur gelöscht werden sollen ohne das die anderen Werte nach oben rutschen, dann ersetze das .Delete Shift:=xlup durch .ClearContents
Gruß Daniel
Anzeige
AW: Nur bestimmte werte kopieren
23.11.2022 15:33:24
Daniel
bzw, wenn die Zellen, die nicht 0 enthalten die Zeile behalten und nicht nach oben rutschen sollen, dann reicht:

Range("BF:BF").Copy
Range("AF1").PasteSpecial xlpastevalues
Range("AF:AF").Replace "0", "", xlwhole
Gruß Daniel
AW: Nur bestimmte werte kopieren
23.11.2022 15:21:47
Daniel
als reine VBA-Lösung so

dim arr1, arr2
dim z1 as long, z2 as long
arr1 = Range("BF6:BF" & cells(rows.count, "BF").End(xlup).row).value
redim arr2(1 to ubound(arr1, 1), 1 to 1)
for z1 = 1 to ubound(arr1, 1)
if arr1(z1, 1)  0 then
z2 = z2 + 1
arr2(z2, 1) = arr1(z1, 1)
end if
next
Range("AF6").Resize(ubound(arr2, 1), 1) = arr2
Gruß Daniel
Anzeige
AW: Nur bestimmte werte kopieren
23.11.2022 15:46:39
David
Hallo Daniel,
die Makro funktioniert zwar aber macht leider noch nicht ganz, was ich möchte. Ich möchte, dass die kopierte Werte aus der Spalte BF nur in den dazugehörigen Zellen in der Spalte AF kopiert werden. ( BF6 in AF6, BF18 in AF18, BF1001 in AF1001 usw. )
ginge es auch?
Danke im Voraus
Anzeige
AW: Nur bestimmte werte kopieren
23.11.2022 16:08:33
Daniel
Hi
wenn die Zellen mit 0 im Ziel leer bleiben sollen, kannst du hier einfach folgendes verwenden:

 arr2(z1, 1) = arr1(z1, 1)
also mach aus dem z2 ein z1, dann werden die Daten im Zielarray in die gleiche Zeile geschrieben wie im Quellarray,
das z2 = z2 + 1 kannst du dann auch weglassen
Gruß
Anzeige
;

Forumthreads zu verwandten Themen

Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
aus kompletter Mappe NUR WERTE kopieren
Lauren

Hallo zusammen,
das ist wohl etwas simples aber ich bin nicht dahintegekommen.
Ich will eine Kopie einer Excel-Mappe mit ca. 80 Tabellenblättern erstellen aber es sollen NUR DIE WERTE kopiert werden also ohne Formeln usw. nur die Werte.
Dann in allen Tabellenblättern in der Kopierte...
17.09.2008 11:04:00
Thread-ID: 1010287
5 Beiträge
Anzeige
nur Werte kopieren
Pet


Guten Abend,
könnte mal wieder etwas Hilfe von Euch gebrauchen.
Unten stehender Code kopiert die bedingte Formatierung aus Tabelle1 mit.
Wie muss ich es ändern, dass nur die Werte kopiert werden?
Vielen Dank vorab für Eure Hilfe.
Gruß, Pet
Sub SchaltflächeCopy() D...
01.11.2008 21:04:45
Thread-ID: 1021094
7 Beiträge
Anzeige
Formel mit VBA kopieren
Hartmut_M

Hallo, ich möchte mit VBA aus einem Bereich die Formeln in einen anderen Bereich kopieren.
Nutze hierfür folgenden code, wobei die variablen spalte und spalteneu für die Spaltennummern stehen:
Range(Cells(5, spalte), Cells(130, spalte)).Select
Selection.AutoFill Destination:=Range(C...
12.12.2008 10:02:26
Thread-ID: 1032307
3 Beiträge
Anzeige
Nur Werte kopieren!
markus473

Hallo zusammen,
ich habe ein Makro, welches Daten kopiert.
Jetzt wäre es besser, wenn es nur die Werte kopiert, da dann die Formatierung erhalten bleibt.
Wie müßte das denn dann aussehen?
Danke Gruß Markus
Sub Uebernahme_Januar() Dim sh As Worksheet UF_Dateiauswahl1.Show I...
26.01.2009 15:27:51
Thread-ID: 1043917
7 Beiträge
Anzeige
nicht die Formel mitkopieren
TomTom

Hi,
Ich habe in meinem Sheet eine Funktion, mit der will ich verschiedene Zeilen kopieren:
MeineQuelle.Rows(lngZeile).Copy Destination:=MeinZiel.Cells(lngZeile, 1)
Wenn ich nun in einer gefundenen Zeile, die kopiert wird, irgendwo eine Formel drin habe, (die sich auf irgend was bezi...
30.01.2009 11:15:07
Thread-ID: 1045327
8 Beiträge
nur werte kopieren!
lisa

Hallo zusammen
Dieses Thema ist nicht nur in diesem Forum mehrfach angesprochen worden.
Ich rafe es nicht, trotz Recherche, hiefür nur den Wert kopieren zu lassen.
Das ist mein Orig. Gode
Private Sub CommandButton3_Click() Sheets("Dateneingabe").Range("L2").Copy Sheets("Liefer...
03.03.2009 14:07:47
Thread-ID: 1055975
5 Beiträge
Werte aus Zelle mit Formel in eine Liste
Peter

HI,
1. Ich habe eine Tabelle, wo in der ersten Zeile in den ersten 5 Zellen Werte erscheinen. Nur diese Werte sollen in der nächsten freien Zeile per Button ohne Formel eingetragen werden.
2. In der Zeile 50 sollen dann diese Werte (Zeile 2 - 49) summiert werden.
Danke im Vorraus
16.03.2009 19:19:10
Thread-ID: 1060895
11 Beiträge
Autofilter - nur gefilterte Werte kopieren ?
Piet

Hallo zusammen,
angenommen ich habe in Spalte A diverse Produkte (Produkt A, Produkt B, usw.)
und in Spalte B diverse Zahlenwerte zu den Produkten.
Z.B.:
Produkt Wert
a 27
b 13
b 17
a...
08.04.2009 15:38:42
Thread-ID: 1067762
3 Beiträge
Nur Werte mit selber Jahreszahl kopieren
Heinz

Hallo Leute
Habe heute schon wieder ein Problem !!
Ich hoffe es kann mir bitte wieder jemand weiterhelfen.
Ich habe in "Daten" I1 eine Jahreszahl stehen. In K31:K162 und in M31:M162 Daten mit TTT*TT.MMM.JJ stehen.
Nun möchte ich Daten die in K31:K162 gleich mit der Jahrsezahl in...
26.06.2009 16:13:15
Thread-ID: 1084642
13 Beiträge
Formel mit Werten darstellen?
Christian

Hallo!
Ich habe folgendes Problem:
Ich möchte mir (z.B.) via VBA-Script eine Formel in einer anderen Zelle ausgeschrieben darstellen lassen, jedoch mit Werten anstelle von Zellbezügen.
Habe ich z.B. in A1 stehen: 5, in A2: 10 und in A3: =A1+A2,
so soll in einer Zeile meiner Wahl...
17.09.2009 17:36:00
Thread-ID: 1103660
14 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Nur bestimmte Werte kopieren in Excel

Schritt-für-Schritt-Anleitung

Um nur bestimmte Werte in Excel zu kopieren, kannst Du ein VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne die Excel-Datei, in der Du die Werte kopieren möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Klicke auf Einfügen und wähle Modul.

  4. Füge den folgenden Code in das Modul ein:

    Sub Kopieren()
   Dim Z As Range 'Z wie Zelle
   Application.ScreenUpdating = False
   Application.EnableEvents = False
   With Worksheets("xyz")
       For Each Z In Range(.Range("BF1"), .Cells(Rows.Count, "BF").End(xlUp)).Cells
           If Z.Value <> 0 Then Z.Offset(0, -1) = Z.Value
       Next
   End With
   Application.EnableEvents = True
   Application.ScreenUpdating = True
End Sub

  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Um das Makro auszuführen, drücke ALT + F8, wähle Kopieren und klicke auf Ausführen.

Das Makro kopiert alle Werte aus der Spalte BF in die Spalte AF, überspringt jedoch die Zellen mit dem Wert 0.

Häufige Fehler und Lösungen

  • Laufzeitfehler 424: Objekt erforderlich
    Dieser Fehler kann auftreten, wenn Du einen Schreibfehler im Code hast. Überprüfe, ob Application korrekt geschrieben ist (nicht Applicaiton).

  • Fehler beim Kompilieren: Variable nicht definiert
    Stelle sicher, dass alle Variablen korrekt deklariert sind. Zum Beispiel kann der Fehler durch fehlende oder falsche Deklarationen von Variablen wie R oder C verursacht werden.

Alternative Methoden

Wenn Du keine VBA-Lösungen verwenden möchtest, kannst Du auch die folgenden Methoden ausprobieren:

  1. Manuelles Kopieren und Einfügen: Kopiere die gesamte Spalte BF und füge sie in die Spalte AF ein. Anschließend kannst Du die 0-Werte manuell löschen.

    Range("BF:BF").Copy
Range("AF1").PasteSpecial xlPasteValues
Range("AF:AF").Replace "0", "", xlWhole

  2. Filterfunktion: Du kannst die Filterfunktion in Excel verwenden, um nur die gewünschten Werte anzuzeigen und diese dann zu kopieren.

Praktische Beispiele

  1. Kopieren von Werten mit VBA:

    Sub Unit()
   Dim C As Range, R As Range
   For Each C In Range(Cells(6, 58), Cells(Rows.Count, 58).End(xlUp)).Cells
       If IsNumeric(C.Text) Then
           If C.Value <> 0 Then
               If R Is Nothing Then
                   Set R = C
               Else
                   Set R = Union(R, C)
               End If
           End If
       End If
   Next C
   If Not R Is Nothing Then
       For Each C In R.Areas
           Call C.Copy
           Call C.Offset(, -26).PasteSpecial Paste:=xlPasteValues
           Application.CutCopyMode = False
       Next
       Set R = Nothing
   End If
End Sub

  2. Kopieren und Ersetzen:

    Range("BF:BF").Copy
Range("AF1").PasteSpecial xlPasteValues
With Range("AF:AF")
   .Replace "0", "", xlWhole
End With

Tipps für Profis

  • Verwende die Offset-Methode, um gezielt Zellen relativ zu einer bestimmten Zelle zu adressieren.
  • Nutze die Union-Methode, um mehrere Zellen in einer einzigen Operation zu kopieren.
  • Denke daran, die Application.ScreenUpdating- und Application.EnableEvents-Eigenschaften zu deaktivieren, um die Ausführungsgeschwindigkeit des Makros zu erhöhen.

FAQ: Häufige Fragen

1. Wie kann ich nur bestimmte Werte aus einer Zelle übernehmen?
Du kannst die IF-Bedingung im VBA-Code anpassen, um spezifische Werte zu kopieren.

2. Wie kann ich den Zielbereich ändern?
Ändere den Offset-Wert im Code, um die kopierten Werte in eine andere Spalte zu verschieben. Zum Beispiel, um in die Spalte AH zu kopieren, ändere -26 auf -24.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige