Ich möchte nach Wörtern suchen die verschiedene Endungen haben und anschliessend ausblenden. Ich möchte aber selber zuweisen welche Endungen ausgeblendet werden sollen. In dem Bsp. soll Affe1 und Affen ausgeblendet werden.
In Spalte A1 Affe1, Spalte A2 Affen, Spalte A3 Affe3 und Spalte B1 = Affe
Hier mein Sub, dass aber leider alle ausblendet, logischweise wegen dem Stern.
Var = Range("B1") & "\*"
For i = 1 To 5
If Cells(i, 1) Like Var Then
Rows(i).Hidden = True
End If
Next i
Ich möchte nach Wörtern suchen die verschiedene Endungen haben
und anschliessend ausblenden. Ich möchte aber selber zuweisen
welche Endungen ausgeblendet werden sollen. In dem Bsp. soll
Affe1 und Affen ausgeblendet werden.
Hallo Flexo,
zeige bitte kleine Komplettcodes.
Zur Lösung gibt es verschiedene Ansätze, hier ist einer, ungetestet:
Option Explicit
Sub tt()
Dim Var As String, Zei As Long
Var = Range("B1").Value
For Zei = 1 To 5
Rows(Zei).Hidden = False
If InStr("1n", Mid(Var, 5)) \> 0 Then Rows(Zei).Hidden = True
Next Zei
End Sub
Ich würde das mit ElseIF lösen, ob man es ohne ElseIF hinbekommt ??
Sub tt()
Var = Range("B1") & "1"
Var1 = Range("B1") & "n"
For i = 1 To 5
If Cells(i, 1) = Var Then
Rows(i).Hidden = True
ElseIf Cells(i, 1) = Var1 Then
Rows(i).Hidden = True
End If
Next i
End Sub
Grüsse
Snetto
> Ich möchte nach Wörtern suchen die verschiedene Endungen haben
> und anschliessend ausblenden. Ich möchte aber selber zuweisen
> welche Endungen ausgeblendet werden sollen. In dem Bsp. soll
> Affe1 und Affen ausgeblendet werden.
>
> In Spalte A1 Affe1, Spalte A2 Affen, Spalte A3 Affe3 und
> Spalte B1 = Affe
>
> Hier mein Sub, dass aber leider alle ausblendet, logischweise
> wegen dem Stern.
>
>
> Var = Range("B1") & "\*"
>
> For i = 1 To 5
> If Cells(i, 1) Like Var Then
> Rows(i).Hidden = True
> End If
> Next i
>
>
>
> Meine Idee.. geht aber nicht :frowning:
>
>
> Var = Range("B1") & "1" Or "n"
>
>
>
>
> Grüsse
> Flexo
