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
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen mit bestimmten Wert kopieren und einfügen

Forumthread: Zeilen mit bestimmten Wert kopieren und einfügen

Zeilen mit bestimmten Wert kopieren und einfügen
25.07.2004 18:51:03
Julia
Hallo excel-Freunde,
und wieder brauche ich eure Hilfe... und hoffe das ich sie finde...
Mein Problemm:
ich möchte alle Zeilen in der Tabelle 1 wo in der Spalte D String "Total" steht kopieren und in die Tabelle 2 einfügen...
Das muss doch ganz beistimmt irgend wie gehen...
ich habe versucht das hinzubekommen, aber es geht leider nicht :(
Habt ihr vielleicht irgendwelche Idee?
Viele Grüße
Julia
Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen mit bestimmten Wert kopieren und einfügen
Ulf
Autofilter, filtern nach total, nur sichtbare Zellen kopieren.
Ulf
AW: Zeilen mit bestimmten Wert kopieren und einfügen
25.07.2004 19:12:04
Nepumuk
Hallo Julia,
versuch es mal damit:


Option Explicit
Public Sub proc_kopieren_Total()
    Dim myRange As Range
    Dim strAddress As String
    Dim lngCounter As Long
    Set myRange = Worksheets("Tabelle1").Columns(4).Find(What:="Total", After:=Worksheets("Tabelle1").Cells(Rows.Count, 4), LookAt:=xlWhole)
    If Not myRange Is Nothing Then
        strAddress = myRange.Address
        Do
            lngCounter = lngCounter + 1
            With Worksheets("Tabelle2")
                Worksheets("Tabelle1").Rows(myRange.Row).Copy .Rows(.Cells(Rows.Count, 4).End(xlUp).Row + 1)
            End With
            Set myRange = Worksheets("Tabelle1").Columns(4).FindNext(myRange)
        Loop While Not myRange Is Nothing And myRange.Address <> strAddress
        MsgBox CStr(lngCounter) & " Zeilen kopiert.", 64, "Information"
    Else
        MsgBox "Keine Daten zum kopieren gefunden.", 48, "Hinweis"
    End If
End Sub


Gruß
Nepumuk
Anzeige
AW: Zeilen mit bestimmten Wert kopieren und einfügen
25.07.2004 19:33:34
Julia
Hallo,
danke, aber es funktioniert nicht: an dieser Stelle giebt er mir Fehler aus:
Set myRange = Worksheets("Planning CT_SIT").Columns(4).FindNext(myRange)
Ich weiß nicht an was es liegt... sieht eigentlich richtig aus....
Gruß
AW: Zeilen mit bestimmten Wert kopieren und einfügen
25.07.2004 19:36:38
Nepumuk
Hallo Julia,
wie lautet die Fehlermeldung genau?
Gruß
Nepumuk
Anzeige
AW: Zeilen mit bestimmten Wert kopieren und einfügen
25.07.2004 21:20:21
Julia
Hallo,
Fehler lautet: Index ausserhalb des gültigen Bereichs.. Fehler nr 9..
?
AW: Zeilen mit bestimmten Wert kopieren und einfügen
25.07.2004 21:23:05
Nepumuk
Hallo Julia,
überprüfe den Tabellennamen. Möglicherweise ist am Anfang oder Ende noch ein zusätzliches Leerzeichen mit drin.
Gruß
Nepumuk
AW: Zeilen mit bestimmten Wert kopieren und einfügen
25.07.2004 21:33:22
Julia
Hallo ihr beide,
stimmt ja, da warst tatsächlich was mit Namen nicht in Ordnung, er macht das jetzt. DANKE :)
Aber noch eine kleine Frage, er copiert alles also mit Formeln, deswegen zeigt er nach dem Einfügen da wo die Formeln standen BEZUG, wie kann ich im Code schreiben, dass er nur Inhalte (werte) einfügt. Wisst ihr das vielleicht?
Gruß
Julia
Anzeige
AW: Zeilen mit bestimmten Wert kopieren und einfügen
25.07.2004 21:46:55
Nepumuk
Hallo Julia,
ich schon:


