Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
864to868
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Waagerechte Rahmenlinie zeichnen

Waagerechte Rahmenlinie zeichnen
24.04.2007 12:44:17
Peter
Hallo zusammen
Ich habe eine Datei die in Spalte A folgende Einträge enthält
DT.500413.001.52.02
DT.500413.002.52.02
DT.500422.001.52.03
DT.500422.001.52.99
DT.500424.001.52.03
DT.500434.001.52.05
DT.500437.001.52.02
DT.500437.001.52.03
DT.500437.001.52.04
Ich möchte nun, wenn sich die ersten neun stellen ändern
eine waagerechte Rahmenline automatisch für den Bereich A:AA
zeichnen.
Die Tabelle hat zur Zeit 3000 Einträge
Gruß Peter

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

Betreff
Datum
Anwender
Anzeige
AW: Waagerechte Rahmenlinie zeichnen
24.04.2007 13:01:00
Werni
Hallo Peter
etwa so ....

Sub TEST()
Columns("A:AA").Borders(xlEdgeBottom).LineStyle = xlNone
For i = 2 To Range("A65536").End(xlUp).Row
x = Left(Cells(i, 1), 9)
y = Left(Cells(i + 1, 1), 9)
If x  y Then
Range(Cells(i, 1), Cells(i, 27)).Borders(xlEdgeBottom).LineStyle = xlContinuous
End If
Next i
End Sub


Gruss Werner

AW: Waagerechte Rahmenlinie zeichnen
24.04.2007 13:03:13
Rudi
Hallo,
bereich markieren. Format-Bedingte Formatierung
Formel ist: =links($a1;9)<>links($a2;9) und Format Rahmen unten wählen.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Waagerechte Rahmenlinie zeichnen
24.04.2007 13:18:01
Peter
Hallo Peter,
so könnte es gehen:


Option Explicit
Public Sub Rahmen()
Dim lLetzte  As Long
Dim lZeile   As Long
Dim sGruppe  As String
   Application.ScreenUpdating = False
   With Worksheets("Tabelle1")
      lLetzte = IIf(.Range("A65536") <> "", 65536, .Range("A65536").End(xlUp).Row)
      sGruppe = Left(.Range("A1").Value, 9)
      For lZeile = 1 To lLetzte
         If sGruppe <> Left(.Range("A" & lZeile).Value, 9) Then
            .Range("A" & lZeile - 1 & ":AA" & lZeile - 1).Borders(xlEdgeBottom).Weight = xlThin
            sGruppe = Left(.Range("A" & lZeile).Value, 9)
         End If
      Next lZeile
      Range("A" & lLetzte & ":AA" & lLetzte).Borders(xlEdgeBottom).Weight = xlThin
   End With
   Application.ScreenUpdating = True
End Sub 


Gruß Peter
Anzeige
AW: Waagerechte Rahmenlinie zeichnen
24.04.2007 14:19:43
Peter
Vielen Dank klappt super

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige