Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1256to1260
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
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verbindungspfeile einfärben mit wenn Bedingung

Verbindungspfeile einfärben mit wenn Bedingung
Ralf
Hallo Forum,
ich möchte zwei Pfeile mit einem VBA Code mit einer Wenn Bedingung ein- bzw. ausblenden. Als Workaround würde es mir reichen, die Pfeile von rot auf weiß zu ändern.
Die Elemente haben die Namen "Gerade Verbindung mit Pfeil 1" + "Gerade Verbindung mit Pfeil 2".
Der Makrorekorder zeichnet nichts auf.
Die Bedingung lautet:
wenn Zelle A31 = 1 dann Pfeile anzeigen in der Farbe rot
wenn Zelle A31 = 2 dann Pfeile ausblenden bzw. weiß einfärben
Kann mir dabei bitte jemand helfen?
Vielen Dank im Voraus.
Viele Grüße
Ralf

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Verbindungspfeile einfärben mit wenn Bedingung
16.04.2012 08:29:29
Bertram
Hallo Ralf,
mal auf die Schnelle: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objPfeil1 As Object
Dim objPfeil2 As Object
If Target.Address(0, 0) = "A31" Then
Set objPfeil1 = ActiveSheet.Shapes("Gerade Verbindung mit Pfeil 1")
Set objPfeil2 = ActiveSheet.Shapes("Gerade Verbindung mit Pfeil 2")
Select Case Target.Value
Case Is = 1
objPfeil1.Visible = True
objPfeil2.Visible = True
Case Is = 2
objPfeil1.Visible = False
objPfeil2.Visible = False
Case Else
End Select
End If
End Sub

Gruß
Bertram
AW: Verbindungspfeile einfärben mit wenn Bedingung
16.04.2012 08:37:10
Ralf
Hallo Bertram,
optimal. Vielen Dank für Deine Unterstützung.
Eine Frage habe ich noch:
Zellinhalt in A31 = 1 bzw. 2 war nur ein Beispiel. Kann man den Code verallgemeinern nach dem Schema:
A31 = "Text 0815" => Pfeil einblenden
A31 = "Text 4711" => Pfeil ausblenden
Ich weiß, hätte ich gleich sagen sollen, aber ich dachte ich könnte das dann selber anpassen.
Viele Grüße
Ralf
Anzeige
AW: Verbindungspfeile einfärben mit wenn Bedingung
16.04.2012 08:54:46
Ralf
Hallo Bertram,
optimal. Vielen Dank für Deine Unterstützung.
Eine Frage habe ich noch:
Zellinhalt in A31 = 1 bzw. 2 war nur ein Beispiel. Kann man den Code verallgemeinern nach dem Schema:
A31 = "Text 0815" => Pfeil einblenden
A31 = "Text 4711" => Pfeil ausblenden
Ich weiß, hätte ich gleich sagen sollen, aber ich dachte ich könnte das dann selber anpassen.
Viele Grüße
Ralf
AW: Verbindungspfeile einfärben mit wenn Bedingung
16.04.2012 09:00:15
Bertram
Hallo Ralf,
dann ersetze doch die 1 durch "Text 0815" und die 2 durch "Text 4711"
Gruß
Bertram
AW: Verbindungspfeile einfärben mit wenn Bedingung
16.04.2012 09:03:56
Ralf
Hallo Bertram,
danke für Deine Unterstützung.
Jetzt passt alles einwandfrei.
Viele Grüße
Ralf
Anzeige
Gerne oT
16.04.2012 09:17:30
Bertram

312 Forumthreads zu ähnlichen Themen

Mit formel Anfang und ende bestimmen
Stephan

Hallo zusammen,
Wie kan ich mit einer formel den anfang und das ende Festlegen?
Ich habe eine Tabelle mit dem Datum vom 1.8.08-31.8.08, und möchte nur eine woche anzeigen, das heisst in einer zelle "A1" das anfangdatum (4.8.2008) in der "A2" das enddatum (10.8.2008) und "A3" die berec...
09.08.2008 09:19:13
Thread-ID: 1000462
14 Beiträge
Anzeige
Wenn/Dann Formel
maxx_1985

Hallo liebe Excel-Experten,
haette evtl. jemand eine Idee fuer das folgende Problem.
Wenn in einer Zelle #NA kommt, soll Excel ausgeben: "Manual Input Needed"
=if(A1="#NA",Manual Input Needed",A1) --- diese Formel funktioniert leider nicht.
Ganz lieben Dank Euch im Voraus!
...
25.09.2008 15:44:23
Thread-ID: 1012359
7 Beiträge
3 Fragen Formatierung /WennDann/Formel
thorsten

Die Datei https://www.herber.de/bbs/user/56174.xls wurde aus Datenschutzgründen gelöscht
Hallo,
es geht um folgende 3 Fragen die ich habe:
1) In der Spalte M soll folgende Berechnung vorgenommen werden:
Es soll geprüft werden ob in J oder K eine Zahl eingetragen wurde – es ist...
21.10.2008 19:10:44
Thread-ID: 1018135
2 Beiträge
Anzeige
Textformatierung in einer Formel
Dieterlem

Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
27.10.2008 19:55:00
Thread-ID: 1019731
3 Beiträge
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge
Wenn > Dann Formel
William

Hallo Experten
Brauche für diese Tabelle bessere Lösung.
bis jetzt habe ich es nur geschafft wenn ich aller Werte "D" zusammen sortiert habe.
Währe schön wenn das ohne sortieren klappen könnte.
in etwa so:
wenn in Spalte B wert "D" vorkommt, dann in spalten C;Z die Summe erm...
23.11.2008 13:41:15
Thread-ID: 1027076
4 Beiträge
Wenn-Dann-Funktion als Makro
Sulley

Hallo zusammen,
ich hänge an einem Makro fest.
Matthias L und fcs (Vielen dank noch mal an dieser Stelle) haben mir mal jeder ein super makro gebaut, mit welchem ich Daten von einer Tabelle ans Ende einer anderen Tabelle schicken kann. Hat auch super geklappt.
Hier nochmal das Makro...
24.11.2008 16:47:36
Thread-ID: 1027372
11 Beiträge
Formel wenn dann zellvergleich Text
Karel

Hallo Forum,
wie kann ich Zellwert C mit Zellwert E vergleichen ausgaben in Zelle A
wenn C und D Leer dsnn A auch Leer
Tabelle1

 ABCDE2Ausgabe Textwert Textwert3Offen Bezahlt Offen4Bezahlt Bezahlt Bezahlt5Offen Bezahlt  6Of...
28.11.2008 20:04:52
Thread-ID: 1028782
5 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
13
4
6
1
7
2
9
3
10
4
2
10
21
1
6
1
3
2
5
2
3
1
3
9
11