Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1200to1204
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1200to1204
1200to1204
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen mit gleichen Inhalten mit Pfeilen verbinden

Zellen mit gleichen Inhalten mit Pfeilen verbinden
Stef@n
Hallo Excel-Freunde,
mal eine für mich selber ungewöhnliche Frage ;)
Ich habe zwei Tabellen, die im Sheet nebeneinander stehen.
Einzelne Inhalte der Tabelle 1 sind auch in Tabelle 2 enthalten.
Diese jeweiligen Zellinhalte sollen mit einem Pfeil verbunden werden.
Wenn Zellinhalt a2 = d5 - Pfeil
Wenn Zellinhalt a5 = d1 - Pfeil
usw
Kann man so etwas realisieren ? VBA ?
Freu mich auf einen Tip
Gruß
Stef@n
AW: Zellen mit gleichen Inhalten mit Pfeilen verbinden
16.02.2011 12:59:15
Reinhard
Hallo Stefan, 

Option Explicit
Sub check()
Dim ZeiA As Long, ZeiD As Long, Nr As Integer
Call Loesch
With Worksheets("Tabelle1")
For ZeiA = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
For ZeiD = 1 To .Cells(Rows.Count, 4).End(xlUp).Row
If .Cells(ZeiA, 1).Value = .Cells(ZeiD, 4).Value Then
MsgBox .Cells(ZeiA, 1).Value & " " & .Cells(ZeiD, 4).Value
Nr = Nr + 1
Call Pfeil(.Cells(ZeiA, 1), .Cells(ZeiD, 4), Nr)
End If
Next ZeiD
Next ZeiA
End With
End Sub
Sub Pfeil(rngA As Range, rngD As Range, ByVal Nr As Long)
Dim xA, yA, xD, yD
xA = rngA.Left + 20
yA = rngA.Top + 6
xD = rngD.Left + 20
yD = rngD.Top + 6
With Worksheets("Tabelle1")
.Shapes.AddLine(xA, yA, xD, yD).Name = "Pfeil" & Nr
With .Shapes("Pfeil" & Nr)
.Line.EndArrowheadStyle = msoArrowheadTriangle
.Line.EndArrowheadLength = msoArrowheadLengthMedium
.Line.EndArrowheadWidth = msoArrowheadWidthMedium
If yD

Gruß
Reinhard
Anzeige
AW: Zellen mit gleichen Inhalten mit Pfeilen verbinden
16.02.2011 13:49:16
Stef@n
Hallo Reinhard,
coool ! Danke !
Klappt (fast) perfekt ! Er verbindet einige Zellen, obwohl die Inhalte nicht identisch sind
und es fehlen auch welche ...
Hier die Beispiel-Datei
https://www.herber.de/bbs/user/73582.xls
Kannst Du nochmal schauen ?
Evtl. die Pfeile auch durch Striche ersetzen ?
Besten Gruß
Stef@n
AW: Zellen mit gleichen Inhalten mit Pfeilen verbinden
16.02.2011 13:54:47
robert
Hi,
diese Zeile löschen oder auskommentieren wie gezeigt
'If yD < yA Then .Flip msoFlipVertical
gruß
robert
AW: Zellen mit gleichen Inhalten mit Pfeilen verbinden
16.02.2011 14:25:59
Stef@n
Hallo Robert,
na, den Fehler hatte ich jetzt selbst "produziert"
Funktioniert einwandfrei
Danke Dir sehr !
Besten Gruß
Stef@n
Anzeige
AW: Zellen mit gleichen Inhalten mit Pfeilen verbinden
16.02.2011 15:25:39
Reinhard
Hallo Stefan,
komisch, bei Tests brauchte ich irgendwie das Flip, aber okay, wenn es ohne geht.
Die Pfeilspitze habe ich jetzt entfernt.
Und auch die Berechnungen von Left und Top verändert. Left reagiert jetzt auf Spaltenbreiteänderung in A. 
Option Explicit
Sub check()
Dim ZeiA As Long, ZeiD As Long, Nr As Integer
Call Loesch
With Worksheets("Tabelle1")
For ZeiA = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
For ZeiD = 1 To .Cells(Rows.Count, 4).End(xlUp).Row
If .Cells(ZeiA, 1).Value = .Cells(ZeiD, 4).Value Then
Nr = Nr + 1
Call Pfeil(.Cells(ZeiA, 1), .Cells(ZeiD, 4), Nr)
End If
Next ZeiD
Next ZeiA
End With
End Sub
Sub Pfeil(rngA As Range, rngD As Range, ByVal Nr As Long)
Dim xA, yA, xD, yD
xA = rngA.Offset(0, 1).Left
yA = rngA.Top + (rngA.Offset(1, 0).Top - rngA.Top) / 2
xD = rngD.Left + 1
yD = rngD.Top + (rngD.Offset(1, 0).Top - rngD.Top) / 2
With Worksheets("Tabelle1")
.Shapes.AddLine(xA, yA, xD, yD).Name = "Pfeil" & Nr
With .Shapes("Pfeil" & Nr)
'.Line.EndArrowheadStyle = msoArrowheadTriangle
.Line.EndArrowheadLength = msoArrowheadLengthMedium
.Line.EndArrowheadWidth = msoArrowheadWidthMedium
'If yD

Gruß
Reinhard
Anzeige
Perfekt ! Danke ! OT
18.02.2011 09:55:49
Stef@n

332 Forumthreads zu ähnlichen Themen

mehrere Zellen markieren verhindern
Dirk

Hallo miteinander,
brauche nochmals von Euch Hilfe, bitte.
Habe bei einer meiner Dateien eine Gültigkeitsprüfung (nur X zulassen) und vba trägt in einen Bereich beim reinklicken ein X ein, wenns schon drin ist wirds gelöscht, soweit kein Problem.
Problem: wenn man nun aus Versehen o...
03.09.2008 22:12:34
Thread-ID: 1007244
3 Beiträge
Anzeige
Mehrere Dateien in eine Tabelle zusammenfassen
Reptil

Guten Morgen zusammen.
ich weiß, ähnliche fragen waren schon häufiger hier, aber genau das was ich suche habe ich nicht gefunden.
ich habe mehrere Exceltabellen, in zwei ordnern, aus denen ich bestimmte daten in eine andere auslesen möchte. dabei sollen erstens nicht alle daten gelesen...
12.09.2008 09:46:00
Thread-ID: 1009283
6 Beiträge
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
Anzeige
Zellen mit gleicherm Inhalt verbinden
marcl

Hallo Froumsgemeinde,
ich bin auf der Suche nach einer aus meiner Sicht komplizierten Schleife.
Ich möchte ab einer gewissen Zellen alle darunter befindlichen, welche den gleichen Inhalt oder keine Inhalt haben und links oder rechts daneben belegt sind, zusammen fassen. Das so lange, bi...
17.11.2008 13:37:00
Thread-ID: 1025198
5 Beiträge
mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
mehrere Wenn abfragen in einer Formel
skippy

Hallo stehe im mom auf den schlauch
möchte gern folgende Abfrage machen krieg aber die Formel nicht hin
Wenn e7-d7>=10;2;0 wenn e7-d7>8;1,5;0 wenn e7-d7>6;1;0 wenn e7-d7>4;0,5;0
Wie muss ich die Formel schreiben, bekomme immer einen Syntaxfehler wenn ich daraus eine Fo...
01.01.2009 21:42:55
Thread-ID: 1036302
4 Beiträge
mehrere Befehle in einen Blatt
Werner

Hallo zusammen,
ich habe folgendes Problem. In einen Tabellenblatt habe ich sehr viele Makros, bei Befehlschaltflächen ist das kein Problem, jedeoch habe ich mehrere(über 100) Private Sub Worksheet_Calculate() es kommt eine Fehlermeldung Mehrdeutiger Name. Wie könnte man das Problem Lösen?...
08.01.2009 22:18:00
Thread-ID: 1038059
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
5
4
3
4
2
6
3
2
4
1
2
4
4
8
3
2
2
3
8
10
7
4
8