Eingabefehler
Anton
also erstmal mein quellcode
Sub Löschen()
Dim Antwort As String
Antwort = InputBox("Soll der Wartungsplan für das nächste Jahr aktualisiert werden? Es werden _
alles ausgeführten Daten gelöscht!Geben Sie Ja oder Nein ein")
If Antwort = "Nein" Then
Exit Sub
End If
If Antwort = "Ja" Then
Range("BR13:CE130").Copy
Range("J13:W130").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
ThisWorkbook.Worksheets("Mechanisch").Range("B2,L13:L130,Q13:Q130,V13:V130,AA13:AA130,AF13: _
AF130,AK13:AK130,AP13:AP130,AU13:AU130,AZ13:AZ130,BE13:BE130,BJ13:BJ130,BO13:BO130") = ""
End If
End Sub
Was mir jetzt fehlt ist ein Befehl, dass wenn die Eingabe nicht korrekt war, also nicht "Ja" oder "Nein" eingeben wurde, dass dann ne Meldung kommt, das man es nochmal eingeben soll..
oder kann man mit VBA 2 Buttons programmieren, dass man nur noch auf ja,nein und abbrechen drücken kann?
weil sonst gibt man z.b. ja (also kleingeschrieben) und es passiert nichts..
Anzeige