Laufzeitfehler '13'
27.07.2020 20:22:55
Marko
ich bekommen bei "Reset" den Laufzeitfehler '13' angezeit und verstehe nicht warum. Hat jemand eine Idee ?
Das betrifft meiner Meinung nach die TextBox2.
-------------------------------------------------------------------------------
Private Sub TextBox2_Change()
TextBox2.Font.Size = 15
Sheets("Tabelle13").Range("D1") = CDbl(TextBox2.Value) '
End Sub
---------------------------------------------------------------------------------
Das Makro zum Löschen der Daten im Tabellenblatt:
Sub Cancel_2()
TextBox2.Text = ClearContents
Sheets("Tabelle13").Range("D1").ClearContents
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
Dim JaNein
JaNein = MsgBox("Wollen Sie die Daten wirklich löschen ?", vbYesNo + vbQuestion, "Zeilen weg")
If JaNein = vbNo Then
MsgBox "Die Daten werden nicht gelöscht."
Exit Sub
End If
MsgBox "Die Daten werden gelöscht."
Rows("14:87").Hidden = True
Worksheets("Hdl_Kond_Vergleich").Range("B7").ClearContents
Worksheets("Hdl_Kond_Vergleich").Range("AD14:AD87").ClearContents
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox5.Value = False
CheckBox3.Visible = False
CheckBox4.Visible = False
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub