Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
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
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile kopieren wenn zelle wert "xyz" enthält

Forumthread: Zeile kopieren wenn zelle wert "xyz" enthält

Zeile kopieren wenn zelle wert "xyz" enthält
19.05.2006 16:03:31
nontacky
Hallo,
ich habe ein Problem mit einer Makroerstellung. Habe das Archiv schon durchsucht und auch einiges ähnliches gefunden - aber leider sind meine VBA Kenntnisse zu schlecht um daraus genau das zu basteln was ich haben möchte.
Ich habe eine Tabelle mit 5 Spalten & 50 Zeilen die Daten enthalten (B4 - F54). In Spalte C wird ein Status eingetragen. Sobald dieser auf "done" steht möchte ich, dass bei ausführen des Makros der Eintrag + die umliegenden 4 Zellen (also die Zeile meiner Liste kopiert werden und an einer anderen Stelle der Tabelle (im Spalte AA ab Zeile 4) kopiert werden (in die nächte freie Zelle von AA4 aus gesehen). Das soll als Schleife laufen, so dass ALLE Einträge aus meiner Liste die auf "done" stehen untereinander in die Abalge ab Spalte AA gelegt werden. Danach sollten alle Einträge die in der B4-F54 Tabelle stehen und auf "done" gesetzt sind gelöscht werden.
Ich hoffe das ist überhaupt machbar.
Vielen Dank für die Hilfe
Nontacky
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile kopieren wenn zelle wert "xyz" enthält
19.05.2006 16:13:05
Reinhard
Hi nontacky,
Option Explicit
Sub tt()
Dim n As Integer, pos As Integer
pos = 4
For n = 4 To 54
If Cells(n, 3) = done Then
Cells(n, 2).Copy Destination:=Range("AA" & pos)
Range(Cells(n, 4), Cells(n, 6)).Copy Destination:=Range("AA" & pos)
Range(Cells(n, 2), Cells(n, 6)).ClearContents
End If
Next n
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Zeile kopieren wenn zelle wert "xyz" enthält
19.05.2006 16:37:34
nontacky
Hallo Reinhard,
vielen Dank für die Hilfe. Es klappt fast alles - eine Kleinigkeit noch. Die Daten werden 1a in die Spalte AA kopiert - allerdings nicht untereinander sondern immer in die gleiche Zeile (Zeile 4). Da die Einträge aus meiner Liste in Spalte AA abgelegt werden sollen ist es wichtig, dass die Einträge untereinander abgelegt werden = Anfangen in AA4 .. wenn AA4 belegt ist dann AA5 usw. usf.
Wäre super wenn Du mir da noch mal helfen könntest.
Vielen Dank,
Nontacky
Anzeige
sorry, mein Fehler
19.05.2006 21:01:42
Reinhard
Hi nontacky,
hatte was im Code vergessen.
Option Explicit
Sub tt()
Dim n As Integer, pos As Integer
pos = 4
For n = 4 To 54
If Cells(n, 3) = "done" Then
Cells(n, 2).Copy Destination:=Range("AA" & pos)
Range(Cells(n, 4), Cells(n, 6)).Copy Destination:=Range("AA" & pos)
Range(Cells(n, 2), Cells(n, 6)).ClearContents
pos=pos+1
End If
Next n
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
;

Forumthreads zu verwandten Themen

Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Anzeige
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
Wenn Wert weniger, in anderer Zelle um d.Wert erh.
Josef

Guten Morgen!
Ich habe z.B. in der Zelle A1 den Wert 5 stehen. Wird dieser Wert z.B. um die Zahl 3 verringert, dann soll der vorhandene Wert in der Zelle B1 um die Zahl 3 erhöht werden. Wie würde hier bitte eine Formellösung dafür lauten?
Danke
Josef
09.09.2008 05:49:00
Thread-ID: 1008272
2 Beiträge
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 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
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Wenn Wert in ComboBox2, dann Eintrag in TB
Josef

Hallo!
Ich würde bitte eine VBA Lösung suchen.
Wenn ein Wert in der ComboBox2 in einer UF aktiviert wird, dann soll dieser Wert in der Tabelle2!B2:B107 gesucht werden und der in der Spalte C danebenstehende Wert soll in die TextBox1 eingelesen werden.
If ComboBox2.Text = Tabelle2!B2...
09.02.2010 10:10:30
Thread-ID: 1136905
4 Beiträge
Wenn in Zelle P Inhalt dann schreibe in Zelle X
Viktoria

Hallo Leute,
hab ne doofe Frage:
Also Ich hab in Zelle P einen Inhalt dann möchte ich, das mir das Makro den Inhalt überprüft, und anhand des Inhaltes in eine Zelle einen String setzt den ich vorgebe.
Bei meinem Lösungsweg ist das Problem, das das Makro komischerweise nicht am Ende...
13.04.2010 09:14:04
Thread-ID: 1151360
6 Beiträge
Wenn in Zelle dann
Viktoria

Hallo Leute,
stehe seit Wochen schon vor dem gleichen Problem.. und hab keine Ahnung wie ich es beheben soll... :(
Also in Spalte Q habe ich Abteilungsbezeichnungen. Dort setzte ich einen Filter und möchte jetzt das mir mein Makro in Spalte M nur die ersten beiden Chars kopiert und dies...
19.04.2010 13:09:51
Thread-ID: 1152553
4 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
Wenn wert in Zelle dann Button
Rene

Hallo,
warum funktioniert die Auswahl der Buttons nicht mehr wenn Sie im Ttabellenblatt an eine andere Position gesetzt werden.
Die Datei https://www.herber.de/bbs/user/72744.xls wurde aus Datenschutzgründen gelöscht
Würde das Tool gern verwenden.
MfG René
19.12.2010 23:05:53
Thread-ID: 1192146
2 Beiträge
Wenn wert in Zelle dann Button
Rene

Hallo,
warum funktioniert die Auswahl der Buttons nicht mehr wenn Sie im Ttabellenblatt an eine andere Position gesetzt werden.
Die Datei https://www.herber.de/bbs/user/72744.xls wurde aus Datenschutzgründen gelöscht
Würde das Tool gern verwenden.
MfG René
20.12.2010 03:06:11
Thread-ID: 1192147
3 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 den Wert "done" enthält

Schritt-für-Schritt-Anleitung

Um eine Zeile in Excel zu kopieren, wenn eine Zelle den Wert "done" enthält, kannst du ein einfaches VBA-Makro nutzen. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
  3. Kopiere den folgenden VBA-Code in das Modul:
Option Explicit
Sub tt()
    Dim n As Integer, pos As Integer
    pos = 4 ' Startposition in Spalte AA
    For n = 4 To 54 ' Gehe durch die Zeilen 4 bis 54
        If Cells(n, 3) = "done" Then ' Überprüfe, ob in Spalte C "done" steht
            Cells(n, 2).Copy Destination:=Range("AA" & pos) ' Kopiere Spalte B
            Range(Cells(n, 4), Cells(n, 6)).Copy Destination:=Range("AA" & pos) ' Kopiere Spalten D bis F
            Range(Cells(n, 2), Cells(n, 6)).ClearContents ' Lösche die Originaldaten
            pos = pos + 1 ' Erhöhe die Zielposition für die nächste Zeile
        End If
    Next n
End Sub
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.

Häufige Fehler und Lösungen

  • Fehler: Die kopierten Daten erscheinen nicht untereinander.

    • Lösung: Stelle sicher, dass in deinem Code die Variable pos nach dem Kopieren erhöht wird, wie im Beispiel oben gezeigt.

  • Fehler: Der Wert "done" wird nicht erkannt.

    • Lösung: Achte darauf, dass "done" als String in Anführungszeichen geschrieben wird: If Cells(n, 3) = "done" Then.

Alternative Methoden

Wenn du kein Makro verwenden möchtest, kannst du auch die Filterfunktion in Excel nutzen:

  1. Markiere deine Daten und gehe zu Daten > Filter.
  2. Aktiviere den Filter für Spalte C und wähle nur "done" aus.
  3. Kopiere die gefilterten Zeilen manuell in die gewünschte Zielzelle.

Praktische Beispiele

Angenommen, du hast folgende Daten:

A B C D E F
1 Name Status Wert1 Wert2 Wert3
2 Peter done 100 200 300
3 Anna pending 150 250 350
4 Max done 200 300 400

Nach dem Ausführen des Makros wird Spalte AA so aussehen:

AA AB AC
Name Wert1 Wert2
Peter 100 200
Max 200 300

Tipps für Profis

  • Verwende Option Explicit, um sicherzustellen, dass alle Variablen deklariert sind. Dies hilft, Fehler zu vermeiden.
  • Du kannst das Makro anpassen, um zusätzliche Kriterien zu verwenden, wenn du mehr als nur den Status "done" überprüfen möchtest.
  • Speichere deine Datei als .xlsm, um die Makros zu erhalten.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen, um nach einem anderen Wert zu suchen?
Ändere einfach den Wert in der Bedingung: If Cells(n, 3) = "neuerWert" Then.

2. Funktioniert das Makro in allen Excel-Versionen?
Ja, das Makro sollte in den meisten modernen Excel-Versionen (ab Excel 2007) funktionieren. Achte darauf, dass die Makros aktiviert sind.

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