Thema Datum  Von Nutzer Rating
Antwort
29.01.2019 14:53:41 Hansruedi
NotSolved
30.01.2019 08:58:14 Gast41910
NotSolved
30.01.2019 10:59:50 Hansruedi
NotSolved
30.01.2019 17:57:10 Gast27404
*
NotSolved
30.01.2019 20:36:13 Gast01234
NotSolved
31.01.2019 09:43:22 freundlicherGast
NotSolved
Rot Wie kann ich Verbindungslinien einblenden lassen, wenn in zwei Zellen ein Wert steht
31.01.2019 09:44:52 freundlicherGast
NotSolved
31.01.2019 14:14:34 Hansruedi
NotSolved

Ansicht des Beitrags:
Von:
freundlicherGast
Datum:
31.01.2019 09:44:52
Views:
449
Rating: Antwort:
  Ja
Thema:
Wie kann ich Verbindungslinien einblenden lassen, wenn in zwei Zellen ein Wert steht

Hallo

Leider gibt es immer wieder Leute, die in Foren ihren Frust ablassen und andere zurecht weisen. Ich finde Foren sind gerade dazu da, anderen bei kleinen Problemen zu helfen und auch Starthilfen zu geben. Deshalb helfe ich dir gerne!

Versuchs damit:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$1" or Target.Address = "$B$10" Then

        If Range("A1") = 2 and Range("B10")=5 Then

            'Blende shape1 ein und shape2 aus

            ActiveSheet.Shapes("Name shape1").visble=true

            ActiveSheet.Shapes("Name shape2").visble=false

        Elseif Range("B10")=9 Then

            'Blende shape1 aus und shape2 ein

            ActiveSheet.Shapes("Name shape1").visble=false

            ActiveSheet.Shapes("Name shape2").visble=true

        elseif range("A1")="" then

            ActiveSheet.Shapes("Name shape1").visble=false

            ActiveSheet.Shapes("Name shape2").visble=false

        End If

    End If   

End Sub

 

Viel Spass und liebe Grüsse Anita

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.01.2019 14:53:41 Hansruedi
NotSolved
30.01.2019 08:58:14 Gast41910
NotSolved
30.01.2019 10:59:50 Hansruedi
NotSolved
30.01.2019 17:57:10 Gast27404
*
NotSolved
30.01.2019 20:36:13 Gast01234
NotSolved
31.01.2019 09:43:22 freundlicherGast
NotSolved
Rot Wie kann ich Verbindungslinien einblenden lassen, wenn in zwei Zellen ein Wert steht
31.01.2019 09:44:52 freundlicherGast
NotSolved
31.01.2019 14:14:34 Hansruedi
NotSolved