Zellen mit Linien durchstreichen

Forumthread: Zellen mit Linien durchstreichen

07.04.2006 11:22:22

Gerhard

Hallo,
wie kann ich in einem Formular Bereiche via Makro über mehrere Zellen rot durchstreichen?
Beispiel: Der Bereich von Zelle E10 (unten links) bis Zelle I7 (oben rechts)
soll schräg mit einer roten Linie durchgestrichen werden!
Sowie von B20 bis D16!
Desweiteren sollen nur diese durchgestrichenen Felder ebenfalls via Makro wieder entfernt werden können.
Vielen Dank für Eure Hilfe

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellen mit Linien durchstreichen

07.04.2006 11:47:14

UweD
AW: Zellen mit Linien durchstreichen

07.04.2006 11:57:53

Gerhard
AW: Zellen mit Linien durchstreichen

07.04.2006 13:07:48

u_

AW: Zellen mit Linien durchstreichen

07.04.2006 11:47:14

UweD

Hallo
so?


Sub diagonal_on()
With Union(ActiveSheet.Range("E10:I7"), ActiveSheet.Range("B20:D16")).Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 3
End With
End Sub


Sub diagonal_off()
Union(ActiveSheet.Range("E10:I7"), ActiveSheet.Range("B20:D16")).Borders(xlDiagonalUp).LineStyle = xlNone
End Sub

Gruß UweD
(Rückmeldung wäre schön)

AW: Zellen mit Linien durchstreichen

07.04.2006 11:57:53

Gerhard

Hallo Uwe,
ich möchte nur 1 diagonale Linie zum Durchstreichen verwenden!
Also beginnend unten links in Zelle E10 bis zum Ende oben rechts in Zelle I7 usw.
Gruß
Gerhard

AW: Zellen mit Linien durchstreichen

07.04.2006 13:07:48

Hallo,


Sub Linien_rein()
Dim shp As Shape, x1, y1, x2, y2
x1 = Range("E10").Left
y1 = Range("E10").Top + Range("E10").Height
x2 = Range("I7").Left + Range("I7").Width
y2 = Range("I7").Top
Set shp = ActiveSheet.Shapes.AddLine(x1, y1, x2, y2)
With shp
.Line.ForeColor.SchemeColor = 10
.Line.Visible = msoTrue
.Name = "Lin_1"
End With
x1 = Range("B20").Left
y1 = Range("B20").Top + Range("B20").Height
x2 = Range("D16").Left + Range("D16").Width
y2 = Range("D16").Top
Set shp = ActiveSheet.Shapes.AddLine(x1, y1, x2, y2)
With shp
.Line.ForeColor.SchemeColor = 10
.Line.Visible = msoTrue
.Name = "Lin_2"
End With
End Sub


Sub Linien_Raus()
ActiveSheet.Shapes("Lin_1").Delete
ActiveSheet.Shapes("Lin_2").Delete
End Sub

Gruß
Geist ist geil!

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um Zellen in Excel diagonal durchzustreichen, kannst du entweder VBA-Makros verwenden oder die Zeichentools nutzen. Hier ist eine einfache Anleitung:

VBA-Makro für diagonale Linie:
- Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
- Erstelle ein neues Modul mit Einfügen > Modul.
- Füge den folgenden Code ein, um eine diagonale Linie in den Zellen E10 bis I7 zu zeichnen:
```
Sub diagonal_on()
   With ActiveSheet.Range("E10:I7").Borders(xlDiagonalUp)
       .LineStyle = xlContinuous
       .Weight = xlThin
       .ColorIndex = 3 'Rot
   End With
End Sub
```
- Um die Linie zu entfernen, kannst du diesen Code verwenden:
```
Sub diagonal_off()
   ActiveSheet.Range("E10:I7").Borders(xlDiagonalUp).LineStyle = xlNone
End Sub
```
Zeichentools verwenden:
- Gehe auf die Registerkarte „Einfügen“ und klicke auf „Formen“.
- Wähle die Linie aus und ziehe sie von der unteren linken Ecke (E10) zur oberen rechten Ecke (I7).
- Du kannst die Linie anpassen, indem du mit der rechten Maustaste darauf klickst und „Form formatieren“ wählst.

Häufige Fehler und Lösungen

Fehler: Die diagonale Linie wird nicht angezeigt.
- Lösung: Stelle sicher, dass der Zellbereich korrekt ausgewählt ist und dass die Linienstile richtig gesetzt sind.
Fehler: VBA-Makro funktioniert nicht.
- Lösung: Überprüfe, ob Makros in Excel aktiviert sind. Gehe zu „Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Makroeinstellungen“.

Alternative Methoden

Wenn du kein VBA verwenden möchtest, gibt es auch alternative Methoden:

Verwendung von bedingter Formatierung: Damit kannst du Zellen farblich anpassen, aber keine diagonalen Linien erstellen.
Zeichnen von Formen: Du kannst Linien oder Formen verwenden, um Zellen visuell zu durchstreichen, wie im vorherigen Abschnitt beschrieben.

Praktische Beispiele

Durchstreichen mehrerer Zellen:

Verwende die Union-Methode, um mehrere Zellen in einem Makro zu kombinieren. Beispiel:

Sub multiple_diagonal()
   With Union(ActiveSheet.Range("E10:I7"), ActiveSheet.Range("B20:D16")).Borders(xlDiagonalUp)
       .LineStyle = xlContinuous
       .Weight = xlThin
       .ColorIndex = 3
   End With
End Sub

Leere Zellen durchstreichen:
- Du kannst auch leere Zellen mit einer Linie durchstreichen. Stelle sicher, dass die Zellen im Makro ausgewählt sind.

Tipps für Profis

Nutze die Möglichkeit, die Farbe und Dicke der Linien in VBA anzupassen.
Experimentiere mit der Positionierung der Linien, um verschiedene Designs zu erstellen.
Speichere deine Makros als Add-In, um sie in anderen Excel-Dateien zu verwenden.

FAQ: Häufige Fragen

1. Wie kann ich eine Zelle diagonal durchstreichen? Du kannst entweder VBA verwenden oder eine Linie von einer Ecke der Zelle zur anderen ziehen.

2. Funktioniert dieses Verfahren in allen Excel-Versionen? Ja, die beschriebenen Methoden sind in den meisten aktuellen Excel-Versionen verfügbar.

3. Kann ich mehrere Zellen gleichzeitig durchstreichen? Ja, du kannst mehrere Zellen in einem Makro kombinieren oder mehrere Linien zeichnen.

4. Wie entferne ich die diagonalen Linien? Du kannst das entsprechende VBA-Makro verwenden oder die gezeichneten Linien manuell löschen.

Beliebteste Forumthreads (12 Monate)

Forumthread: Zellen mit Linien durchstreichen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Zellen diagonal durchstreichen in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread