Mitglieder - Excel Community

Forum Replies Created

Page 4 of 7

← 1 … 3 4 5 … 7 →

tom

Administrator
15. Dezember 2024 at 13:47 in reply to: Test 5

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:45 in reply to: Test 5

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
14. Dezember 2024 at 23:12 in reply to: Test 3
```
Sub Test()

MsgBox "Hallo, Welt!"

End Sub
```
tom

Administrator
14. Dezember 2024 at 23:09 in reply to: Test 3
```
Sub Test ()

MsgBox "Hallo, Welt!"

End Sub
```
tom

Administrator
14. Dezember 2024 at 23:05 in reply to: Test 3
```
Sub Test()

MsgBox "Hallo, Welt!"

End Sub
```
tom

Administrator
14. Dezember 2024 at 23:03 in reply to: Test 3
```
Sub Test()

MsgBox "Hallo, Welt!"

End Sub
```
tom

Administrator
14. Dezember 2024 at 23:01 in reply to: Test 3
```
Sub Test()

MsgBox "Hallo, Welt!"

End Sub
```
tom

Administrator
14. Dezember 2024 at 23:01 in reply to: Test 3
```
Sub Test()

MsgBox "Hallo, Welt!"

End Sub
```
tom

Administrator
14. Dezember 2024 at 22:57 in reply to: Test 3
```
Sub Test()

MsgBox "Hallo, Welt!"

End Sub
```
tom

Administrator
14. Dezember 2024 at 22:53 in reply to: Test 3
```
Sub Test()

MsgBox "Hallo, Welt!"

End Sub
```
tom

Administrator
14. Dezember 2024 at 22:52 in reply to: Test 3
```
Sub Test ()

MsgBox "Hallo, Welt!"

End Sub
```
tom

Administrator
14. Dezember 2024 at 22:47 in reply to: Test 3
```
Sub Test ()

MsgBox "Hallo, Welt!"

End Sub
```
tom

Administrator
14. Dezember 2024 at 22:45 in reply to: Test 3
```
Sub Test()

MsgBox "Hallo, Welt!"

End Sub
```
tom

Administrator
14. Dezember 2024 at 22:45 in reply to: Test 3
```
Sub Test ()

MsgBox "Hallo, Welt!"

End Sub
```
tom

Administrator
14. Dezember 2024 at 22:37 in reply to: Test 3
```
Sub Test ()

MsgBox "Hallo, Welt!"

End Sub
```

Page 4 of 7

← 1 … 3 4 5 … 7 →