Statusbar

• Statusbar von Matthias vom 14.04.2005 10:27:26
• AW: Statusbar - von Boris am 14.04.2005 10:33:49
  • AW: Statusbar - von matthias am 14.04.2005 10:40:12

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

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




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

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