Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
996to1000
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
996to1000
996to1000
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen in anderes Tabellenblatt kopieren

Zeilen in anderes Tabellenblatt kopieren
07.08.2008 11:05:49
Jürgen
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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen in anderes Tabellenblatt kopieren
07.08.2008 11:14:00
David
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

AW: Zeilen in anderes Tabellenblatt kopieren
07.08.2008 11:24:00
Jürgen
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

Anzeige
AW: Zeilen in anderes Tabellenblatt kopieren
07.08.2008 11:33:00
David
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

AW: Zeilen in anderes Tabellenblatt kopieren
07.08.2008 11:43:13
Ramses
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

Anzeige
AW: Zeilen in anderes Tabellenblatt kopieren
07.08.2008 12:10:00
Jürgen
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

AW: einfache und schnelle lösung
07.08.2008 12:28:00
Daniel
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

Anzeige

204 Forumthreads zu ähnlichen Themen

Nur bestimmten Zellbereich kopieren u. exportieren
Bernd

Hallo Freaks,
ich habe diesen Code für das Exportieren bestimmter Tabellenblätter aus dem Forum-Archiv.
Wer wäre bitte so nett und würde den Code dahingehend anpassen, dass nur die Zellen A1:P36 des Sheets "Export" kopiert werden?
Wenn es nicht zu unverschämt ist, wäre ich an nachs...
17.03.2009 16:11:25
Thread-ID: 1061150
2 Beiträge
Anzeige
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Zeilen in anderes Arbeitsblatt kopieren
Alex

Hallo @ all
ich habe folgendes Problem:
Tabelle 1 enthält eine Vielzahl von Daten. Diese will ich nun filtern und die jeweilige Zeile, die in N "TGA" enthält in Tabelle 2 kopieren.
Ich weiß, dass das Ganze mit wenn(summe... funktioniert, aber vermute, man muss hier feste Zahlen ange...
06.07.2009 11:29:58
Thread-ID: 1086570
7 Beiträge
Anzeige
Kopieren in andere Tabelle
liese

Hallo Forumfreunde!
Bitte um Hilfe zu folgendem Problem:
Bei Doppelklick im Bereich H10:H15 in Tabelle1 (z.B. H7) soll der Zellinhalt nach Tabelle2
in Zelle D5 kopiert werden und der Inhalt zwei Zellen neben dem Doppelklick (J7)
ebenfalls nach Tabelle2 in K10 kopiert werden.
...
19.08.2009 13:20:01
Thread-ID: 1097094
10 Beiträge
Combobox soll nur bestimmte Zeilen zeigen
Jörg-HH

Guten Abend zusammen
habe in einem Thread mit Franz neulich viel über Listboxen gelernt und wollte das nun auf ein ähnliches Problem mit einer Combobox übertragen - aber da hapert es noch etwas ;-)) Ich hab versucht, einiges von dem Code, den Franz mir gesendet hat, zu verwenden
In dies...
23.09.2009 20:23:50
Thread-ID: 1105056
30 Beiträge
Nur bis zu einem Bestimmten Zeichen kopieren
Excellent

Hallo,
ich habe z.B. in einer Zelle in Excel diesen Dateipfad stehen: C:\Ordner1\UnterordnerXY\Ordner0815
Nun möchte ich, wenn ich auf einen Button drücke nur noch folgendes in der Zelle stehen haben:
C:\Ordner1\UnterordnerXY\
Es könnte auch sein, dass der Pfad lediglich so auss...
24.09.2009 11:29:13
Thread-ID: 1105207
8 Beiträge
Spalten H & I in ein neues Tabellenblatt kopieren
Henning

Hallo zusammen,
wie man schon an meinem Level erkenne kann, bin ich ein Anfänger was VBA angeht.
Nun zu meinem Problem.
Ich habe ein Tabellenblatt mit dem Namen "Stammdaten" in diesem fängt
ab der 18 Zeile in den Spalten H und I folgende Tabelle an. Es folgen noch weitere Spalt...
23.11.2009 22:01:03
Thread-ID: 1119606
7 Beiträge
variables kopieren in ein anderes Tabellenblatt | Herbers Excel-Forum
Space
Hallo Community
Ich suche einen VBA Code um folgendes Problem mittels Button zu lösen:
ich würde gerne aus einem Tabellenblatt "Tabelle1" von Zeile 14 bis Spalte Q bis zum letzen vorhandenen Eintrag alles koperen und das ganze in das Tabellenblatt "Tabelle2" einfügen. In "Tabelle2" soll es...
15.01.2010 12:12:20
Thread-ID: 1130211
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
4
1
6
1
9
29
7
6
4
2
7
2
6
8
9
4
3
5
8
2
2
1
2
4