• Code Snippets

  Dateien aus Liste löschen

  Posted by Excel Community on 6. September 2024 at 21:37

   

  [vba]

  Sub Dateien_Loeschen()

  Dim i As Integer

  Dim letzteZeile As Integer

  Dim strPfad As String

  Application.ScreenUpdating = False

  letzteZeile = ActiveSheet.Cells(1048576, 1).End(xlUp).Row

  For i = 2 To letzteZeile

  strPfad = ActiveSheet.Cells(i, 1).Value

  If Dir(strPfad) <> “” Then

  Kill (strPfad)

  ActiveSheet.Cells(i, 1).Font.Color = -11489280

  Else

  ActiveSheet.Cells(i, 1).AddCommentThreaded (“Datei wurde nicht gefunden.”)

  ActiveSheet.Cells(i, 1).Interior.Color = 49407

  End If

  Next i

  Application.ScreenUpdating = True

  End Sub

  [/vba]

   

  Excel Community replied 1 month, 3 weeks ago 1 Member · 0 Replies

  • VBA
• 0 Replies

Log In to Reply