Makro Zeilen Löschen
06.11.2020 14:08:17
Tim
ich habe ein Makro, welches mir beim schließen der Userform, Einträge aus der Tabelle löschen soll.
Das Ganze funktioniert nur solange ich im entsprechenden Tabellenblatt bin, wobei ich das Tabellenblatt in dem die Prozedur ablaufen soll definiert habe.
Könnt ihr mir bitte sagen weshalb er die Einträge nur löscht wenn das entsprechende Tabellenblatt ausgewählt ist!?
Private Sub UserForm0815_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim heutigeFälle As Double
Dim CLregal As Workbook, WbZ As Worksheet
Set CLregal = ThisWorkbook
'Set WbZ = CLregal.Worksheets("heutige Fälle")
Set WbZ = ThisWorkbook.Worksheets("heutige Fälle")
If CloseMode = vbFormControlMenu Then
For heutigeFälle = WbZ.Cells(WbZ.Rows.Count, 1).End(xlUp).Row To 1 Step -1
If WbZ.Cells(heutigeFälle, 4).Value = "ja" Then
Rows(heutigeFälle).Delete
End If
Next heutigeFälle
End If
End Sub
Anzeige