Statusbar

Bild

Betrifft: Statusbar von: Matthias
Geschrieben am: 14.04.2005 10:27:26

Hallo zusammen,

ich suche eine möglichkeit, mit der ich meine selektieren zellen
automatisch miteinander multipliziere, und das produkt mit


"application.statusbar ="

ausgebe.

Wer hilft mir auf die Sprünge

das ergebnis soll nicht weiter verwendet werden.

Vielen Dank

Matthias

Bild


Betrifft: AW: Statusbar von: Boris
Geschrieben am: 14.04.2005 10:33:49

Hi Matthias,

quick and dirty:

Option Explicit


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Range
Dim Summe As Double
Summe = 1
On Error Resume Next
For Each C In Target
    Summe = Summe * C
Next C
Application.StatusBar = Summe
End Sub


Grüße Boris


Bild


Betrifft: AW: Statusbar von: matthias
Geschrieben am: 14.04.2005 10:40:12

Super

das "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
fehlte mir

herzlichen dank

matthias


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Statusbar"