Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1268to1272
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
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Zeilen löschen.

Bestimmte Zeilen löschen.
Golem
Hallo Excel-Fachleute,
meine Frage ist, ob evtl. schon fertige Lösungen für meinen folgen Wunsch vorhanden sind.
Ich habe ein Arbeitsblatt mit gefüllte Zeilen von A1 bis A530053. Diese Spalte möchte ich zur besseren Bearbeitung
und Übersichtlichkeit in 10 Einzelspalten aufteilen ( A1 bis A53053, B1 bis B53053, usw. ).
Bisher kopiere ich von A1 bis A53053 die Zeilen und kopiere diesen Bereich in ein anderes Blatt ( danach A53054 bis A106107, usw. ). Dieses Kopieren ist aber sehr aufwendig.
Ich stelle mir vor, dass auch eine andere Lösung mit VBA möglich sein könnte.
Z.B. ich betätige ein Button, wodurch sich ein Fenster öffnet und in diesem die Anfangs- und Endzeile des zu kopierenden Bereichs eingegeben werden kann. Ich drücke Enter und alle anderen Zeilen werden gelöscht.
Danach kopiere ich die verbleibenden Zeilen in ein anderes Blatt.
Für evtl. Tipps oder Anregungen schon mal besten Dank!
Golem

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bestimmte Zeilen löschen.
20.06.2012 12:14:25
Reinhard
Hallo Golem,
stimmen die Zahlen, ich glaube das nicht.
Option Explicit
Sub tt()
Dim Zei As Long, Spa As Long, wks As Worksheet
Set wks = Worksheets("Tabelle1")
Application.ScreenUpdating = False
Worksheets.Add after:=Worksheets(Worksheets.Count)
With ActiveSheet
For Spa = 1 To 10
wks.Cells(Zei + 1, 1).Offset(53053, 1).Copy .Cells(1, Spa)
Zei = Zei + 53053
Next Spa
End With
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard
AW: Bestimmte Zeilen löschen.
20.06.2012 12:17:43
Rudi
Hallo,
wks.Cells(Zei + 1, 1).Offset(53053, 1).Copy .Cells(1, Spa)
Das ist ja nur 1 Zelle!
Resize statt OffSet!
Gruß
Rudi
Anzeige
Danke für die Korrektur :-) o.w.T.
20.06.2012 12:30:04
Reinhard

AW: frage
20.06.2012 12:39:44
hary
Moin ihr beide
mit offset gehe ich doch zu dieser Zelle,waere es nicht: 

Cells(Zei + 1, 1).Resize(53053,1 )

gruss hary
AW: Bestimmte Zeilen löschen.
20.06.2012 15:33:07
Golem
Hallo Reinhard,
die Zahlen stimmen. In Excel 2007 hat ein Tabellenblatt 1.048.576 Zeilen und 16.384 Spalten.
Wie schon angegeben, kopiere ich 1 x von A1 bis A53053, 1 x von A53054 bis A106107, 1 x von106108 bis A159161, 1 x von A159162 bis A212214, 1 x A212215 bis 265268 usw. .
Deswegen auch die Überlegung, die Anfangs- und Endwerte über eine Maske einzugeben.
Schöne Grüße
Golem
AW: Bestimmte Zeilen löschen.
20.06.2012 17:46:08
Reinhard
Hallo Golem,
es geht um dein "usw.".
Du hast Blöcke von 53.053 Zeilen, 10 dieser Blöcke sind also 530.530 Zeilen lang.
Du aber sprichst von A1 bis A530053.
Ich habe dir Lösungscode gebastelt. Wenn du das dynamisch haben willst empfiehlt sich schon
eine Userform mit drei Textboxen wo du Anfangszeile des aufzuteilenden Bereiches eingibst, dazu Endzeile und die Blocklänge.
Lohnt sich aber nur wenn sich diese Werte permanent ändern bzw. der gleiche Code in verschiedenen mappen benutzt wird.
Gruß
Reinhard
Anzeige
AW: Bestimmte Zeilen löschen.
20.06.2012 18:49:20
Golem
Hallo Reinhard,
jetzt habe ich Deine Anmerkung verstanden. Es ist von mir ein Fehler, Du hast recht.
Jeder aufzuteilende Block ist 530530 Zeilen lang.
Ich habe 27 Blöcke aufzuteilen und evtl. verändere ich auch einmal die einzelnen Blocklängen
Ich habe Deinen Code ausprobiert ( auch mit der Änderung "Resize" ).
Der Code verändert in einer Testmappe nicht die Anzahl der Zeilen. Sondern bei jedem Ausführen wird ein neues Tabellenblatt eingefügt.
Schöne Grüße
Golem

310 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
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
Zeilen löschen wenn ...
Marion65

Hallo zusammen,
habe mein Problem in der Beispieldatei beschrieben. Für Eure Hilfe wäre ich Dankbar.
Gruß Marion
https://www.herber.de/bbs/user/62728.xls
Ps. Franz hatte mir schon ein Makro gebastelt, doch leider funktioniert es nicht richtig.
Sub BegriffSuchenZeilenLoesc...
24.06.2009 20:27:47
Thread-ID: 1084196
8 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

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
2
3
7
4
3
7
9
4
3
6
10
8
4
7
4
8
15
9
11
3
8