Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1068to1072
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
1068to1072
1068to1072
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fortschrittbalken - Tino?

Fortschrittbalken - Tino?
28.04.2009 19:13:37
Claudia
Hallo Tino,
Du hast mir seinerzeit diesen tollen Fortschrittalken "gezaubert".
https://www.herber.de/forum/archiv/1036to1040/t1038502.htm#1038502
Meine naive Frage: Verlangsamt sich das eigentliche Makro durch diesen Fortschrittbalken oder ist das Makro genauso schnell?
Vielen Dank für die Antwort!
Viele Grüße
Claudia

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Noch ne Frage
28.04.2009 19:15:20
Claudia
Wie kann man das Makro stoppen? Normalerweise hilft ESC, aber hier passiert nix. Nur der harte Abbruch mit Excel beenden hat was gebracht.
Kannst Du da noch was einbauen?
AW: Noch ne Frage
28.04.2009 19:24:13
Ramses
Hallo
"...Verlangsamt sich das eigentliche Makro durch diesen Fortschrittbalken oder ist das Makro genauso schnell?..."
nachdem dein Feedback an Tino betreffend des Testergebnisses in dem Thread fehlt, hier die alles entscheidende Frage
Kannst du einen Unterschied messen zwischen dem Makro OHNE Fortschrittsbalken und MIT Fortschrittbalken ?
Zu deiner zweiten Frage:
Setz an die erste Zeile des Codes in der Sub
On Error goto myErrorHandler
Application.EnableCancelKey = XlErrorHandler
und ans Ende vor End 

Sub !!!
Exit Sub
myErrorHandler:
If Err = 18 Then
MsgBox "Entweder den Text löschen oder Info anzeigen lassen"
End If
End Sub


Gruss Rainer

Anzeige
AW: Noch ne Frage
28.04.2009 20:29:20
Tino
Hallo,
grundsätzlich wird ein Code immer mehr oder weniger langsamer Durch einen Fortschrittsbalken.
Klar sind ja zusätzliche Codezeilen die in einer Schleife immer wieder abgearbeitet werden müssen.
Etwas Stabiler und ohne so viel Geflacker geht’s wenn man anstatt DoEvents, besser UserForm1.Repaint verwendet.
Zu der anderen Frage hat Dir Rainer schon eine Lösung angeboten.
Gruß Tino
muss noch was nach setzen
29.04.2009 15:22:01
Tino
Hallo,
habe mir die Beispieldatei nochmal angesehen, in diesem Fall ist der Balken Nebensache und kaum von Bedeutung.
Dein Makro frisst die meiste Zeit durch verwenden von Select und das ständige zwischenspeichern.
Gruß Tino
Anzeige
Select
29.04.2009 20:51:59
Claudia
Hallo Tino,
gibt es denn eine andere Möglichkeit, sich den Fortschritt des Makros anschauen zu können?`Ohne Select bleibt das Bild ja stehen. Da in dem Makro aber so ca. 20.000 Datensätze bewegt werden, wäre es mir schon wichtig, einen Blick drauf werfen zu können. Das speichern habe ich schon geändert, es wird jetzt in größeren Abschnitten gespeichert.
Die Variante von Rainer klapp zwar beim Abbruch, wenn ich die Datei dann aber speicher, stürzt mir Excel komplett ab. Ich lasse das wohl am besten mit dem Balken.
Wäre aber schön, wenn Du mir noch was zum Select schreiben könntest.
Liebe Grüße
Claudia
PS: Den Vorwurf von Rainer, es würde noch eine Rückmeldung von mir fehlen, finde ich etwas unpassend. Ich hatte mich bedankt. Hätte der Balken unter realen Bedingungen nicht funktioniert, dann hätte ich ja noch einmal geschrieben. Weiß ja nicht wie Du das siehst.
Anzeige
Held!
30.04.2009 20:40:42
Claudia
Hallo Tino,
Du bist einfach genial. Das ist echt super.
Vielen vielen lieben Dank!
Wünsche Dir ein schönes Wochenende.
Liebe Grüße
Claudia

301 Forumthreads zu ähnlichen Themen

Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Einlesen von Textdateien mit "open for"
Textdateien

Hallo zusammen,
ich möchte aus einer 240MB grossen Textdatei die Zeilen raussuchen, die einen bestimmten String enthalten. Dazu habe ich mir unten aufgelistetes Makro geschrieben.
Ich weiss, dass jede Zeile in der Quelldatei mit einem Zeilenumbruch (im Word dieses P zeichen) beendet is...
12.08.2008 12:14:21
Thread-ID: 1001165
12 Beiträge
Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Tastenkombinaiton Format kopieren
erkoo

Wer kennt die Tastenkombination für Format kopieren und Format einfügen?
Danke erkoo
13.08.2008 16:28:20
Thread-ID: 1001592
3 Beiträge
Formatierung mit Makro läuft nur bei Eingabe
Ulrich

Hallo zusammen,
ich möchte Zellen einfärben, wenn in einer anderen Zelle der Wert "1" steht, und bei "0" wieder weiß - deswegen mit unten stehendem Makro im Tabellenblatt.
Das Problem ist, dass die Werte (0 und 1) per Formel erzeugt werden, und das Makro nur funktioniert, wenn ich tatsä...
14.08.2008 11:34:00
Thread-ID: 1001783
8 Beiträge

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
7
2
4
2
6
11
3
2
7
4
3
6
18
4
2
9
3
6
2
3
9
8
2
10