Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
120to124
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
120to124
120to124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anzeige, wie lange eine Prozedur noch dauert?

Anzeige, wie lange eine Prozedur noch dauert?
12.05.2002 10:17:52
Thorsten K.
Guten Morgen!!

Ihr kennt doch sicher alle diese LOADING-Balken im Netz oder wo auch immer, die anzeigen, wie weit das Laden einer Sache schon fortgeschritten ist. Manchmal wir das ganze ja auch in % angezeigt.
Ich lasse mir per Makro einige tausend Formeln von Excel erstellen und das ganze dauert ca. 70 Sekunden.
Nun würde ich gerne eine Userform (oder was auch immer) darstellen, wo ich sehen kann, wie weit die Formeln schon erstellt sind. Also auch eine Art LOADING-Balken...

Geht so etwas ?

Danke !!!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Anzeige, wie lange eine Prozedur noch dauert?
12.05.2002 10:25:40
Hajo
Hallo Thorsten

schaue mal hier
370. API-Fortschrittsbalken
Hier der direkte Link zu Michael Schwimmer, resp. dem API-Fortschrittsbalken:
http://schwimmer.bei.t-online.de/sonderfunktionen.htm#Fortschrittsanzeige
Von Thomas Ramel

oder für eine Schleife

369. Fortschrittanzeige
Erstelle eine UserForm MIt einem Label gebe ihm den Namen LBL_Blau, Caption=""; Backcolor Schaltflächentext blau, die Höhe so hoch wie der Laufbalkensein sein die Breite ist Egal.
Ordne ein CommandButton auf der Userform an Gestaltung nach Deinen Wünschen folgenden Code in der Userform
Option Explicit
Private Sub CommandButton1_Click()
Dim rng As Range
Dim Faktor As Single
Dim Letzte As Long
ActiveSheet.Unprotect Password:="sokrates"
' Anzahl der Zellen erMIitteln
Letzte = ActiveSheet.Cells.SpecialCells(xlLastCell).Row * ActiveSheet.Cells.SpecialCells(xlLastCell).Column
' Maximale größe des Label auf der Useform 280
Faktor = 280 / Letzte: LBL_Blau.Width = 0
' UsedRange = benuzter bereich
For Each rng In ActiveSheet.UsedRange
LBL_Blau.Width = LBL_Blau.Width + Faktor: DoEvents
If rng.Locked = False Then rng.Value = ""
Next rng
ActiveSheet.Unprotect Password:="sokrates"
Range("B6").Value = ""
ActiveSheet.Protect Password:="sokrates", DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("B17").Activate
UserForm1.Hide
End Sub
Private Sub UserForm_Initialize()
LBL_Blau.Width = 0
End Sub

und folgenden Code in ein Modul
Sub ClearUnlockedCells()
UserForm1.Show
End Sub


Gruß Hajo

Anzeige
Re: Anzeige, wie lange eine Prozedur noch dauert?
12.05.2002 10:27:07
WernerB.
Hallo Thorsten,

klicke doch in der Kopfleiste des Forums mal auf "Recherche", dort auf "Zur Suche in den Themenlisten" und gib dort als Suchbegriff "Fortschritt" (ohne Anführungszeichen) ein.
Eine ganze Fülle von Beiträgen zu diesem Thema tut sich Dir dann auf; sicher ist auch etwas für Dich passendes dabei!

Viel Erfolg bei der Recherche wünscht
WernerB.

Vielen Dank Euch allen !!!!
12.05.2002 10:42:04
Thorsten K.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige