Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Lob an Mac4 und ans Forum aber noch ne Frage

Forumthread: Lob an Mac4 und ans Forum aber noch ne Frage

Lob an Mac4 und ans Forum aber noch ne Frage
05.12.2003 11:15:22
Michael Engelhardt
Hallo Forum,

Mac4 gab mir diesen Code, der auch wunderbar funktioniert:


Private Sub Worksheet_Activate()
Dim Zelle
For Each Zelle In Range("A13:A550")
If IsError(Zelle.Value) Then
Zelle.EntireRow.Hidden = True
Else
Zelle.EntireRow.Hidden = False
End If
Next
End Sub


Die Ausführung dauert 2min 14s. Kann man die Zeit noch irgendwie verkürzen, oder muss ich das wegen der relativ großen Range hinnehmen?

Gruß
Michael
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Lob an Mac4 und ans Forum aber noch ne Frage
05.12.2003 11:24:42
Mac4
Hi,

nimm die ScreenUpdating - Zeilen dazu:


Private Sub Worksheet_Activate()
Dim Zelle
Application.Screenupdating = False
For Each Zelle In Range("A13:A550")
If IsError(Zelle.Value) Then
Zelle.EntireRow.Hidden = True
Else
Zelle.EntireRow.Hidden = False
End If
Next
Application.Screenupdating = True
End Sub


Marc
Anzeige
Spitzenklasse !!!!
05.12.2003 11:45:51
Michael Engelhardt
Hallo Marc,

vielen vielen Dank!!!! Du hast mir das Arbeitsleben um ein vielfacher leichter gemacht.

Danke
Michael
Turboversion ohne Schleife
05.12.2003 15:07:37
Martin Beck
Hallo,

das Ganze geht ohne Schleife noch wesentlich schneller(ich unterstelle, daß Du Zeilen ausblenden willst, die eine Fehlermeldung als Ergebnis einer Formelberechnung enthalten):


Sub ausblenden()
Cells.EntireRow.Hidden = False
Cells.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = True
End Sub


Gruß
Martin Beck
Anzeige
;

Forumthreads zu verwandten Themen

mtrans und variabler Zellbezug
Peter

Hallöchen an alle Excler,
dachte bisher, dass ich mich recht gut auskenne in Excel, aber wie immer wird man des öfteren eines besseren belehrt.
Folgende Formel habe ich:
{=SUMMENPRODUKT((T(INDIREKT(""&MTRANS(Aktionen!$A$2:$A$5)&"!A"&ZEILE($1:$100)))=A4) *(N(INDIREKT(""&a...
20.09.2008 13:28:45
Thread-ID: 1011196
3 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Dropdown-Auswahlliste: Ausgabe anderer Text
Daniel

Hallo
Ich habe eine Dropdown-Auswahlliste erstellt, die auch funktioniert. Nun möchte ich aber, dass aus Platzgründen ein anderer (kürzerer) Text ausgegeben wird als in der Auswahlliste angezeigt wird.
Beispiel: Anzeige = Telefon ----- Ausgabe im Feld = Tel.
Ist das überhaupt mac...
04.12.2008 08:58:00
Thread-ID: 1030032
2 Beiträge
Text_Zahlenwert suchen und Zahlen "ablegen"
Lemmi

Hallo zusammen,
ich möchte aus einer drei spaltigen Tabelle Zahlen auslesen, die dann Monatsweise abgelegt werden sollen!
Es soll immer nach einem " Schlüsselwort" (...kann auch eine x beliebige Zahlfolge in der Benennungsliste sein) die Auslesung der Zahlenwerte durchgeführt werden.
03.01.2009 22:11:00
Thread-ID: 1036655
4 Beiträge
Anzeige
differenz von konstanter und variabler zelle
konstanter

hallo zusammen,
brauche dringend hilfe von profis.
ich habe eine tabelle, in der ich wöchentliche zahlen von einer konstanten abziehen muß. das sieht ungefähr so aus, dass in zelle a3 eine konstante zahl habe und eine matrix mit wochen (c5;e5;g5;i5;k5 usw) für ca ein halbes jahr habe....
22.01.2009 21:45:16
Thread-ID: 1042742
5 Beiträge
Webabfrage und laufzeitfehler 1004
MBorn

Liebe Excel-Freunde,
ich bitte um Eure Hilfe. Ich bekomme bei einer (einfachen) Webabfrage dauernd, aber in
unregelmäßigen Abständen, die Fehlermeldung "laufzeitfehler 1004 - auf die Datei konnte
nicht zugegriffen werden".
Doch die Datei ist vorhanden und wird auch gefunden, w...
26.01.2009 17:26:00
Thread-ID: 1043962
3 Beiträge
6 Textboxen untereinander abstimmen
Andreas

Hi
Habe in einer Userform 6 Textbox für das ausfüllen (Anteilsinhaber) und 6 Textboxen für die
jeweiligen Anteile in %.
Diese Werte schreibe ich in eine Tabelle.
Da die Anteile zusammengerechnet nie über 100 % kommen dürfen, habe ich mit der Gültigkeit versucht, daß die einzel...
28.01.2009 21:00:27
Thread-ID: 1044723
16 Beiträge
Controltiptext für Label auf 2 Zeilen
Leon

Hi Leute
Habe gestern von Hajo und Tino gelernt wie man für ein Label ein Controltiptext erstellt.
Meine Frage:
Der Text ist ein wenig zu lang geraten und ich möchte es auf zwei Zeilen schreiben lassen.
Wie geht das?
Gruß
Leon
01.02.2009 19:19:00
Thread-ID: 1045969
14 Beiträge
Anzeige
Wert eines Labels (Userform) an Textbox
Robert

Hallo,
komme leider wiedermal nicht weiter und hoffe auf eure Hilfe.
Ich müsste den Wert eines Labels (in einer Userform) an eine TextBox (Steuerelement in Tabelle)
weitergeben.
Geht das überhaupt?
Vielen Dank schon mal..
Viele Grüße
Robert
13.02.2009 15:20:00
Thread-ID: 1050543
5 Beiträge
AND und OR Abfragen
Rolf

Hallo Leute,
Das Archiv gibt zwarschon viel her, aber trotzdem ist es irgendwie noch nicht ganz das wahre... Archiv=False ;)
also, ich habe auf einem UserForm1 verscheidene Option buttons von 1 bis 9, In Gruppen unterteilt: 1-3 und 4-9.
Nun möchte ich in einer If-Abfrage folgendes s...
19.02.2009 14:56:00
Thread-ID: 1052159
8 Beiträge
Text in Zelle abfragen und formatieren
Bernd

Hallo Zusammen,
folgendes Problem: In einer Tabelle mit mehreren Spalten beinhaltet eine Spalte einen Text. Wie kann ich aus dieser Spalte eine bestimmte Zeichenfolge auslesen/erkennen und die betreffende Zelle dann farblich formatieren? Zum Beispiel beinhaltet eine Zelle den Text ABCDEF. W...
19.02.2009 15:19:00
Thread-ID: 1052173
5 Beiträge
Anzeige
Textvariable Textfeld und Rechteck
Klaus

Guten Abend Forum,
mit
bText = ActiveSheet.Buttons(Application.Caller).Caption
bekomme ich bei Klick auf den Button den Text des Buttons in eine Variable geschrieben.
Wie muss diese Zeile lauten für den Text
a) eines Textfeldes
b) eines Rechteckes (in dem z.B. mit =A1...
23.03.2009 18:40:00
Thread-ID: 1063011
4 Beiträge

Beliebteste Forumthreads (12 Monate)

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