Excel Makro_ Zeilen ein- & ausblenden

[MSCom]

Hallo


Ich habe ein bisschen ein grösseres Problem und bin mit probieren und durchlesen von etlichen Foren nicht zu einer Lösung gekommen.


Ich habe bereits Verknüpfungen von einer Exceldatei (Offerten=1) zu einer anderen Exceldatei (Auftrag=2) hergestellt, sodass wenn ich in einer Zelle beim Excel (1) "Auftrag" eintippe, die Zeile direkt in das Excel (2) übertragen wird.

Da ich dafür jedoch die Formel für die ganze Exceltabelle in Excel (2) übertragen musste, habe ich viele leere Zeilen.


Mein Ziel ist es nun mithilfe eines Makros, dass es immer nur die Zeilen anzeigt, in welchen ein Inhalt steht. Dies habe ich auch hinbekommen mit folgendem Makro:


' AufträgeAktualisieren Makro

For i = 1 To 280

If Cells(i, 2).Value = "" Then

Rows(i).Hidden = True

End If


Soweit so gut. Nun habe ich aber das Problem, dass wenn ich in der Exceldatei (1), etwas ändere, sodass es den Übertrag direkt in Exceldatei (2) macht und ich auf den Botton "Aktualisieren" (mit dem Makro hinterlegt) drücke, die neue Zeile nicht automatisch wieder eingeblendet wird.

Ich muss dafür immer wieder alle Zeilen einblenden, dann den Button (mit dem Makro) drücken und erst dann zeigt es mir wieder nur die ausgefüllten Zeilen an.


Ich habe es mit folgenden Makro versucht:


' AufträgeAktualisieren Makro


For i = 1 To 280

If Cells(i, 2).Value = "" Then

Rows(i).Hidden = True

End If

Next i

If Cells(i, 18) = "Auftrag" Then

Range("i").EntireRow.Hidden = Target = "x"



End If

End Sub


Hoffe ist verständlich und das mir jemand weiterhelfen kann.


Gruss Rafi