Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
260to264
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

statusbar innerhalb einer Funktion ändern

statusbar innerhalb einer Funktion ändern
02.06.2003 11:11:53
martin
Hallo zusammen,
ich würde gerne nach dem Aufruf einer selbsterstellten Funktion in Excel, einen Text im statusbar anzeigen. Leider lässt das Excel nicht zu, da es während der Funktion den statusbar anscheinend nicht freigibt!
Gibt es eine Möglichkeit dies zu umgehen?


Vielen Dank schon mal für Eure Antworten
MfG Martin

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

Betreff
Datum
Anwender
Anzeige
Re: statusbar innerhalb einer Funktion ändern
02.06.2003 12:04:36
Umbratus

Hallo Martin,

poste mal den Code. Ich hatte noch keine Probleme damit.
In meinen Funktionen funktioniert das immer.

Application.StatusBar = "Bitte warten..."

und am Ende

Application.StatusBar = False

Um die Kontrolle wieder an Excel zu übergeben.


Gruß Umbratus

Re: statusbar innerhalb einer Funktion ändern
03.06.2003 14:00:45
martin

Hallo Umbratus,

ich habs jetzt nochmal auf Ecxel 2002 probiert (zu Hause hab ich nur 97) aber des Ergebnis ist das selbe! Hier ein Auszug aus dem Code:

Option Explicit
Option Base 1
Function zirkver(Alpha As Variant, f As Variant, b As Variant) As Variant

Dim i As Integer, a As Integer, m As Long, n As Integer
Dim gamma() As Double, gamma_alt() As Double, hvar() As Double, bb() As Double

If UBound(Alpha.Value, 2) <> UBound(f.Value, 2) Or _
UBound(b.Value, 1) <> UBound(b.Value, 2) Or _
UBound(b.Value, 1) <> UBound(Alpha.Value, 2) Or _
UBound(b.Value, 1) <> UBound(f.Value, 2) _
Then
Exit Function
End If

m = UBound(Alpha.Value, 2)

ReDim bb(m)
ReDim gamma(m, 1)
ReDim gamma_alt(m, 1)

Do

'hier werden jetzt eine ganze Menge an Berechnungen mit den übergebenen Variablen durchgeführt

n = n + 1
Application.StatusBar = "Schleife wurde " &n& " durchlaufen!"

Loop

zirkver = gamma
Application.StatusBar = ""
Application.StatusBar = False
End Function

MfG martin

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige