Anzeige
Archiv - Navigation
1608to1612
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
Inhaltsverzeichnis

Bestimmte Zeilen in mehreren Excel-Dateien löschen

Bestimmte Zeilen in mehreren Excel-Dateien löschen
22.02.2018 15:08:28
forum_joe
Hallo zusammen,
ich würde gerne in mehreren Excel-Dateien (bestimmt 3000)eines Ordners
jeweils die Zeilen 57 bis 97 löschen.
Es ist mühsam, jede Datei zu öffnen und die Zeilen manuell zu löschen und anschließend wieder zu speichern.
Gibt es hier eine Makro-Lösung, die mich unterstützen könnte?
Vielen Dank im Voraus
Gruß
Forum_Joe

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

Betreff
Datum
Anwender
Anzeige
AW: ja, es geht mit VBA (owT)
22.02.2018 15:23:32
Fennek
AW: ja, es geht mit VBA (owT)
22.02.2018 15:43:40
forum_joe
Ein Code würde mir natürlich sehr helfen.
Dass es grundsätzlich geht, hab ich mir schon gedacht!
Gruß
Forum:Joe
AW: Langversion
22.02.2018 16:09:22
Fennek
Hallo,
die Frage wird seit vielen Jahren regelmäßig (mehrfach pro Woche) gestelltund es gibt "unendlich" viele Beispiele im Netz.
Die meisten Helfer beantworten solche Fragen nicht mehr, also wirst Du entweder die Suchmaschinen nutzen oder einen Dienstleister beauftragen müssen.
mfg
AW: Bestimmte Zeilen in mehreren Excel-Dateien löschen
22.02.2018 16:22:33
ChrisL
Hi
Ja die Frage ist tatsächlich zum Gähnen. Aber du hast Glück, weil die Arbeit, die ich eigentlich tun sollte noch langweiliger ist ;)
Achtung: Wenn die Zeilen erst einmal gelöscht sind, gibt es keine Wiederherstellung.
Sub Filesearch()
Dim strDir As String, objFSO As Object, objDir As Object, objFile As Object
Dim WB As Workbook
Set objFSO = CreateObject("scripting.filesystemobject")
strDir = "C:\Pfad\"
Set objDir = objFSO.GetFolder(strDir)
For Each objFile In objDir.Files
Set WB = Workbooks.Open(strDir & objFile.Name)
WB.Worksheets(1).Rows("57:97").Delete
WB.Close True
Next
Set objDir = Nothing: Set objFSO = Nothing: Set objFile = Nothing
End Sub
cu
Chris
Anzeige
Bestimmte Zeilen in mehreren Excel-Dateien lösch
22.02.2018 17:28:42
Forum_Joe
Vielen Dank Chris,
leider arbeite ich nicht sehr oft mit VBA-Codes,wahrscheinlich hatte ich auch die Fragestellung bei der Suche nicht richtig gewählt.
Dein Code funktioniert optimal!
Schön, dass trotz gähnender Frage für Profi´s, es Leute gibt wie Dich Chris,
die einem doch so schnell helfen.
Gruß
Forum_Joe

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige