Herbers Excel-Forum - das Archiv
Statusbar
- Statusbar von Matthias vom 14.04.2005 10:27:26
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