title image


Smiley Re: Excel 2000: ganze Zeile durchstreichen?
Hallo Hans Bärbel,



folgender Ansatz



Option Explicit



Sub Durchstreichen_Horizontal()

' von Matthias Rochholz

Dim Linie As Shape

Dim Zelle As Range

For Each Zelle In Selection

Set Linie = ActiveSheet.Shapes.AddLine(0, 32.25, 60, 32.25)

Linie.Left = Zelle.Left

Linie.Width = Zelle.Width

Linie.Top = Zelle.Top + Zelle.Height / 2

Linie.Line.ForeColor.RGB = RGB(255, 0, 0)

Next

End Sub









In Foren gilt allgemein das Du. Alle Leute, die ich duze, spreche ich mit dem Vornamen an. Ich habe jetzt mal meinen Antwortstil umgestellt: in Beiträgen, in denen kein Name steht, werden die Personen mit "Hans Bärbel" angeredet, da liege ich zumindest beim Geschlecht mit 50% richtig.

 http://hajo-excel.de/fragen_wie_1.htm

Betriebssystem: Windows 10, Office 2016 32 bit. Bitte Version angeben. Bei keiner Angabe wird von meiner  ausgegangen.Mails nur nach Aufforderung.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: