Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
384to388
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
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen in Exceltabelle löschen ??

Zeilen in Exceltabelle löschen ??
24.02.2004 13:27:26
Peeti
Hallo Leute,
ich stehe vor einem großen Problem:
Folgendes soll geändert werden:
In dem Ordner Test befinden sich rund
350 Unterordner, bezeichnet mit
A1 A2 usw.
Darin sind je zwei Exceldateien.
Aus diesen Dateien muss ich nun die Zeilen 150 bis 350 komplett löschen.
Wie kann ich das angehen, wenn ich von VBS nur wenig verstehe.
Danke für jeden Tipp, der mir das manuelle öffnen der Dateien erspart.
Gruß
Peet

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen in Exceltabelle löschen ??
24.02.2004 14:00:44
Jan P
Hallo Peet,
also, das Öffnen wird Dir nicht erspart bleiben.. das würde ich jedoch in eine For/Next-Schleife einbauen, dann mußt Du die Dateien nicht manuell öffnen.
Dim testfile As String
Dim i, zeile As Integer
Dim r1 As Range
For i = 1 to 350
testfile = "A" & i
Workbooks.Open testfile
For zeile = 150 to 350
Worksheets(1).Rows(zeile).Delete
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs testfile
Application.DisplayAlerts = True
Next
Next

Bitte schön...
(Würde ich vielleicht erstmal anhand einer Datei probieren.....)
AW: Zeilen in Exceltabelle löschen ??
24.02.2004 14:54:33
PeterW
Hallo Jan,
warum willst du die Zeilen in einer For-Next Schleife einzeln löschen und vor allem, warum nach jeder gelöschten Zeile das File wieder speichern? Das Löschen geht doch mit
Sheets("DeineTabelle").Rows(150 & ":" & 350).Delete
in einem Rutsch!
Gruß
Peter
Anzeige
AW: Zeilen in Exceltabelle löschen ??
24.02.2004 15:09:27
Jan P
Hallo Peter,
ja, habe ich einfach so runtergeschrieben.... Wie es mehrere Wege nach Rom gibt, gibt es auch in VBA mehrere Wege....
das WorkBooks.SaveAs muß natürlich aus der zweiten For/Next-Schleife raus und zwischen die beiden Next gesetzt werden... Das sehe ich jetzt auch..
Gruß
AW: Zeilen in Exceltabelle löschen ??
24.02.2004 15:17:35
PeterW
Hallo Jan,
hast Recht, viele Wege führen nach Rom - wenn du die Zeilen über deine Schleife löschen willst wird nur jede zweite entfernt - du kommst also nie in Rom an. ;-) Das wäre bei dir noch nicht so schlimm, weil du ja Code mal so eben runterschreiben kannst und sicherlich irgendwann den Fehler findest aber versuch dir mal vorzustellen, wie jemand ohne VBA-Kenntnisse damit umgehen soll.
Gruß
Peter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige