Makro funktioniert in original nicht
30.06.2022 10:52:02
Dilek
Onur hat mir gestern mit u. g. Makro geholfen, welches Tabellenblätter als auch Zeilen ausblendet.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh
If Target.Address "$C$1" Then Exit Sub
If Left(Target.Text, 2) = "PO" Then
For Each sh In ThisWorkbook.Worksheets
If sh.Name = Target Then sh.Visible = True
Next
For z = 3 To 1000
If Cells(z, 2) "" And Cells(z, 2) = Target Then Cells(z, 2).EntireRow.Hidden = False
Next z
End If
End Sub
Ich lade mal die Test- als auch die Original Datei.
Original Datei - wo es nicht funktioniert:
https://www.herber.de/bbs/user/153887.xlsm
Test Datei - wo es funktioniert:
https://www.herber.de/bbs/user/153888.xlsm