Option Explicit
Public Sub proc_kopieren_Total()
    Dim myRange As Range
    Dim strAddress As String
    Dim lngCounter As Long
    Set myRange = Worksheets("Tabelle1").Columns(4).Find(What:="Total", After:=Worksheets("Tabelle1").Cells(Rows.Count, 4), LookAt:=xlWhole)
    If Not myRange Is Nothing Then
        strAddress = myRange.Address
        Do
            lngCounter = lngCounter + 1
            With Worksheets("Tabelle2")
                .Range(.Cells(.Cells(Rows.Count, 4).End(xlUp).Row + 1, 1), .Cells(.Cells(Rows.Count, 4).End(xlUp).Row + 1, 256)) = Worksheets("Tabelle1").Range(Worksheets("Tabelle1").Cells(myRange.Row, 1), Worksheets("Tabelle1").Cells(myRange.Row, 256)).Value
            End With
            Set myRange = Worksheets("Tabelle1").Columns(4).FindNext(myRange)
        Loop While Not myRange Is Nothing And myRange.Address <> strAddress
        MsgBox CStr(lngCounter) & " Zeilen kopiert.", 64, "Information"
    Else
        MsgBox "Keine Daten zum kopieren gefunden.", 48, "Hinweis"
    End If
End Sub


Gruß
Nepumuk
Anzeige
AW: Zeilen mit bestimmten Wert kopieren und einfügen
25.07.2004 22:27:20
Julia
Hallo Nepumuk,
ja es hat wohl geklappt, ich muss da noch was anpassen, aber sonst funktioniert...
Wenn ich ehrlich bin,... ich verstehe nicht so ganz was du da gemacht hast...
aber tatsache es funktioniert :) ich muss noch genau reinschauen, vielleicht werde ja doch noch was verstehen... :)...
VIELEN DANK... ;)
Viele Grüße
Julia
Anzeige
hilfe::::
25.07.2004 23:32:30
Julia
Hallo noch Mal.
ich versuche Code so zu ändern, dass Bereich immer in gleiche stelle eingefügt wird, und nicht nach der letzte Zeile...
komischer weise wenn ich so ändere, wird es bei mir gar nichts angezeigt...
.Cells(11, 1) = Worksheets("Planning CT_SIT").Range(Worksheets("Planning CT_SIT").Cells(myRange.Row, 1), Worksheets("Planning CT_SIT").Cells(myRange.Row, 256)).Value
kannst du mir vielleicht sagen was ich falsch mache?
Gruß
Anzeige
AW: hilfe::::
26.07.2004 16:16:04
Nepumuk
Hallo Julia,
ab welcher Zeile sollen die Einträge in Tabelle2 eingefügt werden?
Gruß
Nepumuk
AW: hilfe::::
26.07.2004 16:27:09
Julia
hallo,
ab Zeile 2.
eigentlich habe ich das Problem so gelöst, dass ich immer die Function aufrufe, die doppetlte Einträge löscht...
ich danke dir...
jetzt habe ich wieder andere Probleme...
ich schreibe sie im neuen Beitrag...
Viele Grüße
Julia
Anzeige
AW: Zeilen mit bestimmten Wert kopieren und einfügen
Ulf
Dann stimmt der Blattname nicht, vielleicht Leerzeichen drin?
Ulf
;

Forumthreads zu verwandten Themen

VBA Zeilen kopieren bis...
Silvi

Hallo,
kann mir bitte mal jemand bei folgendem Makro helfen:
'Rows("2:2").Select
Selection.Copy
Range("A3").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Activate
Loop
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlValu...
13.10.2008 13:13:04
Thread-ID: 1016022
13 Beiträge
Zeilen mit bestimmten Inhalt löschen
sascha76er

Hallo,
ich möchte immer alle Zeilen via Makro löschen, wenn der Inhalt der Zeile indentisch mit der ersten ist.
Ist das möglich, wenn ja wie?
Vorab vielen Dank
Sascha
08.12.2008 13:35:00
Thread-ID: 1031058
6 Beiträge
Anzeige
Wert bestimmt Anzahl der zu kopierenden Zeilen VBA
Maja

