Ich nutze einen Code Teil um im ActiveSheet die Spalten auszublenden wenn eine Leere Zelle in Zeile X vorhanden ist.
For ausblenden = 150 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
If Cells(X, ausblenden) = "" Then
Columns(ausblenden).EntireColumn.Hidden = True
End If
Next
Ich möchte das nun erweitern das auch in einem anderen Blatt die gleichen Zellen mit ausgeblendet werden. Aber egal was ich versuche endet in einem Fehler 400.
Hat da jemand eine Idee?
Dank im vorraus und Gruß
Sile1234