Wie wählt man in Excel alle nicht leeren Zellen innerhalb eines Bereichs aus?

Die Funktion „Gehe zu Besonderes“ hilft Ihnen, nicht leere Zellen in einem Bereich auszuwählen – und zwar ganz einfach in den folgenden Schritten.

1. Wählen Sie den Bereich aus, aus dem Sie alle nicht leeren Zellen markieren möchten, und drücken Sie die F5-Taste, um das Dialogfeld „Gehe zu“ zu öffnen. Klicken Sie anschließend auf die Schaltfläche „Besonderes…“, um das Dialogfeld „Gehe zu – Besonderes“ zu öffnen.

Hinweis: Sie können das Dialogfeld „Gehe zu – Besonderes“ auch direkt öffnen, indem Sie auf Start > Suchen und Auswählen > Gehe zu Besonderes klicken.

2. Aktivieren Sie im Dialogfeld „Gehe zu Besonderes“ die Option Konstanten sowie die Optionen Zahlen, Text, Logische Werte und Fehler, und klicken Sie auf die Schaltfläche „OK“.

Nun sehen Sie, dass im begrenzten Bereich ausschließlich nicht leere Zellen mit Inhalt ausgewählt sind. Siehe die folgenden Screenshots:

Mit einem Klick alle nicht leeren Zellen in einem Bereich in Excel auswählen

Mit der Nicht leere Zellen auswählen-Funktion von Kutools für Excel wählen Sie im Handumdrehen alle nicht leeren Zellen eines Bereichs mit nur einem Klick aus.

Hier stellen wir ein VBA-Makro bereit, mit dem Sie alle nicht leeren Zellen in einem begrenzten Bereich auswählen können. Gehen Sie dazu wie folgt vor:

1. Drücken Sie die Tastenkombination Alt+F11, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie anschließend den folgenden VBA-Code in das geöffnete Modulfenster ein.

VBA: Nicht leere Zellen aus einem Bereich auswählen

Sub SelectNonBlankCells()
Dim Rng As Range
Dim OutRng As Range
Dim InputRng As Range
Dim xTitle As String
On Error Resume Next
xTitle = Application.ActiveWindow.RangeSelection.Address
Set InputRng = Application.InputBox("Range :", "KutoolsforExcel", xTitle, Type:=8)
Set InputRng = Application.Intersect(InputRng, Application.ActiveSheet.UsedRange)
For Each Rng In InputRng
If Not Rng.Value = "" Then
If OutRng Is Nothing Then
Set OutRng = Rng
Else
Set OutRng = Application.Union(OutRng, Rng)
End If
End If
Next
If Not (OutRng Is Nothing) Then
OutRng.Select
End If
End Sub

3. Drücken Sie die F5-Taste oder klicken Sie auf die Schaltfläche „Ausführen“, um dieses VBA-Skript auszuführen.

4. Geben Sie im geöffneten Dialogfeld den Bereich an, aus dem nur nicht leere Zellen ausgewählt werden sollen, und klicken Sie auf die Schaltfläche „OK“.

Jetzt sind alle nicht leeren Zellen im begrenzten Bereich sofort ausgewählt.

Mit der Nicht leere Zellen auswählen-Funktion von Kutools für Excel wählen Sie mit nur einem Klick alle nicht leeren Zellen in einem bestimmten Bereich aus.

Wählen Sie den Bereich aus, aus dem nur nicht leere Zellen ausgewählt werden sollen, und klicken Sie auf Kutools > Auswählen > Nicht leere Zellen auswählen.

Nun sind alle nicht leeren Zellen im begrenzten Bereich auf einmal ausgewählt.