Kleine kurze Frage. Wie markiere ich alle Felder die einen Inhalt haben?
Ich hab unter der Range Funktion gesucht aber leider nichts gefunden.
Vielen Dank schaon mal
Gruß
Atti
Sub AuswahlZellen(Optional was As String = "FK")
Dim rngB As Range, rngC As Range, rngF As Range
Set rngB = Cells.SpecialCells(xlCellTypeBlanks)
Set rngC = Cells.SpecialCells(xlCellTypeConstants)
Set rngF = Cells.SpecialCells(xlCellTypeFormulas)
Select Case UCase(was)
Case "LK" 'leere Zellen und Zellen mit Konstanten
Union(rngB, rngC).Select
Case "LF" 'leere Zellen und Zellen mit Formeln
Union(rngB, rngF).Select
Case "FK" 'Zellen mit Formeln und Konstanten
Union(rngC, rngF).Select
Case Else
Union(rngB, rngC, rngF).Select
End Select
End Sub
Um alle Zellen mit Inhalt in Excel auszuwählen, kannst Du ein einfaches VBA-Skript verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:
Öffne deine Excel-Datei.
Drücke ALT + F11
, um den VBA-Editor zu öffnen.
Klicke auf Einfügen
> Modul
, um ein neues Modul zu erstellen.
Füge den folgenden Code in das Modul ein:
Sub AuswahlZellen(Optional was As String = "FK")
Dim rngB As Range, rngC As Range, rngF As Range
Set rngB = Cells.SpecialCells(xlCellTypeBlanks)
Set rngC = Cells.SpecialCells(xlCellTypeConstants)
Set rngF = Cells.SpecialCells(xlCellTypeFormulas)
Select Case UCase(was)
Case "LK" 'leere Zellen und Zellen mit Konstanten
Union(rngB, rngC).Select
Case "LF" 'leere Zellen und Zellen mit Formeln
Union(rngB, rngF).Select
Case "FK" 'Zellen mit Formeln und Konstanten
Union(rngC, rngF).Select
Case Else
Union(rngB, rngC, rngF).Select
End Select
End Sub
Schließe den VBA-Editor.
Kehre zu Excel zurück und führe das Makro aus, indem Du ALT + F8
drückst und AuswahlZellen
auswählst.
Jetzt sind alle Zellen mit Inhalt in deinem Arbeitsblatt ausgewählt!
Fehler: "Keine Zellen gefunden"
Lösung: Stelle sicher, dass Du tatsächlich Zellen mit Inhalt in deinem Arbeitsblatt hast. Wenn alle Zellen leer sind, wird die Funktion keine Zellen auswählen.
Fehler: Makro kann nicht ausgeführt werden
Lösung: Überprüfe deine Makrosicherheitseinstellungen unter Datei
> Optionen
> Trust Center
> Einstellungen für das Trust Center
> Makroeinstellungen
. Stelle sicher, dass die Ausführung von Makros erlaubt ist.
Falls Du kein VBA verwenden möchtest, kannst Du auch die Bedingte Formatierung nutzen, um Zellen mit Inhalt hervorzuheben:
Start
> Bedingte Formatierung
> Neue Regel
.OK
.Diese Methode ist visuell und benötigt kein Programmieren.
Beispiel 1: Wenn Du nur die Zellen mit konstanten Werten auswählen möchtest, kannst Du das Makro wie folgt anpassen:
Sub AuswahlKonstanten()
Cells.SpecialCells(xlCellTypeConstants).Select
End Sub
Beispiel 2: Um nur die Zellen mit Formeln auszuwählen, verwende:
Sub AuswahlFormeln()
Cells.SpecialCells(xlCellTypeFormulas).Select
End Sub
Diese Beispiele zeigen, wie flexibel die Verwendung von VBA in Excel ist, um spezifische Zelltypen auszuwählen.
1. Wie kann ich das Makro automatisch beim Öffnen der Datei ausführen?
Du kannst das Makro Workbook_Open
verwenden, um das Skript automatisch auszuführen, wenn die Datei geöffnet wird. Füge dazu den folgenden Code in das ThisWorkbook
-Modul ein:
Private Sub Workbook_Open()
AuswahlZellen
End Sub
2. Kann ich das Skript auch anpassen, um nur bestimmte Zellbereiche auszuwählen?
Ja, Du kannst den Bereich, den Du auswählen möchtest, anpassen, indem Du Set rngX = Range("A1:B10")
anstelle von Cells
verwendest, um nur die Zellen in diesem Bereich zu berücksichtigen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen