MsgBox
13.01.2006 20:22:08
Victor
ich hatte schon einen Beitrag ins Forum gestellt der ist aber mitlerweile im Archiv gelandet und ich weiß nicht wenn ich jetzt noch eine Frage stelle ob ich noch darauf Antwort bekomme. Deshalb stelle ich eine neue Frage.
Ich habe einen bestimmten Bereich den ich mit einem Button löschen kann das klappt aber nicht weil ein anderer Code aktiviert ist. Es klappt nur wenn ich den anderen Code lösche. Wenn nicht dann erscheint die Fragestellung und wenn ich auf Ja klicke wird der Bereich gelöscht und die Fragestellung kommt andauernd nur wenn ich auf Nein klicke geht dei Fragestellung weg. Könnt ihr mir helfen ?
Hier noch die beiden Code`s
Gruß Victor
1.
Private Sub CommandButton1_Click()
If MsgBox("Wollen sie die Eingaben wirklich löschen?", vbYesNo) = vbYes Then
Range("C4:AG28").Select
Selection.ClearContents
Range("A3").Select
End If
End Sub
2.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
On Error GoTo ErrExit
If Not Intersect(Target, Range("C4:AG28")) Is Nothing Then
Application.EnableEvents = False
If Target.Count = 1 Then
If Target.Value = 100 And Cells(Target.Row, 38).Value = "" Then
MsgBox "Keine Urlaubseingabe !!! Kein Eintrag möglich"
Target.Value = ""
GoTo ErrExit
End If
End If
For Each rng In Selection
If rng = "" Then
If MsgBox("Wollen Sie wirklich löschen?", 292, "Frage") = 7 Then
Application.Undo
Exit For
End If
End If
Next
End If
ErrExit:
Application.EnableEvents = True
End Sub