Hallo,
ich Suche eine Formel mit der ich folgenden Code modifizieren kann:
Sub Uebergabe() Dim i As Integer Dim k As Integer Dim iRowT As Integer Const zz = 1 flagg = False Sheets("Vorlage_Angebot_Sicht").Activate Sheets("Vorlage_Angebot_Sicht").Range("D2").Select i = 0 iRowT = 10 Do...
18.12.2008 13:24:00
Thread-ID: 1033843
5 Beiträge
Anzeige
Zeilen mit ähnlichem Inhalt kopieren
Lauren

Hallo zusammen,
sitze wiedermal hier in VBA/Excel fest und hoffe auf Hilfe :)
Ich habe eine Excel Datei mit ca. 7000 Zeilen.........nun möchte ich die Inhalte etwas übersichtlicher gestalten aber händisch wäre das ja ein riiiiiiiiiesen Aufwand, daher bin ich auf der Suche nach einem Mak...
10.02.2009 14:31:49
Thread-ID: 1049097
4 Beiträge
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 Beiträge
Anzeige
Nur Zellen mit Text kopieren
Peter

Hallo
ich bin gerade dabei eine Excel Tabelle zu bearbeiten und haben ein Auswahltabellenblatt wo ich über
Kontrollkästchen verschiedene Options auswählen kann, bzw noch die Anzahl angeben kann.
In einen Datentabellenblatt werden mir untereinander die Daten ausgegeben.
Das heißt...
15.06.2009 12:58:41
Thread-ID: 1081552
21 Beiträge
Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
Makro um Zeilen mit gleichem Inhalt zu kopieren
christian

Hallo,
vielleicht kann mir jemand von euch helfen....
Ich habe eine Ausgangstabelle mit verschiedenen Produktnummern in Spalte A und unterschiedlichen
anderen Informationen in den Spalten B-U. Die Daten in dieser Tabelle habe ich sortiert, so dass in Spalte
A alle gleichen Produ...
15.10.2009 18:56:31
Thread-ID: 1109906
8 Beiträge
nur in bestimmte bereiche reinkopieren
thomas

hallo zusammen,
ich schreibe gerade ein makro, dass über eine inputbox abfrägt, in welchem bereich man zeilen einfügen möchte. das klappt auch super, aber ich will eigentlich nur bestimmte bereiche zulassen. also zum beispiel zwischen a14 und a20. sollte nun einer einen bereich zwischen a1 u...
11.04.2002 10:25:24
Thread-ID: 112349
3 Beiträge
bestimmte Zeilen nach einer Bedingung kopieren
Andre

Hi Leute,
ich werde noch verrückt mit dem code. Ich möchte gerne bestimme Zeilen von einem Sheet ins nächste kopieren, wenn zwei Bedinungen (mit Oder) erfüllt sind.
Leider klappt meine Schleife irgendwie nicht. i müsste bei jedem Durchgang höher gehen um alle 50k Zeilen zu prüfen und z...
09.04.2010 13:38:55
Thread-ID: 1150779
9 Beiträge
kopieren zellinhalte mit zeilenumbruch
Markus

Liebe Excel-Spezialisten,
Ich habe eine Excel-Mappe mit 2 Sheets; einem Quellsheet "Zusammenfassung" und einem Zielsheet "Export".
Im Quellsheet sind in der Spalte A Probennummern (z.B BX0055488, BX00554557, usw.) eingetragen Ein und diesselbe Probennummer kann unterschiedlich oft vorko...
20.04.2010 19:23:35
Thread-ID: 1152969
4 Beiträge
Bestimmte Zeilen (Zellen) kopieren
Patrick

