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

Ansicht des Beitrags:
Von:
Gast4828		 Datum:
29.04.2014 14:39:43		 Views:
692		 Rating:
     
Antwort:
  Ja
Thema:
Markoladezeit unterschiedlich lange....

Probiers mal so:

Option Explicit

Sub test()
  
  Dim wksListe    As Excel.Worksheet
  Dim wksAusw     As Excel.Worksheet
  Dim blnSchalter   As Boolean
  Dim blnNullfolge  As Boolean
  Dim blnEnde       As Boolean
  Dim lngZeileV   As Long
  Dim lngZeile    As Long
  
  Application.ScreenUpdating = False
  
  With ThisWorkbook
    Set wksListe = .Worksheets("Liste")
    Set wksAusw = .Worksheets("Auswahleinstellungen")
  End With
  
  lngZeile = 1
  lngZeileV = 1
  
  Do Until blnEnde
    
    blnEnde = Not (lngZeile <= 14)
    
    If blnEnde Then
      blnSchalter = True
    ElseIf wksAusw.Cells(lngZeile, "A").Value = 0 Then
      blnSchalter = Not blnNullfolge
    Else
      blnSchalter = blnNullfolge
    End If
    
    If blnSchalter Then
      blnSchalter = False
      wksListe.Columns(lngZeileV).Resize(ColumnSize:=(lngZeile - lngZeileV)).Hidden = blnNullfolge
      blnNullfolge = Not blnNullfolge
      lngZeileV = lngZeile
    End If
    
    lngZeile = lngZeile + 1
  Loop
  
  wksListe.Activate
  
  Application.ScreenUpdating = True
  
End Sub

 

Das Makro reagiert nur auf Sprünge (0 auf 1 bzw. 1 auf 0) und blendet dann aufeinander folgende Spalten ein bzw. aus. Das ist aus Sicht der Performance besser als jede Spalte einzeln ein-/auszublenden.

 

Gruß

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
29.04.2014 11:05:16 Flo
NotSolved
Blau Markoladezeit unterschiedlich lange....
 29.04.2014 14:39:43 Gast4828
NotSolved
30.04.2014 12:00:04 Gast90365
NotSolved