Selection.ClearContents Fehler
04.02.2020 17:38:16
Andreas
ich versuche gerade eine Tabelle mit Blutdruckwerte zu erstellen so weit klappt auch alles. jetzt benötige ich aber die Hilfe von Excel Profis! und zwar habe ich mit dem Macrorecorder über mehrere Tabellen die Daten markiert die ende des Monat oder Jahre Automatisch mit einem Button gelöscht werden können ohne Blattschutz funktioniert es ohne Probleme :-) mache ich aber den Blattschutz an so stoppt es mit folgendem Fehler: Laufzeit 1004 (Die unprotect-Methode des Workcheet-Pbjektes konnte nicht ausgeführt werden. ich würde mich freuen wenn jemand mal einen Blick über den Code wirft.
An bei der Code:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Alle_Meßwerte_Leeren Makro '
' Alle Blutdruckmeßwerte löschen '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Alle_Meßwerte_Leeren()
'
Sub Box()
Dim JaNein
JaNein = MsgBox("Wollen Sie alle Blutdruck Meßwerte wirklich löschen", vbYesNo + vbQuestion, _
_
_
_
"Blutdruck Meßwerte")
If JaNein = vbNo Then
MsgBox "nein: wurde gewählt >>> Abbruch durch Benutzer >> Meßwerte bleiben erhalten >> Meßwerte bleiben erhalten
Vielen Dank
Grüße Andi
PS: Excel Version Pro Plus 2019
Anzeige