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
Neue Frage stellen

Verwandte Fragen

Wie bekomme ich in einer Excel-VBA MsgBox das VB-Critical-Symbol (roter Kreis mit Kreuz) zusammen mit VBYesNo?

In VBA ist das Icon (z.B. roter Kreis mit Kreuz = `vbCritical`) unabhängig von den Buttons (`vbYesNo`). Du kombinierst beides einfach per Addition (oder `Or`): `MsgBox "Text", vbYesNo...

Wie verwende ich im Excel-VBA-Makro eine MsgBox mit vbYesNo, sodass bei Yes fortgesetzt und bei No mit Exit Sub beendet wird?

In VBA setzt du den Rückgabewert der `MsgBox` auf eine Variable und prüfst ihn: ```vba Sub Beispiel() Dim r As VbMsgBoxResult r = MsgBox("Weiter machen?", vbYesNo + vbQue...

Wie kann ich in Excel-VBA einen langen MsgBox-Text im Code in eine neue Zeile umbrechen?

In VBA brichst du den **String im Code** mit einem Zeilenumbruch-Zeichen um – üblich ist `vbCrLf` (oder `vbNewLine`). Beispiel: ```vba MsgBox "Erste Zeile" & vbCrLf & _...

Wie konvertiere ich eine MS-Word-DOC-Datei in eine MS-Excel-XLSX-Datei?

Eine **Word-Datei (.doc/.docx)** lässt sich nicht „1:1“ sinnvoll in eine **Excel-Datei (.xlsx)** umwandeln, weil Word ein Textlayout-Format ist und Excel tabellarische Daten erwartet....

Wie ändere ich Dropdown-Menüs in Microsoft Excel?

Drop-down-Menüs in Excel sind meist **Datenüberprüfung-Listen**. So änderst du sie: 1) **Zelle mit dem Drop-down anklicken** 2) **Daten** → **Datenüberprüfung** (...

Bei zwei Formular-Steuerelement-Buttons wird in Excel 2021 unter „Größe und Eigenschaften“ keine Position angezeigt – warum?

In Excel 2021 gibt es zwei unterschiedliche „Button“-Typen, und nur bei **ActiveX-Steuerelementen** gibt es in den **Eigenschaften** eine **Position** (z. B. `Left/Top`). Bei **Formular-St...

Wie lassen sich in Excel zwei Buttons (Speichern/Beenden) auf drei Arbeitsblättern exakt an derselben horizontalen und vertikalen Position platzieren?

Am zuverlässigsten geht das über **exakte Positionswerte** (nicht „per Hand schieben“), und zwar je Blatt identisch: 1) **Auf jedem Blatt beide Buttons markieren** - `Strg` gedr...

Kann Excel 2021/365 ohne Makro per Formel oder bedingter Formatierung den Einzug (Indent-Level) einer Zelle ändern?

Nein. In Excel 2021/365 lässt sich der **Einzug (Indent/Indent-Level)** einer Zelle **weder per Formel noch per bedingter Formatierung** dynamisch ändern. Bedingte Formatierung kann u. a. Sc...

Wie stelle ich in Excel ein, dass Zellen mit 0 leer angezeigt werden?

In Excel kannst du „0“ so anzeigen lassen, dass die Zelle optisch leer wirkt: **1) Für das ganze Blatt (oder die Arbeitsmappe):** - **Datei** → **Optionen** → **Erweitert**...

Kann man in ein Excel-Blatt eine PDF-Datei als Anhang einbetten und bei Bedarf öffnen?

Ja, in Excel kannst du eine PDF-Datei als Objekt einbetten, sodass sie direkt aus dem Excel-Blatt heraus geöffnet werden kann. So gehst du vor (Beispiel für Microsoft Excel unter Windows):...