Makro - Msgbox
19.10.2005 12:19:25
Andreas
"bst" hat mir heute freundlicherweise ein Makro zur
Berechnung des Mittelwertes und der Standardabweichung
geschrieben. Nochmals danke!
Ich möchte dieses Makro jetzt "benutzerfreundlich" gestalten
und bin schon wieder an meine Grenzen gestoßen.
Ich möchte das am Anfang ein Fenster erscheint mit der
Meldung "Bitte markieren Sie die Zellen...". Dann soll
der Anwender während das Fenster offen ist die
Zellen markieren und mit "OK" soll das Makro von "bst" fortfahren.
Auf dem Fenster sollte neben "OK" auch "Abbrechen" sein.
Unten angeführt ist das Makro von "bst" und mein
kläglicher Versuch oben beschriebenes Fenster zu erzeugen.
Sub Mittelwertberechnen()
MsgBox "Bitte markieren Sie die Zellen für die der Mittelwert berechnet werden soll" 'das ist von mir!
Dim src As Range, dst As Range
Set src = Selection
Set dst = Nothing
On Error Resume Next
Set dst = Application.InputBox("Bitte wählen Sie die Zelle in die der Mittelwert eingefügt werden soll und drücken Sie OK", Type:=8)
On Error GoTo 0
If dst Is Nothing Then Exit Sub
dst.Value = Application.WorksheetFunction.Average(src)
End Sub
Wenn mir jemand einen Tipp geben kann wäre ich froh.
Schöne Grüße und mit bestem Dank
Andreas
Anzeige