linie unter zelle

Forumthread: linie unter zelle

linie unter zelle

10.11.2005 14:21:54

rokki

Hallo Forum
bei einer Tabelle, bei welcher ich schon alle 3 bedingten Formatierungen ausgenutzt habe, noch ein weiteres anliegen.
ich mochte wenn sich zelle c5c6 ist eine dicke Linie einfügen unter c5. dann das gleiche bei c6c7 unter c6 und das die ganze spalte c5:c250
der Tabellenbereich ist a5:q250
wo die dicke Linie sein muss , einige bespiele
c5 WZ0-1
c6 WZ0-1 hier untstreichen von a6 bis q6
c7 WZ0-3
c8 WZ0-3 hier untstreichen von a8 bis q8
c9 WZ0-2
c10 WZ0-2 hier untstreichen von a10 bis q10
c11 WZ0-4
habe mit diesem code begonnen , komme nicht weiter


Sub Rahmen()
'   unten
With Range("a5:F250")
.Borders(xlEdgeBottom).Weight = xlThick
End With
' zwischen den zeilen
With Range("a5:F250").Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThick
End With
End Sub

kann mir jemand dabei behilflich sein!!?
besten dank
rokki

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: linie unter zelle

10.11.2005 14:35:36

u_
AW: linie unter zelle

10.11.2005 17:08:03

rokki

AW: linie unter zelle

10.11.2005 14:35:36

Hallo,


Sub Linien()
Dim i As Integer
For i = 5 To 250
With Range(Cells(i, 1), Cells(i, 17)).Borders(xlEdgeBottom)
If Cells(i, 3) <> Cells(i + 1, 3) Then
.LineStyle = xlContinuous
.Weight = xlThick
Else
.LineStyle = xlNone
End If
End With
Next i
End Sub

Gruß
Geist ist geil!

AW: linie unter zelle

10.11.2005 17:08:03

rokki

hy u_
klappt suppi
vielen dank!!!
gruss
rokki

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um eine dicke Linie unter bestimmten Zellen in Excel einzufügen, kannst Du folgende VBA-Makros verwenden. Diese Vorgehensweise ist in Excel 2016 und späteren Versionen anwendbar.

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
Kopiere das folgende VBA-Skript in das Modul:

Sub Linien()
    Dim i As Integer
    For i = 5 To 250
        With Range(Cells(i, 1), Cells(i, 17)).Borders(xlEdgeBottom)
            If Cells(i, 3) <> Cells(i + 1, 3) Then
                .LineStyle = xlContinuous
                .Weight = xlThick
            Else
                .LineStyle = xlNone
            End If
        End With
    Next i
End Sub

Schließe den VBA-Editor und kehre zu Excel zurück.
Drücke ALT + F8, wähle das Makro Linien aus und klicke auf Ausführen.

Jetzt solltest Du dicke Linien unter den Zellen in Spalte C haben, wenn sich der Inhalt ändert.

Häufige Fehler und Lösungen

Fehler: Das Makro wird nicht ausgeführt.
Lösung: Stelle sicher, dass Du in der richtigen Arbeitsmappe bist und dass das Makro aktiviert ist. Gehe zu Datei > Optionen > Sicherheitscenter und aktiviere die Makros.
Fehler: Die Linien erscheinen nicht wie gewünscht.
Lösung: Überprüfe, ob die Zellen C5 bis C250 tatsächlich unterschiedliche Werte haben. Der Code fügt nur dann Linien ein, wenn sich der Wert in Spalte C ändert.

Alternative Methoden

Wenn Du kein VBA verwenden möchtest, kannst Du auch die bedingte Formatierung nutzen, um Linien zu erstellen. Dies ist allerdings weniger flexibel und erfordert manuelle Anpassungen.

Wähle den Zellbereich aus.
Gehe zu Start > Bedingte Formatierung > Neue Regel.
Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden.
Gib eine Formel ein, die prüft, ob der Wert in Spalte C sich ändert, und wähle eine benutzerdefinierte Formatierung mit einer unteren Linie.

Praktische Beispiele

Ein Beispiel für die Anwendung des VBA-Codes ist:

Wenn in Zelle C5 WZ0-1 steht und in C6 ebenfalls WZ0-1, wird keine Linie unter C5 gezeichnet.
Ändert sich der Wert in C6 zu WZ0-3, wird eine dicke Linie unter C5 eingefügt.

Tipps für Profis

Du kannst die Range anpassen, um nur bestimmte Bereiche zu formatieren. Zum Beispiel Range("C5:C250") nur für die Spalte C.
Experimentiere mit verschiedenen Linienstilen, indem Du .LineStyle änderst, um das Erscheinungsbild weiter anzupassen.
Füge mehr Bedingungen hinzu, um zusätzliche Formatierungen für andere Zellen zu erstellen.

FAQ: Häufige Fragen

1. Kann ich das Makro für andere Spalten verwenden?
Ja, Du kannst die Indizes in Cells(i, 1) und Cells(i, 17) ändern, um andere Spalten zu formatieren.

2. Was mache ich, wenn ich Excel 2013 oder älter benutze?
Der VBA-Code sollte auch in Excel 2013 funktionieren. Beachte jedoch, dass die Benutzeroberfläche leicht abweichen kann.

Beliebteste Forumthreads (12 Monate)