Hallo Forumsgemeinde,
ich kämpfe im Moment mit einem Problem. Innerhalb einer Exceldatei möchte ich alle leeren Zeilen via Makro ausblenden. Das funktioniert bei meinem Eingabeblatt auch ohne Probleme, mit folgendem Code:
Sub Makro8()
’
’ Makro8 Makro
’
On Error Resume Next
Dim i As Integer
Sheets(„Eingabe“).Activate
ActiveSheet.Unprotect = „Passwort“
Application.ScreenUpdating = False
Range(„a4:h339“).Select
For i = Selection.Cells(Selection.Cells.Count).Row _
To Selection.Cells(1).Row Step -1
If Cells(i, „A“).Value = 0 Or IsEmpty(Cells(i, „A“).Value) Then Rows(i).EntireRow.Hidden = True
Next i
Application.ScreenUpdating = True
End Sub
Sub ZeilenEinblenden()
On Error Resume Next
Application.ScreenUpdating = False
Sheets(„Eingabe“).Activate
ActiveSheet.Unprotect „Passwort“
Rows(„4:339“).EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub
Möchte nun aber dies auch auf den Verknüpften Tabellen separat anwenden können. Da funktioniert dies leider nicht. Ich vermute, dass bei der Verknüpfung ein Wert übergeben wird, den ich aber nicht sehe bzw. erkenne (Verknüpfung in Tabelle 1 Spalte A lautet wie folgt:
=WENN(Eingabe!$E5=„Mannheim“;Eingabe!$A5;" ")
Meine Abfrage soll auf Spalte A vorgenommen werden. Wenn diese leer ist (dann ist auch der restliche Teil dieser Spalte nicht gefüllt) dann soll die Spalte ausgeblendet werden.
Hat jemand mein Problem verstanden und weiß hierzu eventuell die Lösung.
Vielen Dank und einen Guten Start ins Neue Jahr.