Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verbindungspfeile einfärben mit wenn Bedingung

Forumthread: 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
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
Anzeige
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
Anzeige
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
Gerne oT
16.04.2012 09:17:30
Bertram
Anzeige

Forumthreads zu verwandten Themen

Indirekt-Formel mit Wenn-Funktion?
Ingrid

Hallo, hab noch ein Problem...
Gibts auch die Möglichkeit diese Indirekt-Formel (wie schon in "Auto-Ausfüllen: Zelle gleich - anderes Tabellenblatt" besprochen) mit einer Wenn-Funktion zu versehen?
=INDIREKT("'" &ZEILE(D1) &"'!B16")
Wenn B16="" Dann C16
LG
Ingrid
11.09.2008 14:37:28
Thread-ID: 1009130
5 Beiträge
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
Wenn Dann - Formel
thorsten

Hallo,
ich habe ein datei hochgeladen als Beispiel und dort meine Frage, bzw. Problem genau geschildert.
https://www.herber.de/bbs/user/56190.xls
Ich denke, oder hoffe, dass das kein Problem ist - aber für mich einfach unlösbar - da Laie.
Vielen Dank für die Hilfe
Viele Grü...
22.10.2008 12:12:00
Thread-ID: 1018302
8 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
Formelproblem "wenn(text - beinhaltet, dann....)
Andi

Hallo Experten,
Ich steh bei folgender Excelformel an.
=WENN(D13=....folgender text beinhaltet ist (AA).....;"True";"false")
Ich würde gerne überprüfen ob im Feld D13 der Text "AA" vorkommt (z.B. Artikel "AA01"), falls dies zutrifft bitte "True" schreiben, ansonsten "false".
Da...
04.12.2008 11:42:00
Thread-ID: 1030117
3 Beiträge
Formel WENN DANN
Hirtenanna

Hallo Gemeinde,
wende mich heute mit einem Formelproblem an Euch, wo ich bisher keine Lösung für ergoogeln bzw. im Forum finden konnte. Weiß nur, das es sich wohl um eine WENN DANN Formel handeln muß.
Also:
Ich habe in den Zellen V4 R4 N4 J4 F4 Z4 Zeiten stehen, welche als Summe in...
25.01.2009 12:12:00
Thread-ID: 1043536
11 Beiträge
Anzeige
wenn dann funktion
jannis

Hallo zusammen
wäre super wenn mir einer weiterhelfen könnte!
3 lösungen bräuchte ich für folgende berechnungen
1.Beispiel
wenn das Ergebniss gößer als das Ziel dann 1 ; wenn das Ergebniss kleiner dann -1
wenn gleich bleibend dann 0
2. Beispiel (ich weis nicht ob man hi...
09.03.2009 15:02:36
Thread-ID: 1058181
22 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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