anderes "Meldungsfenster"
20.10.2005 10:57:18
Andreas
gestern habt Ihr mir bei der Erstellung des folgenden Makros
geholfen, bzw. Ihr habts erstellt.
Sub Mittelwertberechnen()
Dim bereich As Range
Dim dst As Range
Dim Anzahl
Set dst = Nothing
On Error Resume Next
Set bereich = Application.InputBox("Bitte markieren Sie die Zellen für die der Mittelwert berechnet werden soll." & vbCrLf & "Achten Sie auf die Anzahl der gewählten Zellen!" & vbCrLf & vbCrLf & "Drücken Sie danach OK.", Type:=8)
If bereich Is Nothing Then Exit Sub
Anzahl = bereich.Count
Set dst = Application.InputBox("Sie haben " & Anzahl & " Zellen ausgewählt!" & vbCrLf & "Bitte wählen Sie die Zelle in die der Mittelwert eingefügt werden soll." & vbCrLf & vbCrLf & "Drücken Sie danach OK.", Type:=8)
On Error GoTo 0
If dst Is Nothing Then Exit Sub
dst.Value = Application.WorksheetFunction.Average(bereich)
End Sub
Meine Frage ist: Wenn man bei den Eingabefenstern ohne Zellen zu wählen auf "OK"
drückt kommt die Meldung:
Die eigegebene Formel enthält einen Fehler.
Klicken Sie auf 'Hilfe', um....
Ist es möglich das Makro so zu verändern, dass anstelle dieser Meldung eine "gewünschte" Meldung kommt.
z.B. "Aufwachen!" oder so was...
Schöne Grüße und Danke
Andreas
Anzeige