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"