Microsoft Excel

Herbers Excel/VBA-Archiv

Statuszeilen Anzeige

Betrifft: Statuszeilen Anzeige
von: Monsi
Geschrieben am: 16.04.2003 - 13:48:51

Hallo,
wenn ich mir verschiedene Zellen markiere ( Nur Zahleninhalte ),
so liefert mir Excel in der Statuszeile Std.mäßig die Summe dieser
Zellen. Über einen Rechtsklick kann ich die versch. Funktionen
der Darstellungsart ändern. ( Min, Max, Summe,... ).
Ist mein Summenergebnis aber mehr als 9-Stellig, so schneidet
Excel diesen Wert ab und zeigt mir nur die ersten 9 Stellen.
Habe ich die Möglichkeit, dieses Feld zu vergrössern?
danke
cu

Monsi

-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GCS d- s: a-- C++ UL P+ L+ E---- W++(+++) N(+) o+ K+ w+++
O- M- V- PS+() PE++ Y PGP t-- 5-- X- R+>++ tv+ b- DI D+
G e h-- r++ y+
------END GEEK CODE BLOCK------

  

Re: Statuszeilen Anzeige
von: Yal
Geschrieben am: 16.04.2003 - 14:33:56

Das kannst Du zwar nicht. Aber deine eigene Statusanzeige kannst Du erstellen:


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim strSum As String, strStatus As String
Dim i As Integer
    On Error GoTo undefined
    strSum = Application.WorksheetFunction.Sum(Selection)
    For i = Len(strSum) To 1 Step -1
        strStatus = Mid(strSum, i, 1) & strStatus
        If i Mod 3 = 0 Then strStatus = "." & strStatus
    Next i
    Application.StatusBar = "Summe= " & strStatus
    Exit Sub
undefined:
    Application.StatusBar = "Undefined!"
End Sub

Note: funktioniert nicht 100%, da die Zahl mit Komma nicht behandelt sind

Yal

  

Re: Statuszeilen Anzeige
von: Monsi
Geschrieben am: 16.04.2003 - 14:46:56

;-)
Halt mich bidde ned für blöd.. aber wie kann ich dein Makro anwenden?

  

Re: Statuszeilen Anzeige
von: Monsi
Geschrieben am: 16.04.2003 - 14:50:05

Okay!
Alles zurück! Hat geklappt! Danke!
cu

  

Re: Statuszeilen Anzeige
von: Yal
Geschrieben am: 16.04.2003 - 16:55:58

... in dem Du diese Makro als Ereignis vom Blatt abspeichert.

_ VisualBasic Editor öffnen
_ im Projekt-Explorer das entsprechende Blatt (z.B. Tabelle1) doppelklicken. Es öffnet sich eine Coding-Fenster
_ dadrin den Code einfügen
_ im Excel zurückkehren
_ einige Zahlen einfügen
_ diese Zahlen markieren und schauen was im Statuszeile passiert

viel Spass beim gut werden
Yal

 

Beiträge aus den Excel-Beispielen zum Thema "Statuszeilen Anzeige"