Ergebnis 1 bis 1 von 1

Thema: Erste oder letzte gefuellte Spalte oder Zeile im unfixierten Bereich anspringen

  1. #1
    Office-Hilfe.com - Durchblicker
    Registriert seit
    30.12.2016
    Beiträge
    265

    Erste oder letzte gefuellte Spalte oder Zeile im unfixierten Bereich anspringen

    Vorbemerkung:
    Wie verwendet man den folgenden VBA-Code?

    Sub RechtsLetzte() 'STRG-Umschalt-R als vorgeschlagener Shortcut hierzu
    With Selection.Offset(0, Cells.Columns.Count - Selection.Column)
    If IsEmpty(.Value) Then .End(xlToLeft).Select Else .Select
    End With
    End Sub

    Sub
    UntenLetzte() 'STRG-Umschalt-U als vorgeschlagener Shortcut hierzu
    With Selection.Offset(Cells.Rows.Count - Selection.Row)
    If IsEmpty(.Value) Then .End(xlUp).Select Else .Select
    End With
    End Sub

    Sub
    LinksErste() 'STRG-Umschalt-L als vorgeschlagener Shortcut hierzu
    With Cells(Selection.Row, IIf(ActiveWindow.FreezePanes, ActiveWindow.ActivePane.ScrollColumn, 1))
    If IsEmpty(.Value) Then .End(xlToRight).Select Else .Select
    End With
    'nimmt bei fixierten Vorspalten von links die erste unfixierte gefüllte Zelle, sonst die erste des Blatts
    End Sub

    Sub
    ObenErste() 'STRG-Umschalt-O als vorgeschlagener Shortcut hierzu
    With Cells(IIf(ActiveWindow.FreezePanes, ActiveWindow.ActivePane.ScrollRow, 1), Selection.Column)
    If IsEmpty(.Value) Then .End(xlDown).Select Else .Select
    End With
    'nimmt bei fixierten Topzeilen von oben die erste unfixierte gefüllte Zelle, sonst die erste des Blatts
    End Sub
    Geändert von lupo1 (13.11.2018 um 09:34 Uhr)

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •  
Excel Ticker - News, Tipps und Tricks zu Microsoft Excel