Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
596to600
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
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Statusbar

Statusbar
14.04.2005 10:27:26
Matthias
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Statusbar
14.04.2005 10:33:49
Boris
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
AW: Statusbar
14.04.2005 10:40:12
matthias
Super
das "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
fehlte mir
herzlichen dank
matthias
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige