Thema Datum  Von Nutzer Rating
Antwort
Rot wo ist mein Fehler im Macro
04.08.2022 10:13:28 Uschi
NotSolved
04.08.2022 10:55:49 Mase
*****
Solved
04.08.2022 13:16:51 Gast77505
NotSolved
04.08.2022 15:02:38 Gast99668
NotSolved

Ansicht des Beitrags:
Von:
Uschi
Datum:
04.08.2022 10:13:28
Views:
72
Rating: Antwort:
  Ja
Thema:
wo ist mein Fehler im Macro

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

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot wo ist mein Fehler im Macro
04.08.2022 10:13:28 Uschi
NotSolved
04.08.2022 10:55:49 Mase
*****
Solved
04.08.2022 13:16:51 Gast77505
NotSolved
04.08.2022 15:02:38 Gast99668
NotSolved