Thema Datum  Von Nutzer Rating
Antwort
Rot Markoladezeit unterschiedlich lange....
 29.04.2014 11:05:16 Flo
NotSolved
29.04.2014 14:39:43 Gast4828
NotSolved
30.04.2014 12:00:04 Gast90365
NotSolved

Ansicht des Beitrags:
Von:
Flo		 Datum:
29.04.2014 11:05:16		 Views:
1210		 Rating:
     
Antwort:
  Ja
Thema:
Markoladezeit unterschiedlich lange....

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                  

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Markoladezeit unterschiedlich lange....
 29.04.2014 11:05:16 Flo
NotSolved
29.04.2014 14:39:43 Gast4828
NotSolved
30.04.2014 12:00:04 Gast90365
NotSolved