Guten Morgen,
ich sitze hier vor einem Stapel Papier…
Zu meinem Problem (abgesehen davon, dass ich keine Papierhaufen mag)
Ich arbeite mit Excel 2000…
Vorhaben: aus .xls Datei mit beispielsweise 30 Tabellenblättern möchte ich mit wenig Aufwand aus jedem Tabellenblatt die Zelle mit dem selben Inhalt löschen.
Bsp: Blatt 1, Inhalt C 1: Name XY
Blatt 2, Inhalt C 4: Name XY
Blatt 5, Inhalt C 3: Name XY
usw…
Ich habe ca. 600 Dateien mit jeweils ca. 25 Sheets.
Da muss es doch eine Lösung geben oder nicht :{ ?
Viele Dank schonmal für eure Mühen!
Grüße
Max
Vorhaben: aus .xls Datei mit beispielsweise 30
Tabellenblättern möchte ich mit wenig Aufwand aus jedem
Tabellenblatt die Zelle mit dem selben Inhalt löschen.
Bsp: Blatt 1, Inhalt C 1: Name XY
Blatt 2, Inhalt C 4: Name XY
Blatt 5, Inhalt C 3: Name XY
usw…
Hallo Max,
soll XY überall gelöscht werden oder einmalig erhalten bleiben?
Willst du den Inhalt der Zelle löschen oder die ganze Zeile der Zelle entfernen?
Stehen die Mappen alle in einem Ordner, wie heißt der Pfad?
Sind darin noch andere xls-Dateien mit denen nichts geschehen soll?
Woran rkennt man die betreffenden dateinamen?
Gruß
Reinhard
Vorhaben: aus .xls Datei mit beispielsweise 30
Tabellenblättern möchte ich mit wenig Aufwand aus jedem
Tabellenblatt die Zelle mit dem selben Inhalt löschen.
Bsp: Blatt 1, Inhalt C 1: Name XY
Blatt 2, Inhalt C 4: Name XY
Blatt 5, Inhalt C 3: Name XY
usw…
Hallo Max,
Hallo Reinhard, (danke für die schnelle Reaktion!!)
soll XY überall gelöscht werden oder einmalig erhalten
bleiben?
Soll überall gelöscht werden.
Willst du den Inhalt der Zelle löschen oder die ganze Zeile
der Zelle entfernen?
Zu löschen ist der Inhalt der Zelle. (Alle Zellen die eventuell gelöscht werden können wenn Sie das Selbe beinhalten stehen in Spalte C)
Stehen die Mappen alle in einem Ordner, wie heißt der Pfad?
Sind darin noch andere xls-Dateien mit denen nichts geschehen
soll?
Die Mappen stehen in 3 verschiedenen Ordnern.
Der Pfad ist C:\Raumbelegung\2010 (bis 2012)
Woran erkennt man die betreffenden dateinamen?
Die Dateinamen sind jeweils Januar 10.xls bis Dezember 10.xls
Gruß
Reinhard
Die Mappen stehen in 3 verschiedenen Ordnern.
Der Pfad ist C:\Raumbelegung\2010 (bis 2012)
Woran erkennt man die betreffenden dateinamen?
Die Dateinamen sind jeweils Januar 10.xls bis Dezember 10.xls
Hallo Max,
nimm eie neue leere Mappe, Alt+F11, im VB-Editor Einfügen—Modul, darein den Code kopieren, Curser beliebig innerhalb des Codes stellen und F5 drücken.
Teile dann mit ob im Blatt in Spalte A nur die Dateien gelistet sind die du willst.
Wieso hast du eigentlich von 600 dateien geschrieben, sind doch nur max 36?
Gruß
Reinhard
Hallo Reinhard,
danke schonmal für die Hilfe.
Jetzt muss ich mich nur noch mit dem VB Editor beschäftigen 
die 600 Dateien sind eher vorgestellt als vorhanden.
Hätte es als 600 Vorgänge angeben sollen, diese wiederholen sich nämlich auf mehrere „Namen“ die aus den Zellen genommen werden müssten.
Entschuldige wenn ich mich blöd stelle aber was ist bzw. woher bekomme ich den „Code“
?
*lach* ^ *schwerfluch*
Hallo Max,
die 600 Dateien sind eher vorgestellt als vorhanden.
Hätte es als 600 Vorgänge angeben sollen, diese wiederholen
sich nämlich auf mehrere „Namen“ die aus den Zellen genommen
werden müssten.
sagt mir jetzt nix, ich kümmer mich erstmal um die drei Ordner.
Entschuldige wenn ich mich blöd stelle aber was ist bzw. woher
bekomme ich den „Code“?
Die Blödheit liegt bei mir, siehe Betreff. Ich hab vergessen den in meinem Artikel anzufügen. Deshalb *lach*.
Muß ich ihn halt neu schreiben, deshalb *schwerfluch*
Gruß
Reinhard
Entschuldige wenn ich mich blöd stelle aber was ist bzw. woher
bekomme ich den „Code“?
Hallo Max,
hier ist er:
Option Explicit
'
Sub Loeschen()
Dim Ordner(), N As Byte, Datei As String, Zei As Long
Const Pfad As String = "C:\Raumbelegung\"
Ordner = Array("2010\", "2011\", "2012\")
For N = 0 To UBound(Ordner)
Datei = Dir(Pfad & Ordner(N) & "\*.xls")
Do While Datei ""
If Datei Like "\*10.xls" Then
Zei = Zei + 1
Cells(Zei, 1).Value = Pfad & Ordner(N) & Datei
Datei = Dir
End If
Loop
Next N
End Sub
Gruß
Reinhard
Guten Morgen,
also ich habe nun mal F5 im Code gedrückt und jetzt rödelt der schon seit 20 Minuten… Ist das normal ? 
Grüße
Max
also ich habe nun mal F5 im Code gedrückt und jetzt rödelt der
schon seit 20 Minuten… Ist das normal ?
Hallo Max,
nö, bei dem Code ist das mit den paar datichen nicht üblich.
Ich habe ihn jetzt mal getestet mit XL2000, er funktioniert.
Einiges habe ich geändert.
Neuer Code:
Sub Loeschen()
Dim Ordner(), N As Byte, Datei As String, Zei As Long, Merk As String
Const Pfad As String = "C:\Raumbelegung\"
'Const Pfad As String = "C:\test\"
Ordner = Array("2010", "2011", "2012")
Merk = CurDir
ChDrive "C"
For N = 0 To UBound(Ordner)
ChDir Pfad & Ordner(N)
Datei = Dir("\*.xls")
Do While Datei ""
'If Datei Like "\*.xls" Then
If Datei Like "\*10.xls" Then
Zei = Zei + 1
Cells(Zei, 1).Value = Pfad & Ordner(N) & Datei
Datei = Dir
End If
Loop
Next N
ChDir Merk
End Sub
Gruß
Reinhard
So, jetzt funktionierts, habe Datei = Dir unter End If gesetzt.
Nun werden mir in Spalte A alle Dateipfade angezeigt (2010-2012)und If Datei like *1[0-2].xls Then angepasst damit er mir alle richtigen Dateien anzeigt.
Jetzt habe ich die Spalte A und nun ?
LG
Max
Und nun…
… machen wir den Rest
Hallo Max,
das war erst mal Plan A, Ermittlung, Anzeige zur Kontrolle der richtigen Dateien.
Ist aus der Ferne nie so einfach, siehe *10.xls und *1[0-2].xls
und ähnliches.
Jetzt kommt Plan B (RestCode).
Ich muß jetzt eh mal weg. In der Zeit zeige mal hier GENAU den Code der bei dir funktioniert, damit ich auf ihm aufbauen kann.
„So, jetzt funktionierts, habe Datei = Dir unter End If gesetzt.“
K.A. Kann ich nur sagen, bei mir hat der Code funktioniert so wie ich ihn schrieb.
Gruß
Reinhard