Excel Macro - Zellen <>0 auswählen

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

Ich habe in Excel 2010 ein sheet mit x zeilen, von denen ich per Makro nur die auswählen möchte, die nicht leer oder 0 sind.

Wenn ich im Augenblick ein Makro aufzeichne, den Filter auswähle und dort die „0“ nicht markiere, sieht das Makro z.B. so aus:

Sheets(„NH_order“).Select
ActiveSheet.Range("$A$1:blush:N$99").AutoFilter Field:=7, Criteria1:=Array(„1“, _
„2“, „3“, „4“, „5“), Operator:=xlFilterValues

Das hilf mir leider nicht weiter, wenn beim nächsten Mal die Zahl 6 auftaucht.

Wie müsste also das Makro an dieser Stelle aussehen?

Vielen Dank und Grüße,
erdbrink

2

Hallo Erdbrink,

ich bin hier nur mit 2003 unterwegs, aber es müsste ja trotzdem gehen.

Versuch mal das:

Sub Nichtnull()
 Dim Auswahl As Range
 Dim Zelle As Range

 Set Auswahl = Nothing

 For Each Zelle In Selection.Cells
 If Zelle.Value 0 Then
 If Auswahl Is Nothing Then
 Set Auswahl = Zelle
 Else
 Set Auswahl = Union(Auswahl, Zelle)
 End If
 End If
 Next Zelle

 Auswahl.Select

End Sub

Auswahl eines zu bearbeitenden Zellbereichs, Makro starten, fertig. Bei mir funktioniert’s. Vielleicht kann man noch dran rumfeilen.

Gruß
smalbop

3

Hallo smalbop,

vielen Dank schonmal für deine Antwort. Ich bin leider kein Macro Profi und werde deshalb ein bisschen brauchen, das entsprechend zu „implementieren“.

Ich melde mich nochmal, falls es nicht klappen sollte.

Vielen Dank und Grüße,
erdbrink