Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Vertikale Linie in Spalte einfügen

Forumthread: Vertikale Linie in Spalte einfügen

Vertikale Linie in Spalte einfügen
22.02.2004 13:25:50
Roland
Hallo ich bin´s nochmal,
ich möchte in der unten selektierten Spalte eine vertikale Linie einfügen, um das Tagesdatum darzustellen.
intRow = ISOWeek(Worksheets("Projektplan").Cells(3, 7)) - Worksheets("Projektplan").Cells(3, Eintrag).Value _
+ StartspalteKalender
Worksheets("Projektplan").Range(Cells(ZeilenStartProjekt, intRow), Cells(AnzahlZeilen, intRow)).Select
Wer kann mir dabei bitte helfen ?
Danke Roland
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Vertikale Linie in Spalte einfügen
22.02.2004 13:33:08
Hajo_Zi
Hallo Rolamd
warum neuer Beitrag??

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
AW: Vertikale Linie in Spalte einfügen
22.02.2004 13:40:02
Roland
Hallo Hajo,
habe den ersten Beitrag nicht richtig formuliert. Bei Deiner Lösung werden in den einzelnen Zellen die Linien mittig und horizontal angeordnet. Ich möchte die Linie gerne von oben ( erste Zelle, Mitte) nach unten (Letzte selektierte Zelle mittig) haben. Also nicht horizontal sondern vertikal - Tschuldigung.
Kannst Du mir trotzdem helfen - bitte !
Anzeige
??
22.02.2004 18:51:37
Reinhard
Hi Roland,
Hajos Lösung macht doch genau das was du willst, Strich vertikal, also von oben nach unten!?
Gruß
Reinhard
hier nochmal Hajos Code:

Sub Durchstreichen_vertikal()
Dim RaZelle As Range
Dim WsTabelle As Worksheet
Set WsTabelle = ActiveSheet
For Each RaZelle In Selection
With WsTabelle.Shapes.AddLine(RaZelle.Left + RaZelle.Width / 2, RaZelle.Top, _
RaZelle.Left + RaZelle.Width / 2, RaZelle.Top + RaZelle.Height).Line
.DashStyle = msoLineSolid
.ForeColor.RGB = RGB(50, 0, 128)
End With
Next
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Vertikale Linie in Excel-Spalte einfügen


Schritt-für-Schritt-Anleitung

Um eine vertikale Linie in einer Excel-Spalte einzufügen, kannst du den folgenden VBA-Code verwenden. Dieser Code fügt einen senkrechten Strich in der Mitte der Zelle ein:

  1. Öffne Excel und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
  3. Füge den folgenden Code in das Modul ein:
Sub Durchstreichen_vertikal()
    Dim RaZelle As Range
    Dim WsTabelle As Worksheet
    Set WsTabelle = ActiveSheet
    For Each RaZelle In Selection
        With WsTabelle.Shapes.AddLine(RaZelle.Left + RaZelle.Width / 2, RaZelle.Top, _
        RaZelle.Left + RaZelle.Width / 2, RaZelle.Top + RaZelle.Height).Line
            .DashStyle = msoLineSolid
            .ForeColor.RGB = RGB(50, 0, 128)
        End With
    Next
End Sub
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Wähle die Zellen aus, in denen du die vertikale Linie einfügen möchtest.
  3. Drücke ALT + F8, wähle Durchstreichen_vertikal aus und klicke auf Ausführen.

Du solltest jetzt eine vertikale Linie in der Mitte der ausgewählten Zellen sehen.


Häufige Fehler und Lösungen

  • Fehler: Die Linie wird horizontal und nicht vertikal dargestellt.
    Lösung: Stelle sicher, dass du den Code genau wie oben beschrieben eingefügt hast. Überprüfe, ob du die richtige Auswahl von Zellen getroffen hast.

  • Fehler: Der Strich erscheint nicht.
    Lösung: Überprüfe, ob die Zellen, in denen du die Linie einfügen möchtest, ausgewählt sind und dass der VBA-Code korrekt ausgeführt wurde.


Alternative Methoden

Neben VBA gibt es auch andere Methoden, um senkrechte Linien in Excel zu zeichnen:

  1. Formen verwenden:

    • Gehe zu Einfügen > Formen und wähle die Linie aus.
    • Zeichne die Linie in der gewünschten Spalte.
  2. Zellenformatierung:

    • Wähle die Zellen aus.
    • Gehe zu Start > Rahmen und wähle Vertikales Rahmen.

Diese Methoden sind besonders nützlich, wenn du keine VBA-Kenntnisse hast.


Praktische Beispiele

Wenn du beispielsweise ein Excel-Diagramm mit einem senkrechten Strich in der Zelle zur Darstellung von Daten verwenden möchtest, kannst du die oben genannten Schritte befolgen. Eine vertikale Linie kann auch verwendet werden, um verschiedene Abschnitte innerhalb eines Arbeitsblatts zu trennen, z.B. um das Tagesdatum hervorzuheben.


Tipps für Profis

  • Nutze den VBA-Editor, um den Code anzupassen, z.B. die Farbe oder das Strichmuster der Linie.
  • Experimentiere mit verschiedenen Formen und Linienarten, um das Layout deines Arbeitsblatts zu verbessern.
  • Verwende die Funktion DashStyle im Code, um verschiedene Linienarten wie gestrichelte oder gepunktete Linien zu erstellen.

FAQ: Häufige Fragen

1. Frage
Wie kann ich eine Trennlinie zwischen Zeilen erstellen?
Antwort: Verwende die gleiche Methode mit dem VBA-Code, aber wähle die Zellen in zwei benachbarten Zeilen aus.

2. Frage
Kann ich die vertikale Linie formatieren?
Antwort: Ja, du kannst die Eigenschaften im VBA-Code anpassen, um die Farbe, Dicke und das Muster der Linie zu ändern.

3. Frage
Funktioniert das auch in Excel 365?
Antwort: Ja, der VBA-Code funktioniert in allen modernen Excel-Versionen, einschließlich Excel 365.

Beliebteste Forumthreads (12 Monate)

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