|
Hallo,
ich möchte folgende Funktion:
öffnen einer bestimmten Datei ( funktioniert)
dann sollen alle Tabellenblätter durchgesehen werden ob im Feld A6 "Test" steht. Falls ja, wird das Wort Test herausgelöscht. Nachdem alle Tabellenblätter bearbeitet wurden in dieser Art, wird die Tabelle gespeichert. Das Herauslöschen funktioniert noch nicht.
Wo ist mein Fehler:
Sub Stundenauswertung_nur_loeschen()
'
' Stundenauswertung
'
'Variable fuer das neue Workbook
Dim Wb As Workbook
Dim WS As Worksheet
'Variable für den Dateinamen der Ausgangsdatei inkl. Pfad
Dim strOpenFile As Variant
'Quelldatei auswaehlen
strOpenFile = Application.GetOpenFilename(, , "Waehlen die aktuelle Stundenauswertungs-Exceldatei aus:")
'Falls kein Datei ausgewaehlt wurde
If strOpenFile = False Then Exit Sub
'Oeffnet die neue Datei und weist sie der Variablen wb zu.
Set Wb = Workbooks.Open(strOpenFile, UpdateLinks:=0, ReadOnly:=False)
'Variable WS zuweisen
Set WS = Wb.ActiveSheet
'schleife felder leeren starten
For Each WS In Wb.Worksheets
'löschen bestimmter Felder
If "A6" = "Test" Then
Range("A6").Select
Selection.ClearContents
End If
Next WS
'Quelldatei schließen MIT speichern
ActiveWorkbook.Close (True)
'Zurück zum Macrodatei
Windows("Stundenauswertung Makro Martina.xlsm").Activate
End Sub
|