das folgende Makro soll folgendes erfüllen:
wenn eine Zeile sichtbar ist, soll sie als Namen den Zellinhalt der Spalte A der jeweiligen Zeile bekommen!
Sub Namen_vergeben()
Dim row As Variant
For Each row In Worksheets("Fix").Rows
If row.Hidden = False Then row.Select
Selection.CreateNames Top:=False, Left:=True, Bottom:=False, Right:= _
False
Next row
End Sub
Leider gibts einen Fehler"xy"
Kennt jemand die Lösung
Gracie und Gruss Ha-Jü