none
Bei Excel Formatierung mehrere Blätter angezeigtes Blatt nicht wechseln RRS feed

 > 

  • Frage

  • Question
    Anmelden
    0
    Anmelden

    Hallo,

    ich muss in enem Excel Workbook mit mehreren Sheets auch "Knopfdruck" dieverse daten einfügen und formatieren.

    Leider führt das zu einem nervigen Geflimmere und dem Wechseln der Anzeige der jeweils bearbeiteten Sheets.

    Gibt es eine möglichkeit das zu verhindern?
    Ich bearbeite die Felder nachdem ich sie zuvor selektiert  habe.
    Vermutlich ist das der Grund.

    Geht das auch anders?

    Hier ein Codebeispiel:

    :
    :
        ThisWorkbook.Sheets(CurrWrkSheet).Activate
    ActiveSheet.Cells(Zeile, Spalte).Select
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark2
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    :
    :

    Gruß

    cheapy

    Donnerstag, 20. Juli 2017 14:27
    |

Antworten

  • Question
    Anmelden
    0
    Anmelden

    Das Zauberwort heißt "Application.ScreenUpdating".
    False = alles beleibt stumm
    True = Anzeige wird erneuert

    Aber ich weiß nicht, warum du .Select machst.
    Greife per "CurrWrkSheet.Range(...) oder .Cells" doch direkt auf die Zelle und deren Eigenschaften zu.

    CurrWrkSheet.Range(...).Borders.
    with CurrWrkSheet.Range(...).Interior

    Das ganze Select führt zu unnötigem Geflimmer und verschiebung der aktuell vom Bediener ausgewählten Zelle.

    • Als Antwort vorgeschlagen Der Suchende Donnerstag, 20. Juli 2017 17:52
    • Als Antwort markiert Cheaptrick_la Sonntag, 23. Juli 2017 08:28
    Donnerstag, 20. Juli 2017 17:52
    |

Alle Antworten

  • Question
    Anmelden
    0
    Anmelden

    Das Zauberwort heißt "Application.ScreenUpdating".
    False = alles beleibt stumm
    True = Anzeige wird erneuert

    Aber ich weiß nicht, warum du .Select machst.
    Greife per "CurrWrkSheet.Range(...) oder .Cells" doch direkt auf die Zelle und deren Eigenschaften zu.

    CurrWrkSheet.Range(...).Borders.
    with CurrWrkSheet.Range(...).Interior

    Das ganze Select führt zu unnötigem Geflimmer und verschiebung der aktuell vom Bediener ausgewählten Zelle.

    • Als Antwort vorgeschlagen Der Suchende Donnerstag, 20. Juli 2017 17:52
    • Als Antwort markiert Cheaptrick_la Sonntag, 23. Juli 2017 08:28
    Donnerstag, 20. Juli 2017 17:52
    |
  • Question
    Anmelden
    0
    Anmelden
    OK, danke für den Hinweis, ich werde das mal versuchen.
    Sonntag, 23. Juli 2017 08:28
    |