Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1196to1200
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mit Schleife Zeilen unterstreichen

Mit Schleife Zeilen unterstreichen
Mandy
Hallo,
ich möchte mit einem Makro folgendes machen:
Das Makro soll die Spalte A duchlaufen. Ab Zeile 6 soll geprüft werden, ob die Zelle leer ist oder nicht. Wenn nicht , soll in der jeweiligen Zeile der Bereich A:D mit einer gestrichelten (feinen) Linie (unterhalb der zelle) mit grauer Farbe gezogen werden.
Das Makro soll soweit laufen, bis es in A die nächste leere Zelle findet. Dann Stop
Wie macht man das ?
Danke
Mandy

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Mit Schleife Zeilen unterstreichen
27.01.2011 13:46:17
Rudi
Hallo,
Sub Makro1()
With Range(Cells(5, 1).End(xlDown), Cells(5, 1).End(xlDown).End(xlDown)).Resize(, 4)
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 52  'anpassen
End With
With .Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 52  'anpassen
End With
End With
End Sub

Gruß
Rudi
AW: Mit Schleife Zeilen unterstreichen
27.01.2011 14:19:29
Mandy
Hallo Rudi,
Danke für das Beispiel. Leider scheint in dem Beispiel was verdreht: Das Makro läuft los und fängt nicht in der Zeile 6 an, sondern erst an der ersten leeren Zelle an, also, da , wo meine Daten in A eigentlich schon zu Ende sind und wo das Makro eigentlich aufhören sollte.
Kannst Du bitte noch mal drüber schauen ?
Danke
Mandy
Anzeige
AW: Mit Schleife Zeilen unterstreichen
27.01.2011 14:27:29
Rudi
Hallo,
Sub Makro1()
With Range(Cells(6, 1), Cells(5, 1).End(xlDown)).Resize(, 4)
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 52  'anpassen
End With
If .Rows.Count > 1 Then
With .Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 52  'anpassen
End With
End If
End With
End Sub

Gruß
Rudi
Danke, geht :-) owT
27.01.2011 15:02:05
Mandy

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige