Excel-Makro: Wenn über der aktiven Zelle keine Zelle mit Inhalt ist und darunter keine leere Zelle ist, dann Exit Sub?

Antwort vom

```vba Sub CheckAboveBelowOrExit() Dim r As Long, c As Long r = ActiveCell.Row c = ActiveCell.Column 'Wenn es keine Zelle darüber oder darunter gibt: Exit If r = 1 Or r = Rows.Count Then Exit Sub 'Bedingung: oben NICHT (Inhalt) ODER unten NICHT (leer) => Exit If Len(Trim$(CStr(Cells(r - 1, c).Value))) = 0 Then Exit Sub If Len(Trim$(CStr(Cells(r + 1, c).Value))) <> 0 Then Exit Sub '... hier weiter mit deinem Code ... End Sub ```

Kategorie: Technik Tags: Excel Makro VBA

Verwandte Fragen

Excel-Formel für 100 × a / b?

Die Excel-Formel lautet: =100A1/B1 — damit berechnest du 100 mal den Wert in A1 geteilt durch den Wert in B1. Wenn a und b feste Zahlen sind, z. B. 100 × 5 / 20, dann schreibst du einfach...

Lässt sich eine OpenOffice-Präsentation in Excel öffnen?

Nein – Excel ist kein Präsentationsprogramm. Eine OpenOffice-Präsentation läuft grundsätzlich in PowerPoint oder OpenOffice Impress, aber nicht sinnvoll in Excel. Microsoft b...

Gibt es eine kostenlose Alternative zu Excel für Android?

Ja: Die beste kostenlose Excel-Alternative auf Android ist meist Google Tabellen. Du kannst damit .xlsx-Dateien öffnen, bearbeiten und speichern; wenn du eher eine klassische Office-App willst, s...