Office: Ordner anwählen und alle Dateien nacheinander bearbeiten

Helfe beim Thema Ordner anwählen und alle Dateien nacheinander bearbeiten in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Moin Jungs, Ganz kurz und knapp: Ich habe einen Minicode, welcher einfach bestimmte Zellen kürzt... Code: Dim zelle As Range For Each zelle In... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Schmagulsen, 25. September 2013.

Seite 1 von 2

SCHMAGULSEN

Schmagulsen

Ordner anwählen und alle Dateien nacheinander bearbeiten

Moin Jungs,

Ganz kurz und knapp: Ich habe einen Minicode, welcher einfach bestimmte Zellen kürzt...

Code:

Dim zelle As Range

For Each zelle In Range([a16], [a200].End(xlUp))
If Left(zelle, 1) = "M" Then zelle = "" & Left(zelle, 10)
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nu das Problem: Ich würde gerne am Anfang einen Ordner aufrufen können, sodass das Programm ALLE dort befindlichen .xlsm (und andere Excelformate) Dateien aufruft, und diese nach diesen Schema bearbeitet!
Immer tabellenblatt Nr. 4 *Smilie

Vieln Dank schonmal Leute, ich bekomme es nämlich (noch) nicht hin *rolleyes.gif*

:)

Schmagulsen, 25. September 2013

#1
Beverly Erfahrener User

Hi,

versuche es mal so:

Code:

Sub Auslesen()
Dim strDateiname As String
Dim strVerzeichnis As String
Dim rngZelle As Range
strVerzeichnis = GetFolder & "\"
If strVerzeichnis "\" Then
Application.ScreenUpdating = False
strDateiname = Dir(strVerzeichnis & "*.xls")
Do While strDateiname ""
Workbooks.Open Filename:=strVerzeichnis & strDateiname
With ActiveWorkbook.Worksheets("Tabelle4")
For Each rngZelle In .Range([a16], [a200].End(xlUp))
If Left(rngZelle, 1) = "M" Then rngZelle = "" & Left(rngZelle, 10)
Next rngZelle
.Close True
End With
strDateiname = Dir
Loop
Application.ScreenUpdating = True
End If
End Sub

Function GetFolder() As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = "D:\Test\"
.ButtonName = "Öffnen"
.Title = "Ordnerauswahl"
.Show
If .SelectedItems.Count = 0 Then
GetFolder = ""
Else
GetFolder = .SelectedItems(1)
End If
End With
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly, 27. September 2013

#2
SCHMAGULSEN

Schmagulsen

Hallo Karin,
vielen Dank schonmal.... ich war die Woche im urlaub, deswegenh abe ich mir den Code jetzt erst angesehen *Smilie !

Leider bekomme ich Laufzeitfehler 1004 und ich weiß nicht wieso...

Die erste Datei wird geöffnet, aber dann kommt auch schon die Fehlermeldung

Irgendeine Idee?!?

Danke

Marvin

Schmagulsen, 6. Oktober 2013

#3
Beverly Erfahrener User

Ordner anwählen und alle Dateien nacheinander bearbeiten

Hi Marvin,

was sagt der Debugger genau und welche Zeile im Code wird als fehlerhaft markiert?

Beverly, 6. Oktober 2013

#4
SCHMAGULSEN

Schmagulsen

Ja, beim Fehler direkt kann ich nicht Debuggen, nur ok oder abbrechen drücken!

Aber wenn man das Programm mit Einzelschritten durchlaufen lässt, kommt der Fehler wenn ich von Zeile 16 in 17 gehe! also von der For-Schleife in die if...

Laufzeitfehler '1004':
Anwendungs- oder objektdefinierter Fhler

und danke für deine Zeit

Schmagulsen, 6. Oktober 2013

#5
SCHMAGULSEN

Schmagulsen

Hier einfach mal 3 testdateien ....*Smilie

Schmagulsen, 6. Oktober 2013

#6
EARLFRED

EarlFred

Hallo Name?,

Ohne Punkt bezieht sich die Bereichsangabe nicht auf den With-Block und somit auf das aktive Blatt, das nicht "Tabelle4" sein muss.

Code:

With ActiveWorkbook.Worksheets("Tabelle4")
For Each rngZelle In .Range(.[a16], .[a200].End(xlUp))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Schreibweise mit eckigen Klammern würde ich durch Range() oder Cells() ersetzen.
Code:

With ActiveWorkbook.Worksheets("Tabelle4")
For Each rngZelle In .Range(.Range("A16"), .Range("A200").End(xlUp))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anstelle Activeworkbook empfehle ich dringend die Verwendung einer Variablen vom Typ Workbook:

(Pseudocode zum Selbstzusammenbau)

Code:

dim wb as Workbook
'....
Set wb = Workbooks.Open (Filename:=strVerzeichnis & strDateiname)
'
With wb.Worksheets("Tabelle4")
'...
End with
'...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

EarlFred, 6. Oktober 2013

#7
SCHMAGULSEN

Schmagulsen

Ordner anwählen und alle Dateien nacheinander bearbeiten

Hallo EarlFred,

Das mit dem Punkten fiel mir auch fast gleichzeitig selber ein *wink.gif*, alles andere habe ich dann auch beherzigt, danke ....

Aber dann kommt ein anderer Fehler, .close Ture funktioniert nicht!
. . . Objekt unterstüzt Eigenschaft der Methode nicht . . .

Wenn ich es rausnehme funltioniert alles bestens (Danke Karin)

Aber wie kann ich die fertig bearbeitete Datei dann trozdem schließen???

Schmagulsen, 6. Oktober 2013

#8
SCHMAGULSEN

Schmagulsen

Gruß

Marvin

Schmagulsen, 6. Oktober 2013

#9
EARLFRED

EarlFred

Hallo Marvin,

das sollte sich von selbst erschließen: Ein WorkSHEET (um dieses geht es im With-Block) kann man nicht "closen", wohl aber ein WorkBook. Erneut der Hinweis auf die Verwendung der Objektvariablen wb - auf diese angewendet funktioniert Close sehr gut. Ob allerdings das Argument SaveChanges auf True oder Falsch gesetzt werden muss, musst Du selbst entscheiden.

Grüße
EarlFred

EarlFred, 6. Oktober 2013

#10
Beverly Erfahrener User

Hi Marvin,

sorry, das war mein Fehler - diese Zeile muss so heißen:

Code:

.Parent.Close True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

oder eben anstelle von True -> False, wenn die Mappe nicht gespeichert werden soll.

Beverly, 6. Oktober 2013

#11
SCHMAGULSEN

Schmagulsen

Super ....

bin schwer beeindruckt *Smilie

vielen Dank an euch beide

Schmagulsen, 6. Oktober 2013

#12
SCHMAGULSEN

Schmagulsen

Ordner anwählen und alle Dateien nacheinander bearbeiten

Entschuldigt bitte, aber eine Sache hätte ich noch...
Unterordner werden nicht automatisch aufgegriffen und auch nach .xls durchsucht/bearbeitet! Wie kann ich dies noch ändern ??

Nur direkte Datei im angewählten Ordner werden bearbeitet

Ich fange doch gerade erst mit VBA an *Smilie

Marvin

Schmagulsen, 6. Oktober 2013

#13
EARLFRED

EarlFred

Hallo Marvin,

neue Wünsche, neue Lösung.

Mehrere Varianten: FileSearch (bis einschl. 2003, also beinahe ausgestorben) bzw. die Ersatzklasse hierfür oder eine rekursiv aufgerufene Funktion, um nur 2 schnelle Wege zu benennen.
Beispiele, die Du Dir jetzt aber bitte selber suchst, gibt's zuhauf im Netz.

Grüße
EarlFred

EarlFred, 6. Oktober 2013

#14
Beverly Erfahrener User

Hi Marvin,

wäre schon sinnvoll ud hilfreich gewesen, wenn du das gleich zu Beginn erwähnt hättest... *frown.gif*

Versuche es mal so:

Code:

Sub Auslesen()
OrdnerAuswahl GetFolder
End Sub

Function GetFolder() As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = "D:\Test2\"
.ButtonName = "Öffnen"
.Title = "Ordnerauswahl"
.Show
If .SelectedItems.Count = 0 Then
GetFolder = ""
Else
GetFolder = .SelectedItems(1)
End If
End With
End Function

Sub OrdnerAuswahl(varSuchordner)
Dim fso As Object
Dim Ordner
Dim UnterOrdner
Dim strDateiname As String
Dim strVerzeichnis As String
Dim rngZelle As Range
Set fso = CreateObject("Scripting.FileSystemObject")
Set Ordner = fso.GetFolder(varSuchordner)
For Each UnterOrdner In Ordner.subfolders
' 1. Mappe des Unterordners auf die Variable schreiben
' Variable ist leer wenn im Unterordner keine Arbeitsmappe vorhanden
strDateiname = Dir(UnterOrdner & "\*.xls")
Application.ScreenUpdating = False
' Schleife über alle Arbeitsmappen der/des Unterordner/s
Do While strDateiname ""
Workbooks.Open Filename:=UnterOrdner & "\" & strDateiname
With ActiveWorkbook.Worksheets("Tabelle5")
For Each rngZelle In .Range(.[a16], .[a200].End(xlUp))
If Left(rngZelle, 1) = "M" Then rngZelle = "" & Left(rngZelle, 10)
Next rngZelle
.Parent.Close False
End With
strDateiname = Dir
Loop
Application.ScreenUpdating = True
OrdnerAuswahl UnterOrdner
Next
Set fso = Nothing
Set Ordner = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly, 6. Oktober 2013

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Ordner anwählen und alle Dateien nacheinander bearbeiten

Die Seite wird geladen...

Ordner anwählen und alle Dateien nacheinander bearbeiten - Similar Threads - Ordner anwählen Dateien
Outlook - Ordner gesendete Elemente wechseln
in Microsoft Outlook Hilfe
Outlook - Ordner gesendete Elemente wechseln: Hallo zusammen, ich hatte bislang einen Windows 10 Rechner mit Outlook (aus meinem Office 365 Paket). Hier war es so: Eine gesendete E-Mail wurde im IMAP Ordner "Sent" abgelegt. Nun habe ich...
Öffentlicher Ordner Kontakte aktualisieren
in Microsoft Outlook Hilfe
Öffentlicher Ordner Kontakte aktualisieren: Hallo liebes Forum, ich habe kürzlich administrative Aufgaben für eine Firma übernommen und die Aufgabe erhalten sämtliche Kontakte des öffentlichen Ordner (GAL) auf die neue Geschäfts Adresse...
Nach einer Datei suchen in mehreren Ordnern?
in Microsoft Excel Hilfe
Nach einer Datei suchen in mehreren Ordnern?: Hallo, Vielleicht kann mir hier ja wer helfen, das Macro bezieht sich auf ein Maintenance-File das diverse namen beinhaltet. Mit "aarPaths" will ich in mehreren verzeichnissen schauen ob die...
Ordner: Synchronisierungsprobleme
in Microsoft Outlook Hilfe
Ordner: Synchronisierungsprobleme: Hallo liebes Forum, ich habe bislang Mail und Kalender von Windows genutzt. Aufgrund der Umstellung auf Outlook und der damit verbundenen Anzeige von Werbung habe ich auf Thunderbird gewechselt....
Datei in mehreren Ordnern suchen und wenn gefunden öffnen?! Macro / VBA
in Microsoft Excel Hilfe
Datei in mehreren Ordnern suchen und wenn gefunden öffnen?! Macro / VBA: Hallo Leute, Hoffentlich könnt ihr mir hier helfen, ich krieg den Syntax einfach nicht hin (wahrscheinlich ist es auch totaler käse den ich programmiert habe). Also im Grunde soll eine Datei...
Outlook 2019: Schriftart der Ordner/Posteingang ändern
in Microsoft Outlook Hilfe
Outlook 2019: Schriftart der Ordner/Posteingang ändern: Folgendes Problem: Ich habe jetzt endlich Office 2019 installiert, hatte vorher 2010. Im Outlook 2010 war die Ansicht der linken Seite (Dor, wo Posteingang ist samt den ganzen Ordnern) größer als...
Spam Ordner lässt sich nicht leeren
in Microsoft Outlook Hilfe
Spam Ordner lässt sich nicht leeren: Hallo zusammen, ich habe einen account bei 1und1 und zwei Mailadressen eingerichtet. Beide Konten sind als imap in outlook eingerichtet. Bei einem der beiden Konten kann ich den Spamordner in...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden