Anzeige
Archiv - Navigation
420to424
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
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code schneller machen

Code schneller machen
02.05.2004 23:00:51
thomas
Hi Volks,
Möchte Code folgender Art schneller machen: kann mir jemand schnell zeigen, wie ich eine bessere Struktur reinbringen kann?
Besten Dank
thomas
Sheets("Erfolgssens.-Analyse BM").Visible = True
Sheets("Erfolgssens.-Analyse BSM").Visible = True
Sheets("Erfolgssens.-Analyse BW").Visible = True
Sheets("Erfolgssens.-Analyse BSW").Visible = True

Worksheets("Erfolgssens.-Analyse BM").Rows("8:226").Hidden = False
Worksheets("Erfolgssens.-Analyse BSM").Rows("8:286").Hidden = False
Worksheets("Erfolgssens.-Analyse BW").Rows("8:211").Hidden = False
Worksheets("Erfolgssens.-Analyse BSW").Rows("8:239").Hidden = False

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

Betreff
Datum
Anwender
Anzeige
AW: Code schneller machen
02.05.2004 23:06:32
Ramses
Hallo
ich würde mir eine andere Anrede wünschen,... oder wenn schon dann richtig geschrieben :-)
Dim wks As Worksheet
For Each wks in ThisWorkbook.Worksheets
if left(wks.name,21) = "Erfolgssens.-Analyse" Then
wks.Visible = True
wks.Rows("8:226").Hidden = False
End if
Next
Gruss Rainer
wohl nicht schneller möglich; Merci trotzdem!
02.05.2004 23:33:20
thomas
Hallo Ramses und Matthias,
ist wohl nicht schneller möglich, weil ich nicht überall bis 226 öffnen will.
Das flackern hab ich bereits im Griff,
besten Dank, Gruss
thomas
AW: wohl nicht schneller möglich; Merci trotzdem!
03.05.2004 05:42:08
andre
Hallo Thomas,
wenn Du die Blätter nur auf visible stellst um die Zeilen auf hidden zu setzen - das ist nich nötig.
Die Bläter kannst Du im Prinzip auch so auf visible stellen:
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Visible = True

Grüße, André ( andre)



Anzeige
AW: Code schneller machen
02.05.2004 23:06:47
Matthias G
Hallo Thomas,
wüsste nicht, wie das schneller ginge.
Du kannst das Flackern noch mit
Application.ScreenUpdating = False
verhindern.
Am Ende des Codes wieder mit
Application.ScreenUpdating = True
einschalten.
Gruß Matthias

16 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige