Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
336to340
336to340
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Unterstreichen

Forumthread: Unterstreichen

Unterstreichen
18.11.2003 16:20:17
Stefan
HILFE hallo excel freunde,
ich bins nochmal, ich habe es tatsächlich geschaft, das nach einer wertänderung Ab spalte j29 ein strich eingefügt wird! das dauert allerdings enorm lang, weil ich nur weiß wie jede zelle einzelln markeirt werden kann! wie kann ich das denn schneller machen?

Danke für eure hilfe


Sub ZeilenUnterstreichen()
BAnf = 29
SpaA = 10
VG1 = Cells(BAnf, SpaA).Value
VG2 = Cells(BAnf + 1, SpaA).Value
Do While VG2 <> ""
If VG1 <> VG2 Then
Cells(BAnf + 1, SpaA).Select
BAnf = BAnf + 1
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNoneEnd
End If
BAnf = BAnf + 1
VG1 = Cells(BAnf, SpaA).Value
VG2 = Cells(BAnf + 1, SpaA).Value
Loop
End Sub

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Unterstreichen
18.11.2003 18:18:23
ChrisL
Hi Stefan

Option Explicit


Sub ZeilenUnterstreichen()
Dim iZeile As Long
For iZeile = 29 To Cells(29, 10).End(xlDown).Row
If Cells(iZeile, 10) <> Cells(iZeile + 1, 10) And Cells(iZeile + 1, 10) <> "" Then
With Cells(iZeile + 1, 10).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
iZeile = iZeile + 1
End If
Next iZeile
End Sub


Gruss
Chris
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige