Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
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
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagonale Rahmenlinien mit Hilfe von VBA

Forumthread: Diagonale Rahmenlinien mit Hilfe von VBA

Diagonale Rahmenlinien mit Hilfe von VBA
22.12.2016 08:23:13
Michael

Ich versuche mal, mein Problem zu schildern ...
In manchen Zellen meiner Excel-Tabelle kann "ja" oder "nein" stehen. Nun hätte ich gerne, dass - wenn zB in der Zelle C6 das Wort "ja" steht - die Zelle A6 diagonale Rahmenlinien bekommt [allgemein und anders formuliert: Die Zelle soll diagonal gestrichen werden, wenn die Zeile in der selben Zeile, aber zwei Spalten weiter das Wort "ja" enthält.]. Über eine bedingte Formatierung ist dies nicht machbar ... aber über VBA sollte es klappen.
Derzeit bin ich so weit ... bei der 'Adressierung' habe ich allerdings grobe Schwierigkeiten.
Ich hoffe, dass nicht mehr allzuviel fehlt. Kann mir bitte jemand weiterhelfen?
Danke schon mal ...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Offset(0, 2) = "ja" Then
With Target
With .Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
End With
Else
With Target
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlDiagonalDown).LineStyle = xlNone
End With
End If
End Sub

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagonale Rahmenlinien mit Hilfe von VBA
22.12.2016 08:37:47
Hajo_Zi
ich vermute es soll bei der Eingabe von "ja" 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "ja" Then
With Target.Offset(0, 2)
With .Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
End With
Else
With Target.Offset(0, 2)
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlDiagonalDown).LineStyle = xlNone
End With
End If
End Sub

Anzeige
AW: Diagonale Rahmenlinien mit Hilfe von VBA
22.12.2016 08:51:10
Michael
Danke für die rasche Rückmeldung. Leider war ich in meiner Schilderung nicht präzise genug.
In der Spalte A stehen Wochentage, in der Spalte B kann ein "x" eingetragen werden. In der Spalte C steht in der Folge "ja", wenn es sich um einen Samstag handelt oder um einen Sonntag handelt oder in der Spalte B ein "x" eingetragen ist.
Und ich hätte nun gerne, dass ein "ja" bewirkt, dass die Wochentagszelle diagonal gestrichen wird.
Anzeige
AW: Diagonale Rahmenlinien mit Hilfe von VBA
22.12.2016 09:16:12
Hajo_Zi
nur wenige sehen Deine Datei. Man könnte vermuten bei ja steht eine Formel.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "x" Then
With Target.Offset(0, 1)
With .Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
End With
Else
With Target.Offset(0, 1)
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlDiagonalDown).LineStyle = xlNone
End With
End If
End Sub

Anzeige
AW: Diagonale Rahmenlinien mit Hilfe von VBA
22.12.2016 10:05:41
Michael
Vielen Dank nochmals für die rasche Rückmeldung und die Hilfe.
AW: Diagonale Rahmenlinien mit Hilfe von VBA
22.12.2016 08:47:33
Christian
hallo Michael, 

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
With Target
If .Value = "ja" Then
With .Offset(0, -2).Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With .Offset(0, -2).Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
Else
.Offset(0, -2).Borders(xlDiagonalUp).LineStyle = xlNone
.Offset(0, -2).Borders(xlDiagonalDown).LineStyle = xlNone
End If
End With
End Sub
Gruß
Christian
Anzeige
AW: Diagonale Rahmenlinien mit Hilfe von VBA
22.12.2016 10:07:08
Michael
Vielen Dank nochmals für die rasche Rückmeldung und die Hilfe.
Folgendes reicht:
22.12.2016 09:22:54
RPP63
Moin!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&
If Target.Column <> 3 Then Exit Sub
With Target
   For i = 5 To 6
      If .Value = "ja" Then
         .Offset(0, -2).Borders(i).LineStyle = xlContinuous
      Else
         .Offset(0, -2).Borders(i).LineStyle = xlNone
      End If
   Next
End With
End Sub
Gruß Ralf
Anzeige
AW: Folgendes reicht:
22.12.2016 10:06:19
Michael
Vielen Dank nochmals für die rasche Rückmeldung und die Hilfe.
AW: Folgendes reicht:
22.12.2016 10:06:47
Michael
Vielen Dank nochmals für die rasche Rückmeldung und die Hilfe.

;

Forumthreads zu verwandten Themen

Zelle durchestrichen, dann die Zeile ausblenden...
Selma

Hi Leute,
ich habe wieder zwei Fragen:
1) Wenn in meinem Tabellenblatt "Konzept 1" eine Zelle in irgendeine Zeile durchgestrichen
dargestellt ist, soll diese Zeile in der mindestens eine durchgestrichene Zelle
auftaucht, per Makro versteckt (ausgeblendet) werden.
Bsp.
E...
08.05.2004 00:09:33
Thread-ID: 426001
5 Beiträge
Anzeige
Linienchart ... "Absturz" durch leere Zellen !
proxima05

