Riesen Zeilen-Lösch Problem!!!! Hilfe!!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thorsten,
genauso, also Blatt1 ca. 65000 Zeilen, Blatt2 ca. 6500 Zeilen, Blatt3 ca. 65000 Zeilen, Blatt4 ca. 56000 Zeilen. So ungefähr, die Datei liegt im Institut , kann erst morgen genauer raufschauen. Nach 1024 Zeilen wird jedesmal ein Header angelegt über 3 Zeilen. Die 1. ist immer eine Lehrzeile, die 2. und 3. beschreibt mein Datenfile, also Text. Dann geht es weiter z.B. nach dem 1. Header mit Zeile 1028 und wiederum bis 2052, dann wieder 3 Zeilen Header (1 Leerzeile, 2 Zeilen mit Text . usw., usw.... Stehenbleiben soll am Ende jede 10 Zeile mit Daten. Frage 6 verstehe ich nicht ganz, meinst Du mit Server unser Hausnetz, dann kann ich mit nein antworten, weil der Rechner nicht ins Intranet eingebunden ist.
O je, ich hoffe ich konnte mein Problem einigermaßen klar rüberbringen.
Liane

Moin Liane
Na...gut geschlafen und schon am Platz? :-)
Ich bin gerad am "Basteln".
Kurz noch diese Fragen:
1. Du hast die Header schon entfernt?
2. Es befinden sich nun alle Daten (65000 Zeilen) in ein und demselben Excel-Tabelenblatt?
Wenn du beides mit JA beantworten kannst, dann hab ich diese Lösung:
1. Ich setze zuerst in Spalte Z in jede 1., 11., 21, 31., 41. Zeile...usw ein "x".
2. Dann lasse ich die ganze Tabelle noch mal durchlaufen, und ab jeder Zeile OHNE "x" werden 9 Zeilen gelöscht.
Bsp:
Zeile 1 = "x"
Zeile 11 = "x"
Zeilen 2 - 10 werden gelöscht
Zeile 11 = "x"
Zeile 21 = "x"
Zeilen 12 - 20 werden gelöscht
usw.
Das ganze dauert auf meinem PC ca. 6 Minuten.
Die Spalte Z (mit den "x" drin) kannst du danach ja per Hand löschen.
Ist Spalte Z denn in deiner Tabelle frei? Wenn nicht, habe ich im Code die entsprechenden Zeilen mit Kommentar vermerkt, in denen du das Z durch Buchstaben einer freien Spalte ersetzen musst.
Vor dem Start meines Makros solltest du von deiner Tabelle eine Sicherheitskopie erstellen.
Besser eine Datei mit zu vielen Daten, als eine Datei, die ganz kaputt ist ;-)
So, hier nun mein Makro, welches du in deiner Tabelle in ein allg. Modul einbauen musst:
(einfach alles von S u b Loeschen() bis einschließlich End S u b markieren, kopieren + einfügen)


Sub Loeschen()
Dim loZeile As Long, loIndex As Long
loIndex = 1
For loZeile = 1 To 65000
If loIndex = 1 Then
Range("Z1").Value = "x" 'wenn Spalte Z nicht frei, dann Z durch Buchstaben  _
einer freien Spalte ersetzen
loIndex = 11
End If
If loIndex = loZeile Then
Range("Z" & loZeile).Value = "x" 'wenn Spalte Z nicht frei, dann Z durch  _
Buchstaben einer freien Spalte ersetzen
loIndex = loIndex + 10
End If
Next
loIndex = 0
For loZeile = 1 To 65000
If Range("Z" & loZeile).Value = "x" Then
loIndex = loIndex + 1
End If
Next
With UserForm1
.ProgressBar1.Max = loIndex
.ProgressBar1.Value = 0
.Show 0
End With
DoEvents
Application.ScreenUpdating = False
For loZeile = 1 To 6500
If Range("Z" & loZeile).Value  "x" Then
Rows(loZeile & ":" & loZeile + 8).Delete Shift:=xlUp
UserForm1.lbl2.Caption = loZeile
UserForm1.ProgressBar1.Value = loZeile
UserForm1.Repaint
DoEvents
End If
Next
Application.ScreenUpdating = True
MsgBox "fertig"
End Sub

Konnte ich helfen?
Ciao
Thorsten

Sub Alles_weg() Application.ScreenUpdating = False For i = 1025 To 65536 Step 1024 Range(Cells(i, 1), Cells(i + 2, 1)).EntireRow.Clear Next i Columns("A:A").SpecialCells(xlCellTypeBlanks).Delete On Error Resume Next For j = 1 To 65536 Step 10 Range(Cells(j + 1, 1), Cells(j + 9, 1)).EntireRow.Clear Next j Columns("A:A").SpecialCells(xlCellTypeBlanks).Delete Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Riesen Zeilen-Lösch Problem!!!! Hilfe!!!

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Riesen Zeilen-Lösch Problem!!!! Hilfe!!!

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread