Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1116to1120
1116to1120
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zeile kopieren wenn zelle bestimmten wert annimmt

Forumthread: zeile kopieren wenn zelle bestimmten wert annimmt

zeile kopieren wenn zelle bestimmten wert annimmt
Florian
Guten Tag
Ich habe folgendes Problem:
In Tabelle1 können die Zellen der Spalte G die Werte "Ja", "Nein" und "" aufweisen. Sobald eine Zelle den Wert "Ja" annimmt, soll die zur entsprechenden Zelle zugehörige Zeile in die erste freie Zeile in Tabelle2 kopiert werden (Spalte A setzt einen Wert voraus, dass die Zellen in Tabelle1 Spalte G den Wert "Ja" annehmen können).
Formate sollen beim Kopieren keine übernommen werden. Im anschluss an den Kopiervorgang sollte die kopierte Zeile in Tabelle1 gelöscht werden.
Für Hilfe bedanke ich mich bereits im Voraus.
Gruss Florian
Anzeige
AW: zeile kopieren wenn zelle bestimmten wert annimmt
17.11.2009 11:08:26
Björn
Hallo,
das ist eigentlich nicht schwer, aber ich brauch noch mehr Infos:
- Wann wird kopiert? (Also alles auf Einmak auf Knopfdruck? Wie und wann wird das ausgelöst).
- Welcher Bereich soll durchsucht werden (also Start und Endzeile in Tabelle 1)
- Wirklich ganze Zeile kopieren, oder vielleicht nur bis zu bestimmter Spalte (wenn rechts daneben leer).
- Beim Löschen kpl. Zellen löschen, oder nur Inhalte
Hast Du schon was versucht? Dann lass uns den Code sehen.
Gruß
Björn B.
Anzeige
AW: zeile kopieren wenn zelle bestimmten wert annimmt
17.11.2009 11:22:13
IngGi
Hallo Florian,
versuch's mal so: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Columns.Count > 1 Then Exit Sub
If Target.Column  7 Then Exit Sub
For Each rng In Target
If rng = "ja" Then
rng.EntireRow.Copy
With Sheets("Tabelle2")
.Range("A" & .Cells(.Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial _
Paste:=xlPasteValues
End With
rng.EntireRow.Delete
End If
Next 'rng
Application.CutCopyMode = False
End Sub
Gruß Ingolf
Anzeige
AW: zeile kopieren wenn zelle bestimmten wert annimmt
17.11.2009 12:04:41
Florian
Hallo Ingolf
Besten Dank für deinen Vorschlag. Es funktioniert!
Eine Verständnisfrage
Was geschieht durch:
If Target.Columns.Count > 1 Then Exit Sub
Thanks anyway!
Gruss Florian
AW: zeile kopieren wenn zelle bestimmten wert annimmt
17.11.2009 12:20:31
IngGi
Hallo Florian,
das Makro funktioniert auch, wenn du mehrere Zellen in Spalte G gleichzeitig änderst (durch Einfügen einer einspaltigen Kopie). Wenn die Änderung allerdings mehr als eine Spalte umfasst, steigt das Makro mit dieser Zeile aus und es wird nicht kopiert.
Gruß Ingolf
Anzeige
AW: zeile kopieren wenn zelle bestimmten wert annimmt
18.11.2009 08:21:50
Florian
Hallo Ingolf
Nocheinmal herzlichen Dank für deine Hilfe.
Gruss Florian
AW: zeile kopieren wenn zelle bestimmten wert annimmt
18.11.2009 08:42:26
Florian
Hallo Ingo
Eine Frage habe ich noch:
Gibt es eine Möglichkeit den Code so anzupassen, dass er auch funktioniert, wenn der Wert in Spalte G durch eine Formel entsteht?
Gruss Florian
;

Forumthreads zu verwandten Themen

Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Zeilen kopieren wenn wert in Zelle
Andreas

hallo zusammen
finde für meine herausforderung nichts passendes in der recherche. :-(
ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
Nun möchte ich folgende Schritte automatisieren
Erst...
24.11.2008 17:08:00
Thread-ID: 1027397
3 Beiträge
Anzeige
Zeilenwerte auslesen und ganze Zeilen kopieren
Kristopher

Hallo an alle,
leider bin ich ein absoluter VBA-Neuling und relativ schnell mit einem – für mich – großen „Programm“ betraut worden.
Es gibt zwei Dokumente, im ersten Dokument (A) soll jeweils der Wert der Spalte C geprüft werden. Wenn der Wert = 1 ist, dann soll er in der gleichen Zeil...
21.04.2010 12:11:44
Thread-ID: 1152936
3 Beiträge
zeilen kopieren wenn wert in zelle
Andreas

Hallo Zusammen
Den nachstehenden Code habe ich im Forum gefunden. Nun möchte ich aber, dass nur zeilen mit einem bestimmten wert in der zelle a kopiert werden. Der zu suchende Wert steht im Tabellenblatt "Ziel" Zelle A1. Kann mir jemand helfen und mir schreiben wo ich den code wie anpassen...
13.11.2010 02:05:04
Thread-ID: 1186607
2 Beiträge
Zeilen ausblenden wenn Wert in Zelle <=-10
Hanshuerbel

Hallo.
Habe volgendes Problem. Möchte gerne alle Zeilen verbergen wenn der Wert in Zelle D kleiner gleich -10 ist. Leider bringt er mir einen Fehler bei Cell.EntireRow.Hidden.
vermute mal das es an dem Minuszeichen liegt.
Bitte um Hilfe.
Danke
Sub HideRows() Application.Scre...
28.05.2013 09:44:36
Thread-ID: 1315184
10 Beiträge
Zeile kopieren, wenn Wert in Spalte K gegeben ist
Sascha

Hallo,
ich möchte ab Zeile 2 die Zeilen von A bis L ausschneiden und
in die nächste freie Zeile im Tabellenblatt Archiv einfügen.
Leider bekomme ich es nicht via Makro hin, geht das eventuell
via VBA?
LG
Sascha
26.06.2013 08:55:47
Thread-ID: 1319723
5 Beiträge
Nicht ganze Zeile kopieren
Thorsten_Z

Moin liebes Forum,
folgender Code kopiert mir immer die komplette gefundene Zeile. Ich brauche aber nur die Reihen A bis BU (Danach kommen Formeln die ich nicht kopiert haben will).
Wer kann mir Hilfestellung bei der Anpassung geben?
Private Sub CommandButton2_Click() Dim rng As Ran...
02.04.2014 09:26:21
Thread-ID: 1355790
6 Beiträge
Ganze Zeilen Kopieren, abhängig vom Spaltenwert
eric

Hallo zusammen,
brauche sehr dringend schnell Hilfe und hoffe hier auf eine schnelle Lösung.
Für Excel-Kenner sicher mit links zu erledigen.
Folgende Formel gesucht:
Beim Überschreiten eines bestimmten Spaltenwertes sollen all die relevanten Zeilen, deren erster Spaltenwert über...
02.12.2014 10:16:51
Thread-ID: 1395664
5 Beiträge
Anzeige
Zeile ausblenden, wenn Wert in Zelle
Jehona

Hallo zusammen,
ich füge über eine Userform in der 11. Spalte meiner Excel-Tabelle (jeweils in die abgefragte Zeile) eine Uhrzeit ein.
Nun möchte ich, dass wenn in einer Zeile in der 11. Spalte die Uhrzeit steht, die ganze Zeile automatisch ausgeblendet wird.
Kann mir da jemand hel...
14.12.2017 11:00:40
Thread-ID: 1597150
11 Beiträge
Zeile kopieren wenn bestimmter Wert in Zelle
Tobias

Hallo Zusammen,
ich hoffe Ihr könnt mir helfen.
Ich möchte in der Spalte "H" in der Tabelle "Quelle" nach einem Wert suchen. In diesem Fall hat die Spalte unterschiedliche Datumswerte (TT.MM.JJJJ) und ich möchte z.B. alle Werte mit ".06.2018". Den Wert ".06.2018" wählt man in einem ande...
10.07.2018 16:49:24
Thread-ID: 1633227
4 Beiträge
VBA: Zeile ensperren, wenn Wert in Zelle
Boris

Hallo Forum,
ich versuche mich schon eine Weile an folgender Aufgabenstellung:
Workbook mit 5 Sheets, alle Zellen der Sheets locked, alle Sheets protected durch folgenden Code in ThisWorkbook:
Option Explicit Private Sub Workbook_Open() 'Protect all Sheets Dim ws As Worksheet For Ea...
11.09.2018 13:33:28
Thread-ID: 1644808
8 Beiträge
Anzeige
Zeilen kopieren wenn kein Wert in Spalte
Andreas

Hallo alle zusammen ich hoffe ihr könnt mir helfen,
ich habe folgenden VBA Code aus diesem Forum Sub Kopieren() Dim iRow As Integer, iRowT For iRow = 1 To 556 If IsEmpty(Cells(iRow, 6)) Then iRowT = iRowT + 1 Worksheets("Tabelle2").Rows(iRowT).Value = _ Rows(iRow).Value End If Next iRow En...
25.08.2019 22:49:36
Thread-ID: 1709454
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zeile kopieren, wenn Zelle bestimmten Wert annimmt

Schritt-für-Schritt-Anleitung

  1. Öffne die Excel-Datei, in der Du die Zeile kopieren möchtest. Stelle sicher, dass Du zwei Tabellenblätter hast: Tabelle1 und Tabelle2.

  2. Gehe zu Tabelle1 und klicke mit der rechten Maustaste auf den Tab, wähle „Code anzeigen“.

  3. Füge den folgenden VBA-Code ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Columns.Count > 1 Then Exit Sub
If Target.Column <> 7 Then Exit Sub
For Each rng In Target
   If rng = "Ja" Then
       rng.EntireRow.Copy
       With Sheets("Tabelle2")
           .Range("A" & .Cells(.Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial _
           Paste:=xlPasteValues
       End With
       rng.EntireRow.Delete
   End If
Next rng
Application.CutCopyMode = False
End Sub

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

  5. Teste den Code, indem Du in Tabelle1 in Spalte G den Wert „Ja“ eingibst. Die gesamte Zeile sollte in Tabelle2 kopiert werden.

Häufige Fehler und Lösungen

  • Fehler: Die Zeile wird nicht kopiert.

    • Lösung: Überprüfe, ob die Änderung in Spalte G (7. Spalte) erfolgt ist. Der Code funktioniert nur für diese Spalte.

  • Fehler: Das Makro funktioniert nicht bei mehreren Zellen gleichzeitig.

    • Lösung: Der Code stoppt, wenn mehr als eine Spalte geändert wird. Achte darauf, nur Spalte G zu ändern.

  • Fehler: Formatierungen werden nicht übernommen.

    • Lösung: Das ist gewollt, da nur die Werte kopiert werden. Wenn Du Formatierungen benötigst, passe den Code an.

Alternative Methoden

  1. Formelbasierte Lösung: Du kannst auch die FILTER- oder WENN-Funktion verwenden, um Daten dynamisch zu filtern. Das erfordert allerdings, dass Du die Daten nicht direkt in Tabelle2 kopierst.

  2. Pivot-Tabellen: Eine Pivot-Tabelle kann helfen, Daten zu aggregieren und zu analysieren, ohne sie zu kopieren.

  3. Manuelles Kopieren: Du kannst die Zeilen auch manuell kopieren, aber dies ist zeitaufwendig und erfordert mehr Aufwand.

Praktische Beispiele

  • Beispiel 1: Wenn Du in Tabelle1 in Spalte G „Ja“ schreibst, wird die gesamte Zeile automatisch in Tabelle2 kopiert.
  • Beispiel 2: Du kannst den Code so anpassen, dass er auch auf andere Werte reagiert, z. B. „Nein“ oder spezifische Wörter, indem Du die Bedingung im Code änderst.
If rng = "Nein" Then
    ' Weitere Logik hier
End If

Tipps für Profis

  • Automatisierung: Du kannst das Makro so anpassen, dass es bei bestimmten Ereignissen (z. B. beim Öffnen der Datei) automatisch ausgeführt wird.
  • Fehlerbehandlung: Implementiere eine Fehlerbehandlung im VBA-Code, um unerwartete Fehler abzufangen.
  • Dokumentation: Halte den Code gut dokumentiert, damit Du und andere Benutzer ihn später verstehen können.

FAQ: Häufige Fragen

1. Kann ich den Code anpassen, um auch Zeilen zu kopieren, wenn ein Wert durch eine Formel entsteht?
Ja, Du müsstest den Code so anpassen, dass er die Berechnungsergebnisse überwacht, anstatt nur die direkten Eingaben.

2. Wie kann ich den Code ändern, um nur bestimmte Spalten zu kopieren?
Ändere den Code so, dass er nur die Werte der gewünschten Spalten kopiert, indem Du rng.Cells(1, n) für die n-te Spalte verwendest.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige