Tag Archives: range

#Excel #Filter #Erweitert – #und #und #und

Tipp Excel Filter Erweitert Ranges

Das Thema Erweiterter Filter („Spezialfilter“) in Excel kommt immer wieder (siehe auch 19. Juli 2014, 21. Juli 2014, 23. Juli 2014, …); wenn man einmal damit angefangen hat, lässt es einen nicht mehr los 🙂

Dieses Mal gibt’s eine spezielle Spezialanforderung: Gesucht sind all jene Zeilen, in denen in der Spalte mit den Units entweder eine Zahl unter 1000 oder eine zwischen 11000 und 12000 steht.

Das mit den „unter 1000“ und dem „oder“ sollte klar sein – wenn nicht, dann lesen Sie doch bitte in der Blogvergangenheit nach. Aber wie bildet man „zwischen 11000 und 12000“ ab, also „größer als 11000 und gleichzeitig kleiner als 12000“?

Sie brauchen im Kriterienbereich zwei Spalten mit der gleichen Überschrift (in unserem Beispiel „Units“) –> da geben Sie dann die beiden Bedingungen, die sich auf die selbe Spalte beziehen, ein.

Klappt ja!

#VBA Codeschnipsel füllt #Luecken in #Excel

Tipp VBA LueckenFuellenZur Abwechslung etwas VBA.

Folgende Prozedur füllt die Lücken in einem markierten einspaltigen Bereich in Excel nach unten aus – und zwar so lange, bis ein neuer Inhalt kommt, dann wird die nächste Lücke mit dem neuen Inhalt gefüllt, und so weiter, …

ach was, genug der Worte: siehe vorher-nachher-Bild!

 

 

Sub LueckenFuellen()

Dim sRng As Range
Set sRng = Selection
Dim aZeile As Long
Dim eZeile As Long
Dim Zeile As Long
Dim Spalte As Long

aZeile = sRng.Row
eZeile = sRng.Row + sRng.Rows.Count – 1
Spalte = sRng.Column
Dim zCont As Variant

For Zeile = aZeile To eZeile
If Not IsEmpty(Cells(Zeile, Spalte)) Then
zCont = Cells(Zeile, Spalte).Value
Else
Cells(Zeile, Spalte).Value = zCont
End If
Next Zeile
End Sub

(Lässt sich übrigens noch ein wenig aufpolieren, klar. Allerdings: weniger dirty bedeutet immer auch weniger quick. Dem Kunden genügt’s jedenfalls auch so 🙂 )