Zelle in gefilterten Zeilen füllen
Schritt-für-Schritt-Anleitung
Um in Excel 2016 nur sichtbare Zellen in gefilterten Bereichen zu füllen, kannst du ein einfaches Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:
-
Öffne Excel und gehe zu dem Arbeitsblatt, in dem du die Zellen füllen möchtest.
-
Drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
-
Kopiere den folgenden VBA-Code in das Modul:
Sub FuelleGefilterteZellen()
With Cells(1).CurrentRegion
.AutoFilter 2, "Typ-b" ' Filtere nach Typ-b in Spalte2
.Columns(8).SpecialCells(xlCellTypeVisible) = "x" ' Fülle nur sichtbare Zellen in Spalte8
.AutoFilter ' Entferne den Filter
End With
End Sub
-
Schließe den VBA-Editor und gehe zurück zu Excel.
-
Drücke ALT + F8, wähle FuelleGefilterteZellen aus und klicke auf Ausführen.
Jetzt solltest du in den gefilterten Zeilen in Spalte 8 ein "x" sehen.
Häufige Fehler und Lösungen
-
Fehler: Das Makro gibt einen Fehler aus, wenn keine sichtbaren Zellen vorhanden sind.
- Lösung: Stelle sicher, dass die Filterkriterien tatsächlich Ergebnisse liefern. Wenn keine Zeilen sichtbar sind, wird der Befehl
SpecialCells nicht funktionieren.
-
Fehler: Zellen in einem gefilterten Bereich oder in einer gefilterten Tabelle können nicht verschoben werden.
- Lösung: Verwende
.SpecialCells(xlCellTypeVisible), um sicherzustellen, dass nur die sichtbaren Zellen bearbeitet werden.
Alternative Methoden
Wenn du nicht mit Makros arbeiten möchtest, kannst du auch die Funktion "Suchen und Ersetzen" verwenden:
- Filtere die Tabelle nach deinen Kriterien.
- Wähle die Zellen in der Spalte aus, die du füllen möchtest.
- Drücke
CTRL + H, um "Suchen und Ersetzen" zu öffnen.
- Lass das Feld "Suchen nach" leer und gib "x" im Feld "Ersetzen durch" ein.
- Klicke auf
Alle ersetzen.
Diese Methode ist weniger automatisiert, funktioniert aber gut für kleinere Datenmengen.
Praktische Beispiele
Angenommen, du hast eine Tabelle mit über 50.000 Zeilen. Wenn du nach "Typ-b" in Spalte 2 und "blau" in Spalte 3 filterst, kannst du mit dem oben genannten Makro in der Spalte 8 automatisch ein "x" eintragen.
Hier ist ein Beispiel für die Filterkriterien:
| Spalte1 |
Spalte2 |
Spalte3 |
... |
Spalte8 |
... |
Spalte12 |
| Marke1 |
Typ-a |
blau |
... |
|
... |
mitte |
| Marke2 |
Typ-b |
blau |
... |
|
... |
mitte |
| Marke1 |
Typ-c |
grün |
... |
|
... |
mitte |
| Marke3 |
Typ-b |
gelb |
... |
|
... |
rechts |
| Marke2 |
Typ-c |
grün |
... |
|
... |
mitte |
| Marke3 |
Typ-b |
blau |
... |
|
... |
links |
| Marke2 |
Typ-a |
gelb |
... |
|
... |
rechts |
Nach dem Ausführen des Makros wird in den gefilterten Zeilen in Spalte 8 ein "x" angezeigt.
Tipps für Profis
- Verwende
xlCellTypeVisible in Kombination mit anderen Zellformatierungen, um die Sichtbarkeit und das Aussehen der gefilterten Daten zu verbessern.
- Teste deine Makros stets in einer Kopie deiner Daten, um unbeabsichtigte Änderungen zu vermeiden.
FAQ: Häufige Fragen
1. Kann ich das Makro auch für andere Spalten verwenden?
Ja, ändere einfach die Zahl in .Columns(8) auf die entsprechende Spaltennummer.
2. Funktioniert dieses Makro in älteren Excel-Versionen?
Das Makro wurde für Excel 2016 erstellt, könnte aber auch in ähnlichen Versionen funktionieren. Teste es einfach in deiner Version.