Stapelverarbeitung
24.06.2013 22:30:21
Dani
Ich möchte mittels dem nachfolgenden Code eine Textbox auslesen.
Sub TextFeld()
Dim strInhalt
With ActiveSheet.Shapes("Textfeld 2")
strInhalt = Split(.OLEFormat.Object.Text, Chr(10))
End With
Range("H7").Resize(UBound(strInhalt) + 1, 1) = Application.Transpose(strInhalt)
Range("H10") = LTrim(Right(Range("H9"), Len(Range("H9")) - InStrRev(Range("H9"), " ")))
Range("H9") = RTrim(Application.Substitute(Range("H9"), Range("H10"), ""))
End Sub
Dies klappt perfekt. Nun habe ich jedoch über 200 Dateien die so bearbeitet werden sollen. Alle haben den selben Namen (Rechnung.xlsx) und liegen jeweils pro Datei in einem Ordner. Also auch ca. 200 Ordner in einem übergeordneten Ordner (Test)
Nun möchte ich gerne den obigen Code auf alle Dateien automatisch ausführen lassen. Gleichzeitig soll das Textfeld 2 gelöscht werden. Das ganze würde ja mit dem folgenden Code klappen
ActiveSheet.Shapes("Textfeld 2").Delete
Wie muss nun mein Code zusammengestellt werden, damit die beiden Codes auf alle Dateien wirken. Mir ist klar, dass ich den Code aus einer anderen Datei ausführen muss.
Danke schon mal für eure Hilfe
Gruess Dani