ich habe ein kniffliges Problem und komme einfach nicht weiter: auf einem Arbeitsblatt befinden sich mehrere Tabellen. Diese weisen alle die gleiche Breite auf ("b:r") und enthalten in ihrer ersten Zelle (z.B. "b1") den gleichen Namen (Organisationseinheit). Die Länge, d.h. nach unten, ist bei allen Tabellen verschieden. Ziel ist es, alle auf diesem Arbeitsblatt befindlichen Tabellen mit einem schwarzen Medium-Rahmen zu versehen. Hat vielleicht jemand einen Ratschlag zu meinem bisherigen Entwurf? Vielen lieben Dank im voraus, Grüsse Chriz
Dim Zelle as Range
For Each Zelle In MyAreaOnFluk
If InStr(Zelle, "Organisationseinheit") > 0 Then
'Markier die gesamte Zeile und
'und gehe bis in die letzte Zeile der Tabelle
Call Frame 'schwarze Box mit medium Linienstärke
End If
Next Zelle