Das Archiv des Excel-Forums

Zeilen in anderes Tabellenblatt kopieren

Bild

Betrifft: Zeilen in anderes Tabellenblatt kopieren
von: Jürgen Rebok

Geschrieben am: 07.08.2008 11:05:49

Hallo Excel-Profis,
ich suche eine VBA-Lösung zu folgendem Problem:
Ich möchte aus Tabelle1 (Max. 100 Zeilen) die kompletten Zeilen, wenn in Spalte J ein x steht,
in Tabelle3 kopieren, aber nur die Werte, keine Formeln, Formatierungen, Verknüpfungen usw.!
In die Tabelle3 sollen die eingefügten Zeilen aus Tabelle1 immer die erste freie Stelle geschrieben
werden.
Noch zur Info: Die Spaltenzahl (A-J) in Tabelle1 bleibt immer gleich, nur die Zeilenzahl kann sich
ändern.
Eine ähnliche Lösung existiert bereits im Archiv, hier werden jedoch alle Formatierungen usw.
mit übertragen!
Wer kann mir hier weiterhelfen?
Gruß Jürgen

Bild

Betrifft: AW: Zeilen in anderes Tabellenblatt kopieren
von: David
Geschrieben am: 07.08.2008 11:14:50
Eine ähnliche Lösung existiert bereits im Archiv, hier werden jedoch alle Formatierungen usw.
mit übertragen!

Wenn du dazu schon ein Makro gefunden hast, kannst du die entsprechende Zeile in dem Makro, das die Zeilen in die neue Tabelle einfügt, nicht derart anpassen, dass nur die Werte eingefügt werden?
so nach dem Schema: ....PasteSpecial Paste:=xlPasteValues...
Gruß
David

Bild

Betrifft: AW: Zeilen in anderes Tabellenblatt kopieren
von: Jürgen Rebok

Geschrieben am: 07.08.2008 11:24:23
Hallo David,
das geht leider nicht, weil das Makro ganz anders aufgebaut ist (siehe unten):


Sub test()
For i = 1 To Cells(Rows.Count, 8).End(xlUp).Row
If Cells(i, 8).Value = "x" Then
Rows(i).Copy Destination:=Sheets("Tabelle2").Cells(Sheets("Tabelle2").Cells(Rows.Count, 1).End( _
xlUp).Row + 1, 1)
End If
Next
End Sub


Ich bin auch nicht so fitt, dass ich das Makro komplett umbauen könnte.
Gruß Jürgen

Bild

Betrifft: AW: Zeilen in anderes Tabellenblatt kopieren
von: David
Geschrieben am: 07.08.2008 11:33:59
versuchs doch mal so:


Rows(i).Copy Destination:=Sheets("Tabelle2").Cells(Sheets("Tabelle2").Cells(Rows.Count, 1)
.End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
:=False, Transpose:=False


bin aber auch Laie bei VBA, deswegen ohne Garantie.
Gruß
David

Bild

Betrifft: AW: Zeilen in anderes Tabellenblatt kopieren
von: Ramses

Geschrieben am: 07.08.2008 11:43:13
Hallo
probier mal


Sub test()
Dim i As Long, tLR As Long
Dim tarWks As Worksheet, srcWks As Worksheet
Set srcWks = Worksheets("Tabelle1")
Set tarWks = Worksheets("Tabelle2")
With srcWks
For i = 1 To .Cells(.Rows.Count, 10).End(xlUp).Row
If .Cells(i, 10).Value = "x" Then
tLR = tarWks.Cells(Rows.Count, 1).End(xlUp).Row + 1
Debug.Print tLR
With tarWks
.Range(.Cells(tLR, 1), .Cells(tLR, 10)).Value = srcWks.Range(srcWks.Cells(i, 1), _
srcWks.Cells(i, 10)).Value
End With
End If
Next i
End With
End Sub


Gruss Rainer

Bild

Betrifft: AW: Zeilen in anderes Tabellenblatt kopieren
von: Jürgen Rebok
Geschrieben am: 07.08.2008 12:10:46
Hallo David und Rainer,
Danke für eure Hilfe.
Bei dem abgeänderten Makro von David kommt die Fehlermeldung:
"Fehler beim kompilieren. Syntaxfehler" !!
Aber das Makro von Rainer funktioniert einwandfrei.
Nochmals besten Dank.
Gruß Jürgen

Bild

Betrifft: AW: einfache und schnelle lösung
von: Daniel

Geschrieben am: 07.08.2008 12:28:06
Hi
Probier mal das Makro hier:


Sub kopieren()
With Sheets("Tabelle1").UsedRange
.AutoFilter Field:=10, Criteria1:="x"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets("Tabelle1").UsedRange.AutoFilter
End Sub


allerdings sollte die erste Zeile in Tabelle1 eine Überschriftenzeile sein.
Gruß, Daniel

 Bild

Excel-Beispiele zum Thema "Zeilen in anderes Tabellenblatt kopieren"

Zeilenhöhe in cm festlegen download Summe gefilterter Zeilen download
Zeilenumbruch download Leere Zeilen löschen download
Spalten/Zeilen aus- und einblenden download Zeilenumbruch in Formel erzwingen download
Zeilen und Spalten über ein Drehfeld ein- und ausblenden download Alle Kopf-/Fußzeilen-Festlegungen löschen download
Fußzeilen beim Öffnen eintragen download Zellinhalte zeilenweise sortieren download
Zeilen markieren download Über VBA Schriftgröße von Fußzeilen bestimmen download
Einige Zeilen in einer sequentiellen Datei ersetzen download Zeilen oberhalb der markierten Zellen einfügen download
Anzahl der einzufügenden Zeilen abfragen download Leere Zeilen beim Drucken unterdrücken download
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen download
Alle nichtleeren Zeilen markieren download Zeilen mit leeren Formeln beim Druck unterdrücken download
Zeilen bedingt durch SpinButton verschieben download Auf Doppelklick Zeilenumbruch und "X" download
Leere Zeilen beim Druck ausblenden download Menüpunkte zum Einfügen und Löschen von Zeilen hinzufügen download
Zeilenweise sortieren download Leere Zeilen und Spalten in ausgewähltem Bereich löschen download
Alle leeren Zeilen und Spalten entfernen download Kopf-/Fußzeilen-Festlegungen übernehmen download
Zeilen mit Zellen mit rotem Hintergrund ausblenden download Nur Zeilen mit einer "2" drucken download
Nur Zeilen mit bestimmtem Inhalt in HTML-Datei konvertieren download Schriftart in Zeilen wechselweise fett/nicht-fett formatieren download
Zeilenweise von Blatt zu Blatt kopieren download Doppelte Datensätze und Leerzeilen löschen download
Alle Zeilen außer der mit dem höchsten Wert löschen download In einem zweiten Tabellenblatt vorgegebene Zeilen beschriften download
Mit InputBoxes Zeilennummern abfragen und Summe bilden download Kofpzeilenwerte angekreuzter Zellen multiplizieren download
Zeilen eines zweiten Blattes im ersten über Drehfeld anzeigen download Zeilenumbrüche im aktiven Blatt entfernen download
Werte von jeweils zwei Zeilen verbinden download Bei Zeileneintrag Anzeige von "erledigt" download
Werte aus Tabelle1 mit zusätzlichen Leerzeilen in Tabelle2 download Zeilenumbrüche in eine *.CSV-Datei übernehmen download
Druckstart- und endzeilen über InputBox abfragen download Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download
Abfrage zum Kopierbereich von Startzelle, Zeilen- und Spaltenanzahl download Zeilen einfügen, Werte und Bezüge zu den Werten eintragen download
Tabellenzeilen in Abhängigkeit einer zweiten Tabelle einblenden download Tabellen vergleichen und Zeilen ersetzen download
Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download Zeile mit aktiver Zelle in anderes Blatt kopieren download
Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download Bildergruppe in anderes Blatt kopieren download
CheckBox-Werte eines Blattes in ein anderes Blatt eintragen download Begriff suchen und Fundzeilen in anderes Blatt kopieren download
Benennen von Tabellenblättern mit Monatsnamen download Druckseitenlinien im Tabellenblatt download
Tabellenblattnamen in ein Listenfeld einlesen download Suchbegriff über mehrere Tabellenblätter suchen. download
Tabellenblätter benennen download Tabellenblatt auswählen download
Zustand von Tabellenblatt-Checkboxes ermitteln download Tabellenblattnamen der VBE-Projekte ändern download
Tabellenblattnamen nach Datum download Gefilterte Daten in neues Tabellenblatt übertragen download
Mehrmals vorkommende Werte in neues Tabellenblatt download Grafiken im Tabellenblatt ordnen download
Einzelnes Tabellenblatt speichern download Tabellenblattnamen in eine ListBox einlesen download
Tabellenblätter in umgekehrter Reihenfolge drucken download Anwendername in Tabellenblatt eintragen download
Druck aus mehreren Tabellenblättern auf eine Druckseite download Tabellenblatt in UserForm download
Letztes Speicherdatum in die Fußzeile aller Tabellenblätter download Ausgewählte Tabellenblätter als eigene Arbeitsmappen speichern download
Den selben Bereichsnamen in mehreren Tabellenblättern download Textdatei in Tabellenblatt importieren download
Einzelnes Tabellenblatt unter Tagesdatum speichern download Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download
Tabellenblattbereich als Email versenden download Elemente in Tabellenblatt Pac-Man-artig steuern download
Einen vorgegebenen Tabellenblattbereich in neue Arbeitsmappe download Schaltfläche in einem Tabellenblatt ein- und ausblenden download
Letzte Verknüpfung in einem Tabellenblatt löschen download Tabellenblattbereich sortiert als Zellkontextmenü download
Ausgeblendetes Tabellenblatt bei Paßworteingabe anzeigen download Wert in Tabellenblatt suchen und alle Fundwerte in zweite Tabelle download
Tabellenblattinhalt unter Weglassung einer Spalte als Textdatei download ComboBoxes per VBA-Code in Tabellenblatt erzeugen download
Diagramm exportieren und in Tabellenblatt importieren download Arbeitsmappen- und Tabellenblattnamen auslesen download
Tabellenblatt-Hyperlink über UserForm aufrufen download Tabellenblatt durch Zell-Doppelklick auswählen download
Zellen über Tabellenblatt-Schaltfläche multiplizieren download Neues Tabellenblatt und Name über UserForm ermitteln download
Wert aus Zelle in Tabellenblatt-Textbox eintragen download Prüfung, welche Tabellenblätter aus einer Liste vorhanden sind download
Wert aus UserForm-ListBox in Tabellenblatt eintragen download Tabellenblatt mit dem aktuellen Monatsnamen drucken download
Tabellenblatt kopieren und dreistellig fortlaufend numerieren download Nach Tabellenblatt-ComboBox den vorher selektierte Bereich wählen download
Mehrere Tabellenblattbereich unabhängig voneinander sortieren download Neue Schaltfläche mit zugehörigem Code in Tabellenblatt download
Tabellenblatt-TextBox-Wete in Abhängigkeit zu Drehfeld download Blätter in andere Arbeitsmappen kopieren download
Module von Mappe zu Mappe kopieren download Arbeitsblatt 40 mal kopieren download
Schriftgröße beim Kopieren verdoppeln download Tabellencode nach Kopieren des Blattes löschen download
Arbeitsmappe blitzschnell kopieren download VBE-Namen der Blattmodule beim Kopieren festlegen download
Blattinhalt von einer zur anderen Arbeitsmappe kopieren download Formel bis zur letzten Zeile der Nebenspalte kopieren download
Datei kopieren, wenn noch nicht vorhanden download Erste Druckseite in eine neue Arbeitsmappe kopieren download
Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren download Bei Eintrag in Spalte A aktuelle Zeile kopieren download
Filtern und Kopieren download Einen von einer Schlüsselziffer abhängigen Bereich kopieren download
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download Über InputBox festzulegenden Bereich kopieren download
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download Jede zweite Zelle kopieren download
Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download Gruppe von Optionsfeldern kopieren und Makro zuweisen download
Nicht zusammenhängenden Bereich in nächste Zeile kopieren download Wert aus UserForm-TextBox suchen und Fundstelle kopieren download
Zeile in Abhängigkeit zur Eingabe in Blätter kopieren download Werte prüfen und kopieren download
Bei Eintrag von X Zeile in andere Tabelle kopieren download Daten kopieren wenn kein Datum oder Datum > Heute download
Blattinhalte dreier Blätter in neues Blatt kopieren download Kopieren und Umbenennen eines Blattes download
Nur Zeilen mit bestimmtem Inhalt kopieren download Artikelnummern nach Kriterien suchen und Datensätze kopieren download
Bild in zweites Blatt an gleiche Position kopieren download Alle Zeilen ohne Wert in vorgegebener Spalte kopieren download
Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren download Bei Eingabe Formel in der Nebenspalte nach unten kopieren download
Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download Aktive Zeile kopieren und löschen download
Datensätze, die öfter als 3 mal vorkommen, kopieren download Den jeweils darüberliegenden Wert in Leerzellen kopieren download
Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren download Dateien listen und Blätter in neue Arbeitsmappe kopieren download