Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
188to192
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
188to192
188to192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fortschrittanzeige in Makro

Fortschrittanzeige in Makro
04.12.2002 14:28:17
MikeS
Hi Leute,

ich prüfe (mittels VBA) eine ca. 13000 Zeilen lange Tabelle und
kopiere verschieden Werte in zwei andere Register (Tabellen) der
gleichen Mappe.

Da dieser Vorgang etwas länger dauert, möchte ich eine Fortschrittanzeige während der Prozedurausführung anzeigen lassen.

Habe auf der Herber-CD auch Beispiele gefunden, weiß aber nicht,
wie ich diese Beispiele in meinen Code einfügen soll.

Vielen Dank

Ciao MikeS

P.S. Ihr könnt mir natürlich auch Beispielmappen zumailen.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Fortschrittanzeige in Makro
04.12.2002 16:02:52
Hajo_Zi
Hllo Mike

wir können Dir auch nur was vorschlagen, wenn Du Deinen Code nicht ins Forum stellts.

Du mußt bedenken nicht jeder hat Hans seine CD und ich Vermute mal da gibts es auch mehere Beispiele.

Meiner Meinung nach macht es sich gut, über eine Userform.

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige