Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
752to756
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
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen von Tabellenblatt zu Tabellenblatt kopieren

Zeilen von Tabellenblatt zu Tabellenblatt kopieren
04.04.2006 14:00:48
Tabellenblatt
Hi Community,
ich habe ein Tabellenblatt mit mehreren Spalten voller Daten.
Ich möchte für mein Makro folgendes Programmieren:
In Spalte X (die ist immer fest) soll nach allen Werten Y gesucht werden. Dort, wo Y steht, soll die ganze Zeile markiert und in ein neues Tabellenblatt kopiert werden und im alten Quelltabellenblatt gelöscht werden. Danach die restlichen Zeilen hochgerückt, damit keine Lücke entsteht.
Als Ergebnis habe ich dann das Quell-Tabellenblatt ohne die Y-Werte und ohne Lücken.
Im Ziel-Tabellenblatt habe ich dafür dann alle aussortierten Zeilen untereinander dastehen.
Meine VBA Kenntnisse reichen dafür leider nicht aus.
Vielen Dank für Eure Hilfe!
Gruß
Andi

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen von Tabellenblatt zu Tabellenblatt kopieren
04.04.2006 14:16:18
Tabellenblatt
Hi Andi,
habs mal so im Blattmodul getestet.

Sub til()
Dim i As Long
For i = Cells(Rows.Count, 24).End(xlUp).Row To 1 Step -1
If Cells(i, 24).Value = "Y" Then
Lrow = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(i).Cut
Sheets(2).Cells(Lrow, 1).Insert Shift:=xlDown
Application.CutCopyMode = False
Rows(i).Delete
End If
Next i
End Sub

Gruss Harald
AW: Zeilen von Tabellenblatt zu Tabellenblatt kopieren
04.04.2006 14:32:03
Tabellenblatt
Hallo Harald,
zunächst mal vielen Dank!
Ich habe so ein bißchen meine Mühe, den Code anzupassen.
Eine Variable für die Anzahl der Zeilen habe ich schon. Die nennt sich "LetzteZeile"
Hier der Code:
Dim LetzteZeile As Integer
LetzteZeile = Range("B1").End(xlDown).Row
In der ersten Zeile sind nur Beschriftungen, die braucht man also nicht zu beachten.
Das Ziel-Tabellenblatt nennt sich "Nicht zuordenbar".
Kannst Du mir helfen, den Code anzupassen?
Vielen Dank
Andi
Anzeige
AW: Zeilen von Tabellenblatt zu Tabellenblatt kopieren
04.04.2006 14:44:48
Tabellenblatt
Hi,
kopier den Code genauso in das betreffende Blattmodul.
Zeilen löschen, geht am besten von unten nach oben. Ebenso die Suche nach dem letzten Eintrag.
Die Schleife läuft nun vom untersten Eintrag in der Suchspalte X bis Zeile 2.
Dein "letzte Reihe" sucht in Spalte B von oben nach unten. D.h. eine leere Zelle und das wars ;-)...bzw. die Suche in der Suchspalte garantiert a) alle Einträge werden gefunden und b) es werden keine unnötigen Zeilen durchsucht.
As Integer ist nur ok, wenn sicher ist, dass die letzte gefüllte Zelle nicht in Zeile 32.766 aufwärts ist. Sicher ist sicher...as Long zählt weiter ;-)

Sub til()
Dim i As Long
For i = Cells(Rows.Count, 24).End(xlUp).Row To 2 Step -1 'Suchspalte X
If Cells(i, 24).Value = "Y" Then
Lrow = Sheets("Nicht zuordenbar").Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(i).Cut
Sheets("Nicht zuordenbar").Cells(Lrow, 1).Insert Shift:=xlDown
Application.CutCopyMode = False
Rows(i).Delete
End If
Next i
End Sub

Gruss Harald
Anzeige
AW: Zeilen von Tabellenblatt zu Tabellenblatt kopieren
04.04.2006 14:52:45
Tabellenblatt
Funktioniert!
Vielen Dank, Harald
Danke für die Rückmeldung owT
04.04.2006 15:47:04
Harald
Gruß

305 Forumthreads zu ähnlichen Themen

Zu viele Zeilenverlängerungszeichen?
TommiH

Hallöchen,
ich habe grade versucht ein Makro aufzunehmen, in dem ich 4 Dateien einlese. Es sind ASCI-Dateien mit einem speziellen Trennzeichen # - wenn ich durch den Assistent gehe, dann kommt bei einer (die Größte) Datei irgendwann der Punkt mit dem Spaltenformat, wo ich Text auswähle (au...
24.09.2008 12:29:00
Thread-ID: 1012032
3 Beiträge
Anzeige
Array meckert wegen zuvielen Zeilenumbrüchen
simo

Hallo Gemeinde,
ich stehe gerade vor einem Problem:
In einem Programm, welches ich von jmd. übernommen habe steht folgende array-zuweisung:
Werte= Array( _ Array(W01, W04, Nothing, Nothing), _ Array(W02, W05, Nothing, Nothing), _ Array(W01, W03, Nothing, Nothing), _ Array(W05,...
30.06.2010 16:03:49
Thread-ID: 1164755
3 Beiträge
Zuviele Pivot-Zeilenelemente ?
Peter

Hallo,
ich generiere aus einer Tabelle mit 18 Spalten und 1500 Spalten eine einfache Pivottabelle mit einem Datenfeld "Anzahl Nachname" und 3 Zeilenfeldern - "Bereich", "Nachname", "User-ID" (jeweils ohne Teilsummen).
Zweck der Sache ist, alle Leute der Bereiche zu aggregieren und zu zähl...
30.04.2002 15:22:33
Thread-ID: 117496
2 Beiträge
Anzeige
Pivot-Tabelle über mehr als 1.048.576 Zeilen
Peter

Hallo zusammen,
ich habe Datensätze über mehr als 1.048.576 Zeilen; diese habe ich auf 2 Tabellenblätter aufgeteilt. Ist es möglich, über beide Tabellenblätter eine einzige Pivot-Tabelle zu ziehen? Wenn ja, wie? Gerne auch per VBA. Bin für Tipps dankbar!
Beste Grüße,
Peter
PS: H...
30.06.2011 15:50:51
Thread-ID: 1220359
3 Beiträge
zu viele Zeilenfortsetzungen ???
Snewi

Moin,
ich bin heute mal wieder mit MS Query an meine Grenzen gestossen!
Ich habe eine SQL-Abfrage die ich mir über Query in Excel zurückgeben möchte!
Ich habe schon mehrere VIEWS gebaut um die Abfrage Zeichentechnisch zu verkleinern! Wenn ich diese nun mit dem Rekorder aufzeichne b...
20.02.2013 15:50:35
Thread-ID: 1300264
6 Beiträge
Markro um Zeilen auszublenden (2 Tabellenblätter)
Tom
Hallo zusammen
Ich habe schon oft hier im Forum Beiträge gelesen und so auch meistens eine Lösung meiner Probleme gefunden. Nun habe ich ein, so wie ich das sehe, eher kleines Problem, allerdings bräuchte ich trotzdem eure Hilfe.
Ich möchte mehrere Zeilen auf zwei unterschiedlichen Tabellen...
20.06.2014 16:24:53
Thread-ID: 1366676
6 Beiträge
zu viele Zeichen in VBA-Zeilenumbruch im Makrocode
braun

Sheets(1).Select
startzeile = 2
Spalte = 2
startzeile2 = 2
Sheets(1).Select
Letzte_Zeile = Range(Cells(60000, Spalte), Cells(60000, Spalte)).End(xlUp).Row
For i = startzeile To Letzte_Zeile
If Left(Sheets(1).Cells(i, Spalte), 7) = "ABCDEFG" Or Left(Sheets(1).Cells(i,...
26.08.2015 13:43:05
Thread-ID: 1444522
20 Beiträge
Adressenabgleich mit mehr als 1 Mio. Datensätze
Leon D.

Hallo,ich möchte Adressen von zwei ASCII-Dateien abgleichen. Ich habe in eine Tab. ca 5000 Adressen und in der anderen Tabelle mehr als eine Mio. Adressen. Excel kann leider nur bis 64000 Datensätze einlesen. Hat jemand vielleicht Erfahrung damit?
Danke für TippsLeon

21.02.2003 13:16:33
Thread-ID: 222633
3 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
2
4
2
1
1
2
5
5
19
2
3
12
2
1
7
2
2
11
11
8
14
2
2
6
1