Ich habe eine Frage. Aus einem Bereich A1:b500 (A= X-Achse, B= Werte) erstelle ich einen Linienchart. Soweit so gut. Wenn der gesamte Bereich "B1:B500" gefüllt ist, sieht die Kurve auch ordentlich aus. Da sich die einzelnen Zellen in "B" erst zu bestimmten Zeiten errechnen, also über eine besti...
22.01.2006 13:34:09
Thread-ID: 722587
3 Beiträge
Zellen durch Linien verbinden
US

Hallo!!
Ich habe mehrere Variablen ( Range), die ich durch einfache farbige Linien verbunden haben möchte. Das soll etwa so ähnlich wie ein Diagramm werden. Ist das mittels VBA möglich?
Danke
02.03.2006 18:29:42
Thread-ID: 739728
5 Beiträge
Vba wenn Zelle durchgestrichen dann ans Ende der Tabelle
Chrisnw
Hallo, ich möchte gerne wenn der Zellen Inhalt von Spalte B durchgestrichen wird, die ganze Zeile ans Ende der Tabelle verschieben. Und dann noch den Inhalt der Zelle in Spalte C (in der gleichen Zeile) löschen. Kann mir jemand sagen wie ich das in VBA lösen kann. Danke schon mal
28.08.2024 18:09:01
Thread-ID: 1989442
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Diagonale Rahmenlinien in Excel mit VBA erstellen

Schritt-für-Schritt-Anleitung

  1. Öffne deine Excel-Datei und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Finde das Arbeitsblatt, in dem du die diagonalen Rahmenlinien hinzufügen möchtest, und doppelklicke darauf.

  3. Kopiere den folgenden Code in das Code-Fenster:

    Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 3 Then Exit Sub
    With Target
        If .Value = "ja" Then
            With .Offset(0, -2).Borders(xlDiagonalUp)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlThin
            End With
            With .Offset(0, -2).Borders(xlDiagonalDown)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlThin
            End With
        Else
            .Offset(0, -2).Borders(xlDiagonalUp).LineStyle = xlNone
            .Offset(0, -2).Borders(xlDiagonalDown).LineStyle = xlNone
        End If
    End With
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu deiner Excel-Tabelle.

  5. Teste die Funktion: Wenn du in der Spalte C "ja" eingibst, sollte die Zelle in Spalte A diagonal durchgestreicht werden.

Häufige Fehler und Lösungen

  • Fehler: Nichts passiert, wenn ich "ja" eingebe.

    • Lösung: Überprüfe, ob der Code im richtigen Arbeitsblatt eingegeben wurde. Der Code muss im spezifischen Sheet-Modul sein.

  • Fehler: Zellen werden nicht diagonal durchgestrichen.

    • Lösung: Stelle sicher, dass du die Formatierung für die Zellen in Spalte A korrekt gesetzt hast. Die Offset-Werte müssen stimmen.

Alternative Methoden

Wenn du keine VBA-Lösungen verwenden möchtest, kannst du eine bedingte Formatierung nutzen, um Zellen visuell hervorzuheben, auch wenn diese keine diagonalen Striche unterstützt. Eine Möglichkeit ist, die Zelle mit einer Hintergrundfarbe zu füllen oder spezielle Schriftarten zu verwenden.

Praktische Beispiele

Hier ist ein einfaches Beispiel, um zu sehen, wie die VBA-Anwendung funktioniert:

  • In der Spalte A stehen Wochentage.
  • In der Spalte B kannst du ein "x" eintragen.
  • In der Spalte C wird "ja" angezeigt, wenn es sich um einen Samstag, Sonntag oder ein "x" handelt. Wenn "ja" eingegeben wird, erhält die entsprechende Zelle in Spalte A einen diagonalen Rahmen.

Tipps für Profis

  • Verwende Variablen für die Offset-Werte, um den Code flexibler zu gestalten. So kannst du schneller Anpassungen vornehmen, ohne den gesamten Code zu ändern.

  • Dokumentiere deinen VBA-Code mit Kommentaren. Das macht es einfacher, den Code später zu verstehen und zu warten.

FAQ: Häufige Fragen

1. Frage
Wie kann ich die diagonalen Linien bei anderen Bedingungen hinzufügen?
Antwort: Du kannst die Bedingungen in der If-Anweisung im VBA-Code anpassen, um andere Werte oder Bedingungen zu prüfen.

2. Frage
Funktioniert dieser VBA-Code in allen Excel-Versionen?
Antwort: Ja, der Code sollte in allen modernen Versionen von Excel funktionieren, die VBA unterstützen.

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