Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro - Msgbox

Makro - Msgbox
19.10.2005 12:19:25
Andreas
Hallo zusammen!
"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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro - Msgbox
ransi
hallo andreas
mit einer msgbox wird das nix.
da brauchst du auch wieder application.inputbox...type8

Sub Mittelwertberechnen()
Dim bereich As Range
Dim dst As Range
Set dst = Nothing
On Error Resume Next
Set bereich = Application.InputBox("Bitte markieren Sie die Zellen für die der Mittelwert berechnet werden soll", Type:=8)
If bereich Is Nothing Then Exit Sub
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(bereich)
End Sub

ransi
Anzeige
AW: Makro - Msgbox
19.10.2005 12:50:49
Selma
Hi,
.. eh, hab vergessen zu sagen, dass oben in der Standard-Symbolleiste zwei neue Buttons sind
Dankeschön
19.10.2005 12:50:57
Andreas
Vielen Dank! Es klappt ohne Probleme.
Ich werd das wohl nie lernen...
Andreas

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige