Office: (Office 365) Anpassen von VBA Suche nach Zellinhalt

Hallo zusammen,

ich habe hier einen Code aus dem Netz etwas für meine bedürfnisse angepasst.

Hier das was funktioniert:
Sub Spalten_ausblenden()
Dim Wiederholungen As Integer
Dim Lohnart As String
Application.ScreenUpdating = False
Lohnart = InputBox("Lohnart eingeben", "Nur Lohnart einblenden")
For Wiederholungen = 11 To 581
If Cells(8, Wiederholungen) = Lohnart _
Or Cells(8, Wiederholungen) = "blank" Then

Else
Columns(Wiederholungen).EntireColumn.Hidden = True
End If
Next
End Sub


Was ich nun machen möchte, ist das ganze um folgende Bedingung erweitern.
Wenn Zellen aus Teile 8 die Lohnart aus der Inputbox haben (was bisher funktioniert) & zusätzlich in Zeile 10 der Wert >0 ist.


Mein Versuch bis jetzt (funktioniert leider nicht.
Sub Spalten_ausblenden()
Dim Wiederholungen As Integer
Dim Lohnart As String
Application.ScreenUpdating = False
Lohnart = InputBox("Lohnart eingeben", "Nur Lohnart einblenden")
For Wiederholungen = 11 To 581
If Cells(8, Wiederholungen) = Lohnart And Cells(10, Wiederholungen) >= 0 _
Or Cells(8, Wiederholungen) = "blank" _
Or Cells(10, Wiederholungen) = "blank" Then

Else
Columns(Wiederholungen).EntireColumn.Hidden = True
End If
Next
End Sub


Vielleicht könnte mir jemand helfer, da da mehr Background hat als ich, danke!!

Grüße
Marcel

 

Hi Marcel,

du schreibst, dass der Wert >0 sein muss, in deinem Code jedoch steht >=0

---

 

Hallo Karin,
oh mann total übersehen. Manchmal kann es so einfach sein!!
Danke für Deine Hilfe - passt ;-)

LG
Marcel