Code Snippets

Test 5

Posted by tom on 15. Dezember 2024 at 13:44



 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

tom replied 1 month aktiv. 1 Member · 18 Replies

18 Replies

tom

Administrator

15. Dezember 2024 at 13:45



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

tom

Administrator
15. Dezember 2024 at 13:47

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

tom

Administrator

15. Dezember 2024 at 13:51



Sub Test()

MsgBox "Hallo, Welt!"

End Sub

tom

Administrator

15. Dezember 2024 at 13:52



Sub Test()

MsgBox "Hallo, Welt!"

End Sub

tom

Administrator

15. Dezember 2024 at 14:06



Sub Test ()

MsgBox "Hallo Welt!"

End Sub

tom

Administrator
15. Dezember 2024 at 14:08

Sub Test()

MsgBox “Hallo, Welt!”

End Sub

tom

Administrator

15. Dezember 2024 at 14:08



Sub Test ()

MsgBox "Hallo, Welt!"

End Sub

tom

Administrator

15. Dezember 2024 at 14:09



Sub Test()

MsgBox "Hallo, Welt!"

End Sub

tom

Administrator

15. Dezember 2024 at 14:11



Sub Test()

MsgBox "Hallo, Welt!"

End Sub

tom

Administrator

16. Dezember 2024 at 13:25



Sub Test()

MsgBox "Hallo, Welt!"

End Sub

tom

Administrator

16. Dezember 2024 at 13:27



Sub Test()

MsgBox "Hallo, Welt!"

End Sub

tom

Administrator

16. Dezember 2024 at 13:27



Sub Test()

MsgBox "Hallo, Welt!"

End Sub

tom

Administrator

16. Dezember 2024 at 13:40



Sub Test()

MsgBox "Hallo, Welt!"

End Sub

tom

Administrator
16. Dezember 2024 at 14:03

Test 123
tom

Administrator
16. Dezember 2024 at 14:04

Test 123

Page 1 of 2

1 2 →