Hallo zusammen,
wäre echt super wenn ihr mir bei der Lösung meines Problems helfen könntet:
Hier erst einmal die Datei (https://www.herber.de/bbs/user/72451.xls).
Ziel ist es, dass bestimmte Zeilen aus dem Blatt "Ausgangsdatei" in das
Tabellenblatt "Ausgabedatei" kopiert werden....
24.11.2010 14:00:17
Thread-ID: 1188513
5 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

Zeilen mit bestimmten Werten in Excel kopieren und einfügen

Schritt-für-Schritt-Anleitung

Um in Excel nur Zeilen mit bestimmten Inhalten zu kopieren und in eine andere Tabelle einzufügen, kannst du die folgende Schritt-für-Schritt-Anleitung nutzen:

  1. Öffne Excel und gehe zur Tabelle, aus der du die Zeilen kopieren möchtest (z.B. "Tabelle1").

  2. Aktiviere den VBA-Editor:

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

  3. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf "VBAProject (dein Arbeitsmappenname)" und wähle "Einfügen" > "Modul".

  4. Kopiere den folgenden VBA-Code in das Modul:

    Option Explicit

Public Sub proc_kopieren_Total()
   Dim myRange As Range
   Dim strAddress As String
   Dim lngCounter As Long

   Set myRange = Worksheets("Tabelle1").Columns(4).Find(What:="Total", After:=Worksheets("Tabelle1").Cells(Rows.Count, 4), LookAt:=xlWhole)

   If Not myRange Is Nothing Then
       strAddress = myRange.Address
       Do
           lngCounter = lngCounter + 1
           With Worksheets("Tabelle2")
               .Range(.Cells(.Cells(Rows.Count, 4).End(xlUp).Row + 1, 1), .Cells(.Cells(Rows.Count, 4).End(xlUp).Row + 1, 256)) = Worksheets("Tabelle1").Range(Worksheets("Tabelle1").Cells(myRange.Row, 1), Worksheets("Tabelle1").Cells(myRange.Row, 256)).Value
           End With
           Set myRange = Worksheets("Tabelle1").Columns(4).FindNext(myRange)
       Loop While Not myRange Is Nothing And myRange.Address <> strAddress
       MsgBox CStr(lngCounter) & " Zeilen kopiert.", 64, "Information"
   Else
       MsgBox "Keine Daten zum kopieren gefunden.", 48, "Hinweis"
   End If
End Sub

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

  6. Führe das Makro aus:

    • Drücke ALT + F8, wähle proc_kopieren_Total aus und klicke auf "Ausführen".

Häufige Fehler und Lösungen

  • Fehler: „Index außerhalb des gültigen Bereichs“
    Überprüfe den Tabellennamen, um sicherzustellen, dass er korrekt geschrieben ist und keine zusätzlichen Leerzeichen enthält.

  • Fehler bei der Ausführung des Codes
    Wenn die Zeilen nicht korrekt kopiert werden, vergewissere dich, dass die Spalte, die du filterst (in diesem Fall Spalte D), tatsächlich die gesuchten Werte ("Total") enthält.

Alternative Methoden

  • Mit Autofilter:
    Du kannst die Autofilter-Funktion in Excel nutzen, um nur die Zeilen mit bestimmten Inhalten anzuzeigen. Wähle die Daten aus, gehe zu "Daten" > "Filter" und wähle die entsprechenden Kriterien aus.

  • Manuelles Kopieren:
    Du kannst auch die gewünschten Zeilen manuell auswählen, indem du die STRG-Taste gedrückt hältst und die relevanten Zeilen anklickst. Danach mit STRG + C kopieren und in die Ziel-Tabelle einfügen.

Praktische Beispiele

  • Wenn du alle Zeilen mit dem Wert "Total" in Spalte D von "Tabelle1" nach "Tabelle2" kopieren möchtest, nutze den oben genannten VBA-Code.
  • Um nur bestimmte Zellen mit Inhalten zu kopieren, kannst du die .Value-Eigenschaft wie gezeigt anpassen.

Tipps für Profis

  • Optimierung des Codes: Passe den VBA-Code an, um nur Werte zu kopieren, anstatt Formeln. Dies kannst du erreichen, indem du .Value anstelle von .Copy verwendest.

  • Fehlerbehandlung: Füge Fehlerbehandlungsroutinen in deinen VBA-Code ein, um unerwartete Fehler zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich nur Zeilen mit bestimmten Inhalten in Excel anzeigen?
Du kannst die Autofilter-Funktion nutzen, um nur die Zeilen anzuzeigen, die deinen Kriterien entsprechen.

2. Wie kopiere ich in Excel nur die Werte und nicht die Formeln?
Verwende den .Value-Zugriff in deinem VBA-Code, um nur die Werte zu kopieren.

3. Was mache ich, wenn der VBA-Code nicht funktioniert?
Überprüfe die Namen deiner Tabellen und stelle sicher, dass die gesuchten Werte in der angegebenen Spalte vorhanden 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