das Makro habe ich hier finden können.
Ich habe es angepasst und es funktioniert gut.
Eine Sache fehlt noch:
Sub C_Reg_2()
'Spalte Q ausblenden
Application.ScreenUpdating = False
Dim int_q As Integer
For int_q = 3 To 1000 'Q3:Q1000
If IsEmpty(Cells(int_q, 17)) = True Then Rows(int_q).Hidden = True 'Wenn ab Zeile 3 leer, _
_
dann ausblenden
Next int_q
Application.ScreenUpdating = True
End Sub
Ich habe einige Zellen in der Zeile verbunden (Button: Zusammenführen und Zentrieren).
Diese werden auch ausgeblendet, weil diese den Spaltenwert A haben.
Wie kann man es so anpassen, dass Spalte Q gleich leer ausgeblendet werden und
Spalte A, die "Zusammenführen und Zentrieren" (A bis W) wurden nicht.
Dank im voraus
Gruß
mehmet