Thema Datum  Von Nutzer Rating
Antwort
25.06.2020 12:01:11 Max
NotSolved
Blau VBA: Code soll Zellen Löschen und eine Range überschreiben
 25.06.2020 12:27:18 Mase
NotSolved
25.06.2020 19:42:23 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
25.06.2020 12:27:18		 Views:
813		 Rating:
     
Antwort:
  Ja
Thema:
VBA: Code soll Zellen Löschen und eine Range überschreiben

Hi Max,

 

könnte an der Referenzierung liegen.

Versuch mal folgendes:

Option Explicit

Sub Zeilen_Löschen()
 
Dim wkb As Excel.Workbook
Dim cDir As String
Dim sPath As String
Dim i As Long
   
sPath = "hier steht der Pfad wo Die Dateien abliegen"
cDir = Dir(sPath & "*.xls")
 
Application.ScreenUpdating = False 'Das "Flackern" ausstellen
Application.DisplayAlerts = False 'Keine Fehlermeldungen anzeigen
   
Do While cDir <> ""
 
    Set wkb = Application.Workbooks.Open(sPath & cDir)
    With wkb
        .Worksheets("Dropdowns").Visible = True
        .Worksheets("Dropdowns").Rows(5).Delete
        .Worksheets("Dropdowns").Rows(5).Delete
        .Worksheets("Dropdowns").Visible = False
        
    'Hier wird die Legende überschrieben
    For i = 2 To .Worksheets.Count - 1
        .Worksheets(i).Range("U4:AC4").Cut Destination:=.Worksheets(i).Range("Q4")
        .Worksheets(i).Range("Z4:AC4").Clear
    Next
 
    'ActiveWorkbook.SaveAs sPath & cDir
        .Close False
    End With
       
    'nächste Datei lesen
    cDir = Dir
    
Loop
 
'Kleine finale Fertig-Meldung
MsgBox "Zeilen gelöscht!"
 
Application.ScreenUpdating = True 'Das Bildschirm-Aktualisieren wieder einschalten
Application.DisplayAlerts = True 'Fehlermeldungen wieder anzeigen
    
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
25.06.2020 12:01:11 Max
NotSolved
Blau VBA: Code soll Zellen Löschen und eine Range überschreiben
 25.06.2020 12:27:18 Mase
NotSolved
25.06.2020 19:42:23 ralf_b
NotSolved