das Makro unten bricht nach
With rngZelle.Borders(xlInsideHorizontal)
beim Zugriff mit Error 1004 ab.
Komisch
rngZelle.Borders(xlInsideHorizontal).LineStyle = xlLineStyleNone
weiter oben im Makro geht doch auch.
Danke für Hilfe.
Gruß von Rudolf
das Makro unten bricht nach
With rngZelle.Borders(xlInsideHorizontal)
beim Zugriff mit Error 1004 ab.
Komisch
rngZelle.Borders(xlInsideHorizontal).LineStyle = xlLineStyleNone
weiter oben im Makro geht doch auch.
Danke für Hilfe.
Gruß von Rudolf
Du hast einen logischen Fehler in deîner Anweisung.
With rngZelle.Borders(xlInsideHorizontal)
kann nur zugewiesen werden, wenn mehrere Zellen untereinander markiert sind !!!
Auf eine einzelne Zelle ist der Befehl nicht anwendbar.
Sorry,... da musst du noch ein wenig Brain-Storming betreiben ;-)
Gruss Rainer
stimmt, Du hast Recht, geht nur so wie Du erwähnt hast mit
mindestens zwei Zellen untereinander.
...aber, hmmm, demnach kann man eine einzelne Zelle gar
nicht mit einem "Border" komplett waagrecht durchstreichen.
Schade, wäre optisch ein schönes Stilmittel für meinen Zweck gewesen.
Danke nochmal für den Tipp,
Rudolf.
als Alternative zur horziontalen Linie vielleicht
ActiveCell.Value = "--------------"
Gruss Rainer
Vielleicht hilft Dir folgendes
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Zur Zeit ist die automatische E-Mailbenachrichtigung abgeschaltet. Damit ist es dem Zufall überlassen, ob ich auf Rückfragen antworte.
Ich habe keine Lust in gewissen Abständen das Forum nach meinen Beiträgen zu durchsuchen, um zu sehen ob Rückfragen gibt.
man lernt echt nicht aus.
Bis jetzt hab ich "-" gepaart mit "x" in Fett umgesetzt,
sieht optisch auch ganz OK aus,
(Projekt: Logistiktrainer ala PM)
Aber das mit den Shapes öffnet noch mehr Türen für Ideen,
klappt auch noch mit Excel97,
vielen Dank und Gruß von
Rudolf.