Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1532to1536
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
1532to1536
1532to1536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen kopieren und letzte Zeilen wieder löschen

Zeilen kopieren und letzte Zeilen wieder löschen
06.01.2017 08:50:02
Marv
Hallo Zusammen,
mein Makro kopiert Zeilen von Tabelle1 an das untere Ende der Tabelle2.
Sub Neue_Daten_auswählen()
Sheets("Tabelle1").Select
Range("A4:U" & Cells(Rows.Count, 2).End(xlUp).Row).Copy
Sheets("Tabelle2").Select
letztezeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
letztezeile2 = letztezeile + 1
Cells(letztezeile2, 1).Select
ActiveSheet.Paste
End Sub
Danach führt ein anderes Makro verschiedene Zellanpassungen in Tabelle2 durch.
Ich würde ganz gerne abschließend aus den Zeilen die anfangs kopiert wurden die Zellen von D bis U wieder löschen lassen.
Der Code muss also wissen, wie viele Zeilen kopiert wurden damit auch nur diese Zellen gelöscht werden und nicht alle Zellen in Tabelle2 die im Bereich D bis U stehen.
Wie könnte ich dies umsetzen?
Super vielen Dank für eure Hilfe.
Grüße
Marv

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Zeilen kopieren und letzte Zeilen wieder löschen
06.01.2017 09:39:35
Hajo_Zi 

Sub Neue_Daten_auswählen()
Sheets("Tabelle1").Select
Dim Loletzte as Long
Loletzte= Cells(Rows.Count, 2).End(xlUp).Row
Range("A4:U" & Cells(Rows.Count, 2).End(xlUp).Row).Copy
Sheets("Tabelle2").Select
letztezeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
letztezeile2 = letztezeile + 1
Cells(letztezeile2, 1).Paste
Msgbox "Zeile " letztezeile2 & ":" letztezeile2+Loletzte
End Sub


AW: Zeilen kopieren und letzte Zeilen löschen
06.01.2017 11:29:59
Marv
HI Hajo,
danke für die Antwort. Ich bräuchte allerdings noch eine Umsetzung dafür und nicht nur die Angabe zu den Zeilen...
Ich hab dir mal eine Beispieldatei angehängt mit meinem Makro drin. Einfach einmal ausführen und dann werden die Daten von Tabelle1 in Tabelle2 kopiert.
Im Tab "Beispiel" hab ich die Zellen gelb markiert die abschließend in Tabelle2 wieder gelöscht werden sollen.
https://www.herber.de/bbs/user/110365.xlsm
Danke dir.
Grüße
Marv
Anzeige
AW: Zeilen kopieren und letzte Zeilen löschen
06.01.2017 11:38:05
Hajo_Zi
Du schreibst Co, da dürfte das löschen doch kein Problem sein
Range(letztezeile2 & ":" letztezeile2+Loletzte).Delete
Vielleicht noch Tabelle davor?
Gruß Hajo
AW: Zeilen kopieren und letzte Zeilen löschen
06.01.2017 11:57:15
Marv
HI Hajo,
danke für die Antwort. Ich bräuchte allerdings noch eine Umsetzung dafür und nicht nur die Angabe zu den Zeilen...
Ich hab dir mal eine Beispieldatei angehängt mit meinem Makro drin. Einfach einmal ausführen und dann werden die Daten von Tabelle1 in Tabelle2 kopiert.
Im Tab "Beispiel" hab ich die Zellen gelb markiert die abschließend in Tabelle2 wieder gelöscht werden sollen.
https://www.herber.de/bbs/user/110365.xlsm
Danke dir.
Grüße
Marv
Anzeige
AW: Zeilen kopieren und letzte Zeilen löschen
06.01.2017 11:59:11
Marv
Sorry, jetzt hat er doppelt gepostet.
Der Code
Sheets("Tabelle2).Range(letztezeile2 & ":" letztezeile2+Loletzte).Delete
funktioniert leider nicht. Listentrennzeichen oder ) erwartet.
Soweit bin ich mit meinen Kenntnissen leider nicht...
AW: Zeilen kopieren und letzte Zeilen löschen
06.01.2017 12:09:17
Hajo_Zi
meine Antwort hat Dir also nicht gefallen, da Du darauf nicht geantwortet hast.
Sheets("Tabelle2").Range(letztezeile2 & ":" & letztezeile2 + Loletzte).Delete
Ich bin dann raus. Da meine Antwort nicht gefallen hat.
Gruß Hajo
AW: Zeilen kopieren und letzte Zeilen löschen
06.01.2017 12:11:41
Marv
Das hab ich doch nicht gesagt :-)
Danke dir
Anzeige
AW: Zeilen kopieren und letzte Zeilen löschen
06.01.2017 12:05:13
Marv
HI Hajo,
danke für die Antwort. Ich bräuchte allerdings noch eine Umsetzung dafür und nicht nur die Angabe zu den Zeilen...
Ich hab dir mal eine Beispieldatei angehängt mit meinem Makro drin. Einfach einmal ausführen und dann werden die Daten von Tabelle1 in Tabelle2 kopiert.
Im Tab "Beispiel" hab ich die Zellen gelb markiert die abschließend in Tabelle2 wieder gelöscht werden sollen.
https://www.herber.de/bbs/user/110365.xlsm
Danke dir.
Grüße
Marv
AW: Zeilen kopieren und letzte Zeilen wieder löschen
06.01.2017 09:53:31
Werner
Hallo Marv,
Sub Neue_Daten_auswählen()
Dim loLetzteQ As Long
Dim loLetzteZ As Long
Dim loAnzahl As Long
loLetzteQ = Sheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Row
loLetzteZ = Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row + 1
loAnzahl = loLetzteQ - 3
Sheets("Tabelle1").Range("A4:U" & loLetzteQ).Copy Sheets("Tabelle2").Cells(loLetzteZ, 1)
loLetzteZ = Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row
Sheets("Tabelle2").Range("D" & loLetzteZ + 1 - loAnzahl & ":U" & loLetzteZ).Delete
End Sub
Gruß Werner
Anzeige
AW: Zeilen kopieren und letzte Zeilen löschen
06.01.2017 11:27:41
Marv
Hi Werner,
danke für deine schnelle Rückmeldung. Jetzt kopiert er mir allerdings einfach die obersten Zeilen in Tabelle2 und kopiert sie ans Ende der Tabelle2 und löscht dann die Zellen von D bis U.
Ich hab dir mal eine Beispieldatei angehängt mit meinem Makro drin. Einfach einmal ausführen und dann werden die Daten von Tabelle1 in Tabelle2 kopiert.
Im Tab "Beispiel" hab ich die Zellen gelb markiert die abschließend in Tabelle2 wieder gelöscht werden sollen.
https://www.herber.de/bbs/user/110365.xlsm
Danke dir.
Grüße
Marv
Anzeige
AW: Zeilen kopieren und letzte Zeilen löschen
06.01.2017 13:14:53
Werner
Hallo Mav,
sorry, aber ich verstehe nur Bahnhof. Das Makro macht doch genau das, was du wolltest, Die Daten von A2 bis U-letzteZeile von Blatt 1 nach Blatt 2 ans Ende der dort vorhandenen Datensätze kopieren.
Wenn du dann nach dem Kopieren (vor dem Löschen) ein weiteres Makro ausführen willst, dann musst du halt den Aufruf dieses Makros noch in den Code einbauen. Das kann ich dir nicht machen, weil ich dein Makro nicht kenne. Im Prinzip so:
Sub Neue_Daten_auswählen()
Dim loLetzteQ As Long
Dim loLetzteZ As Long
Dim loAnzahl As Long
loLetzteQ = Sheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Row
loLetzteZ = Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row + 1
loAnzahl = loLetzteQ - 3
Sheets("Tabelle1").Range("A4:U" & loLetzteQ).Copy Sheets("Tabelle2").Cells(loLetzteZ, 1)
loLetzteZ = Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row
'## hier dein Makro aufrufen
'.Call DeinMakroName
Sheets("Tabelle2").Range("D" & loLetzteZ + 1 - loAnzahl & ":U" & loLetzteZ).Delete
End Sub
Gruß Werner
Anzeige
AW: Zeilen kopieren und letzte Zeilen löschen
06.01.2017 14:12:31
Werner
Hallo Marv,
so langsam solltest du dich mal festlegen was Sache ist. In deinem Eingangspost hier begann der Kopierbereich bei A4, also habe ich den Code entsprechend geschrieben.
In deinem Beispiel dann plötzlich von A2 - was jetzt?
Also gut, nochmal, jetzt Kopierbereich beginnt bei A2:
Sub Neue_Daten_auswählen()
Dim loLetzteQ As Long
Dim loLetzteZ As Long
Dim loAnzahl As Long
loLetzteQ = Sheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Row
loLetzteZ = Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row + 1
loAnzahl = loLetzteQ - 1
Sheets("Tabelle1").Range("A2:U" & loLetzteQ).Copy Sheets("Tabelle2").Cells(loLetzteZ, 1)
loLetzteZ = Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row
'## hier der Aufruf deines Makros ######
'Call DeinMakroName
Sheets("Tabelle2").Range("D" & loLetzteZ + 1 - loAnzahl & ":U" & loLetzteZ).ClearContents
End Sub
Gruß Werner
Anzeige

