Zeilen mit x ausblenden
15.12.2014 15:46:16
Manu
mit dem folgenden Code ist es mir möglich bestimmte Zeilen aus dem Tabellenblatt2 auszublenden, wenn in der selben Zeile im Tabellenblatt1 in Spalte a ein "x" vermerkt ist. Das Tabellenblatt2 ist eine Verknüpfung von Tabellenblatt1:
Sub ausblenden()
Dim zeile As Long
For zeile = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Cells(zeile, 1) = "x" Then
Rows(zeile).EntireRow.Hidden = True
Else
Rows(zeile).EntireRow.Hidden = False
End If
Next zeile
End Sub
Das ganze funktioniert prima, meine frage ist nun:
Ich möchte, dass das ganze auch Mappenübergreifend funktioniert. Wie muss ich den Code abändern? Wenn in Mappe1, Tabelle1 in einer bestimmten Zeile ein "x" vermerkt ist, soll in Mappe2, Tabelle1 die selbe Zeile ausgeblendet werden. Am Besten wäre es wenn Mappe1 nicht geöffnet sein müsste um Mappe2 zu aktualisieren. Auch hier ist Mappe2 die Verknüpfung von Mappe 1.
Vielen vielen Dank im Voraus!!