Bedingte Formatierung

Computer: Software & Programmierung Office Software
1

Hallöchen,
ich steh mal wieder völlig auf dem Schlauch.
Ich möchte in einer Tabelle eine Zelle mit einer diagonalen Rahmenlinie kenntlich machen, solange sie leer ist.
Sobald ich etwas eintrage, soll die Diagonale verschwinden.Mein erster Ansatz war, bedingte Formatierung.Aber ich weiss nicht wie ???

2

ich steh mal wieder völlig auf dem Schlauch.
Ich möchte in einer Tabelle eine Zelle mit einer diagonalen
Rahmenlinie kenntlich machen, solange sie leer ist.
Sobald ich etwas eintrage, soll die Diagonale
verschwinden.Mein erster Ansatz war, bedingte
Formatierung.Aber ich weiss nicht wie ???

Hi Schadre,
Bereich, z.B. A1:A10 markieren, bedingte Formatierung, Formel ist:
=A1=""
Gru0
Reinhard

3

Hallo

Ich möchte in einer Tabelle eine Zelle mit einer diagonalen
Rahmenlinie kenntlich machen, solange sie leer ist.
Sobald ich etwas eintrage, soll die Diagonale
verschwinden.Mein erster Ansatz war, bedingte
Formatierung.Aber ich weiss nicht wie ???

Das geht wohl nicht. Bei mir (Excel2003) erscheint bei der bedingten Formatierung als Rahmen nur dir Option der Ränder, also keine schrägen Linien. Hingegen kannst du alle Muster inkl. Farben verwenden.
Ich meine, du solltest auf dieser Schiene weiterfahren.
Erich

4

O.T. Diagonaler Rahmen

Ich möchte in einer Tabelle eine Zelle mit einer diagonalen
Rahmenlinie kenntlich machen, solange sie leer ist.
Sobald ich etwas eintrage, soll die Diagonale
verschwinden.Mein erster Ansatz war, bedingte
Formatierung.Aber ich weiss nicht wie ???

Das geht wohl nicht. Bei mir (Excel2003) erscheint bei der
bedingten Formatierung als Rahmen nur dir Option der Ränder,
also keine schrägen Linien. Hingegen kannst du alle Muster
inkl. Farben verwenden.
Ich meine, du solltest auf dieser Schiene weiterfahren.

Hallo Erich,
auch wenn ich mehrere Zellen, auch z.B. 2x2,3x3 Bereiche, markiere, geht das Diagonale nicht.
Wann geht es denn?
Gruß
Reinhard

5

Bedingte Formatierung
Danke Reinhard das mit der Formel hat schon mal geklappt. Aber ich habe es richtig verstanden, das das mit der Diagonalen nicht klapt

6

Danke Reinhard das mit der Formel hat schon mal geklappt. Aber
ich habe es richtig verstanden, das das mit der Diagonalen
nicht klapt

Hi Schadre,
über Format–Zelle klappt das ja mit der Diagonalen. Also ginge es mit Vba bestimmte Zellen zu „überwachen“ ob dort Werte eingetragen werden und dementsprechend die diagonalen zu setzen.
Allerdings lösen Formelergebnisse nicht den Vba-Code aus sondern nur manuelle Eingaben.
Beispiel, man überwacht „A1“. Solangge es leer ist hat es die Diagonale. Wird manuell ein Wert eingetragen entfernt Vba diese Diagonale automatisch. Wird dieser Wert wieder gelöscht, setzt Vba automatisch wieder die Diagonale.
Steht nun aber in A1 eine Excelformel klappt das nicht so, sondern man muss dann die Zelle überwachen in der man manuell etwas einträgt (oder reinkopiert) was dann die Wertänderung inA1 zur Folge hat.
Also welche Zellen sollen überwacht werden und in welche Zellen soll daraufhin die Diagonale gelöscht/gesetzt werden?
Gruß
Reinhard

7

Also bei meinem speziellen Fall ist es einfach die Spalte „K“. Diese beinhaltet keine Formeln, sondern ich befülle diese Spalte einfach manuell, ebenso lösche ich die Inhalte auch einfach.
Zu meiner Schande muss ich aber gestehen das ich von VBA gar keine Ahnung habe.

8

Hi Schadre,
Alle gewünschten Zellen in K durch Format–Zelle „diagonalisieren“.
Alt+F11, Doppelklick auf „Tabelle1“, Code einfügen, ggfs anpassen, Editor schliessen.

Option Explicit
Private Sub Worksheet\_Change(ByVal Target As Range)
If Target.Column 11 Then Exit Sub 'A=1, B=2,...,K=11
If Target.Value "" Then
 With Target.Borders(xlDiagonalDown)
 .LineStyle = xlNone
 End With
 With Target.Borders(xlDiagonalUp)
 .LineStyle = xlNone
 End With
Else
 With Target.Borders(xlDiagonalDown)
 .LineStyle = xlContinuous
 .Weight = xlThin
 .ColorIndex = xlAutomatic
 End With
 With Target.Borders(xlDiagonalUp)
 .LineStyle = xlContinuous
 .Weight = xlThin
 .ColorIndex = xlAutomatic
 End With
End If
End Sub

Gruß
Reinhard

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

9

Danke Reinhard, um es einmal „platt“ zu sagen:

DAS WAR SPITZE

10

Danke Reinhard, um es einmal „platt“ zu sagen:
DAS WAR SPITZE

Hi Schadre,
leider kann ich keine norddeutsche Sprache wie „platt“, naja werd mir das übersetzen lassen was „das war Spitze“ bedeuten könnte *grien*
Gruß
reinhard