312 Forumthreads zu ähnlichen Themen

wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
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
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Anzeige
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
suchen und bestimmte Zelle löschen
Peter

Hallo
ich würde gerne nach bestimmten Begriffen suchen und falls der Begriff gefunden wird,
das dann die übernächste Zelle nach unten gelöscht wird.
Beispiel: Falls Begiff gefunden in B3 dann lösche Wert in B5, Begriff gefunden in E30 dann lösche Wert in E32 usw.
Wer weiß wie ic...
19.06.2009 20:22:11
Thread-ID: 1083023
2 Beiträge
Zeilen löschen wenn ...
Marion65

Hi zusammen,
habe eine Tabelle hochgeladen, mein Problem ist dort beschrieben.
Gruß Marion
https://www.herber.de/bbs/user/62707.xls
24.06.2009 04:57:02
Thread-ID: 1083974
8 Beiträge
Wenn Zeile doppelt dann löschen
walli

Guten Morgen,
ich möchte gern, wenn eine Zeile in meiner großen Tabelle doppelt vorhanden ist,
löschen.
Die Werte fangen ab Zeile 6 an und sind von Spalte A bis M,
es soll dann die doppelte Zeile nur von A-M gelöscht werden.
mfg walli
24.06.2009 11:29:15
Thread-ID: 1084058
5 Beiträge
Zeile löschen , wenn doppelt, Makro ?
walli

Hallo zusammen,
hatte vorhin geschrieben, leider nicht mehr im Forum.
Ich habe eine große Tabelle, ab Zeile 6 von Spalte A bis M
soll diese kontr. werden ob eine Zeile doppelt (gleich) ist und
diese Doppelte dann von A-M löschen.
Das Ende der Tabelle kann von A6 bis 500 ode...
24.06.2009 12:45:17
Thread-ID: 1084084
4 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
7
4
5
7
18
3
1
7
4
3
7
9
4
3
1
6
10
3
8
4
2
15
9
12
15