mit folgendem Code blende ich bestimmte eingeblendete Zeilen aus einem anderen Sheet ein.
Das ganze klappt auch super.
Benötige trotzdem eure Hilfe.
Ich möchte nicht das mit der Code die zeilen einblendet die ausgeblendet sind sondern das der code mir die zeilen zum einblenden mit einem X in z.b Spalte 30 markiert.
Wie geht das ?
Danke im voraus für eure mühen !
Sub showing()
Dim lZeile As Long
Dim rEinbld As Range
Application.ScreenUpdating = False
With ws_A
For lZeile = 7 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Rows(lZeile).Height 0 Then
If Not IsError(Application.Match(.Cells(lZeile, 1), Range(ws_p.Cells(4, 1), ws_p. _
Cells(Rows.Count, 1)), 0)) Then
If rEinbld Is Nothing Then
Set rEinbld = ws_p.Cells(Application.Match(.Cells(lZeile, 1), Range(ws_p. _
Cells(4, 1), ws_.Cells(Rows.Count, 1)), 0) + 3)
Else
Set rEinbld = Union(rEinbld, ws_p.Rows(Application.Match(.Cells(lZeile, 1), _
Range(ws_p.Cells(4, 1), ws_p.Cells(Rows.Count, 1)), 0) + 3))
End If
End If
End If 'Nicht sichtbar Zeile
Next lZeile
End With
'hier sollen die Zeilen nicht eingeblendet werden sondern nur bei entsprechenden Zeilen ein x _
in Spalte 30 Eingetragen werden
If Not rEinbld Is Nothing Then rEinbld.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub