Hallo zusammen,
Ich frage in einem Tabellenblatt "Auswahleinstellungen" 300 Zeilen auf 0 oder 1 ab.
Wenn eine 1 in der Zeile steht soll die Spalte mit der gleichen Nummer (Buchstabe) im Blatt "Liste" eingeblendet werden usw.
Wenn er alle Zeilen durch hat soll zum Schluss das Tabellenblatt Liste aufgerufen werden.
Das Prinzip funktioniert auch nur dauert der Vorgang unterschiedlich lange:
Wenn in allen Zeilen eine 1 steht blendet er "Liste" sofort ein
Wenn in allene eine 0 steht kommt die Liste erst nach ca. 15 Sekunden.
Mit einer anderen Liste ging es vorher immer sofort, deswegen wundere ich mich ein wenig. Habt ihr eine Idee was ich vielleicht machen kann bzw. wo ich suchen sollte? Oder ist der Code vielleicht dämlich? :D
MfG Flo
...
Sheets("Liste").Columns.Hidden = False
iZeileZähler = 1
iSpalteAusblenden =1 '
Do
iZelle = Sheets("Auswahleinstellungen").Cells(iZeileZähler, 1)
If iZelle = 0 Or False Then
Sheets("Liste").Columns(iSpalteAusblenden).EntireColumn.Hidden = True
End If
iSpalteAusblenden = iSpalteAusblenden + 1
iZeileZähler = iZeileZähler + 1
Loop While iZeileZähler <= 300
Sheets("Liste").Activate
End Sub
|