Option Explicit
Sub Hausrat_loeschen()
Dim wsa As Worksheet
Dim wsp As Worksheet
Dim ReVorh As Boolean
Dim DateiVorhanden As Boolean
Dim LngZeile As Long
Dim StrPfad As String
Dim StrDatei As String
Dim StrLink As String
Dim objFSO As Object
Set wsa = ActiveWorkbook.Worksheets("Alles")
Set wsp = ActiveWorkbook.Worksheets("Auswertungen")
With Uf_Hausrat_loeschen
ReVorh = .ObReYes.Value
LngZeile = .TbZeile.Value
End With
With wsa
.Unprotect
.Columns("B:Z").Hidden = False
If .FilterMode Then .ShowAllData
.Rows(LngZeile).Delete
StrPfad = "D:\Users\andreas\Documents\Rechnungen\Allgemein\"
StrDatei = .Cells(LngZeile, 14).Value
StrLink = StrPfad & StrDatei & ".pdf"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(StrLink) = True Then
DateiVorhanden = True
Else
DateiVorhanden = False
End If
Set objFSO = Nothing
If DateiVorhanden = True Then
If .Cells(LngZeile, 13).Value = "j" And ReVorh = True Then
Kill StrLink
Else
End If
Else
End If
End With
wsp.PivotTables("PivotTable2").PivotCache.Refresh
If DateiVorhanden = True Then
If ReVorh = True Then
MsgBox "Hausrat und Rechnung erfolgreich gelöscht!", , "Mitteilung"
Else
MsgBox "Hausrat erfolgreich gelöscht!" & vbNewLine & vbNewLine & "Rechnung nicht gelöscht!", , "Mitteilung"
End If
Else
MsgBox "Hausrat erfolgreich gelöscht!" & vbNewLine & vbNewLine & "Keine Rechnung vorhanden!", , "Mitteilung"
End If
End Sub