Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2008to2012
2008to2012
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Zellenoptisch mit einem Pfeil verbinden

Forumthread: Zellenoptisch mit einem Pfeil verbinden

Zellenoptisch mit einem Pfeil verbinden
13.03.2025 09:51:03
Simi
Hallo ich hätte folgendes Problem:

ich möchte gerne zwei oder drei x beliebige Zellen markieren und diese per Knopfdruck optisch mit einem Pfeil verbinden.

Ich hab dies mit VBA versucht. Es funktioniert leider nur halb da der Pfeil immer nur gerade nach unten oder waagrecht gezeichnet wird.

Der Pfeil sollte jedoch schräg verlaufen. Geht das?
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellenoptisch mit einem Pfeil verbinden
13.03.2025 10:13:17
Oberschlumpf
Hi,

zeig mal bitte per Upload in einer Bsp-Datei, wie du das, was du schon hast, geschafft hast.
Und zeig mal in der Bsp-Datei = extra Blatt, so, wie du es gern haben möchtest. Im extra Blatt kannst du dein "Ziel" ja irgdwie per Hand malen. Ich möcht nur sehen können, was du erreichen möchtest.

Ciao
Thorsten
Anzeige
AW: Zellenoptisch mit einem Pfeil verbinden
13.03.2025 11:27:55
daniel
Hi
was möchtest du denn haben?
in der Beschreibung schreibst du "schräger Pfeil", dein Beispiel zeigt aber einen gewinkelten Pfeil.
beim Gewinkelten Pfeil gibt es zwei möglichkeiten: erst nach links und dann nach unten, oder erst nach unten und dann nach links.
wie soll es denn sein?

Gruß Daniel
Anzeige
AW: Zellenoptisch mit einem Pfeil verbinden
13.03.2025 11:28:00
Ulf
Hi
have it a try 
Option Explicit



Private Type Punkt

    X As Long

    Y As Long

End Type



Sub Makro1()

    Dim pt(1) As Punkt

    

    Dim zelle1 As Range

    Dim zelle2 As Range

    Dim pfeil As Shape

    Dim arr As Variant

    ' Zellen zuweisen

    If Selection.Cells.Count = 2 Then

        arr = Split(Selection.Address, ",", , vbTextCompare)

    Else

        Exit Sub

    End If

    Set zelle1 = ActiveSheet.Range(arr(0))

    Set zelle2 = ActiveSheet.Range(arr(1))

    

    With pt(0)

        .X = zelle1.Left + zelle1.Width

        .Y = zelle1.Top + zelle1.Height

    End With

    With pt(1)

        .X = zelle2.Left ' + zelle2.Width / 2

        .Y = zelle2.Top '+ zelle2.Height ' / 2

    End With



    Set pfeil = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, pt(0).X, pt(0).Y, pt(1).X, pt(1).Y)

    pfeil.Line.ForeColor.RGB = RGB(0, 0, 0) ' Pfeilfarbe: Schwarz

    pfeil.Line.Weight = 2 ' Pfeildicke

    pfeil.Fill.Visible = msoFalse ' Keine Füllung



End Sub

hth
Ulf
Anzeige
AW: Zellenoptisch mit einem Pfeil verbinden
13.03.2025 11:38:31
Simi
Hallo an Alle,

danke für die Antworten.
Ich habs geschaft. Musste meinen Cod leicht um ändern und die Reihenfolge beim eingeben ändern.

Nun funktioniert es dass ich egal welche Zellen mit einer Linie verbinden kann.

Danke
AW: Zellenoptisch mit einem Pfeil verbinden
13.03.2025 10:25:39
Simi
Hallo Oberschlumpf,

im Anhang hab ich was ich habe und wie ich es mir vorstelle eingefügt.
https://www.herber.de/bbs/user/176238.xlsm
Nicht über den VBA Code erschrecken da ich beim VBA nur sehr bescheidene bis fast keine Kenntnisse habe.
Anzeige
AW: Zellenoptisch mit einem Pfeil verbinden
13.03.2025 11:11:21
Oberschlumpf
Hi,

leider bekomm ich es nicht hin. Aber vllt kann dir, mit Hilfe deiner Datei, jemand anderes helfen.

Ciao
Thorsten
AW: Zellenoptisch mit einem Pfeil verbinden
13.03.2025 11:14:03
Simi
Danke aber für den Versuch.

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum