Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon bokap1975 vom 06.08.2019, 13:08 Options

Zellwerte übernehmen

Hallo zusammen.

ich habe mit hilfe einer VBA einige Bilder in meine tabelle integriert.

Die Voraussetzung, dass ein bild angezeigt wird ist die eingabe in Feld B4. Schreibe ich also 1 in B4 wird das erste Bild gezeit, bei 2 eben das zweite und so weiter.

Ich möchte nun das feld B4 mit entweder einem Verweis auf eine andere Zelle oder mit einer Wenn-dann Formel versehen. So dass die Bilder gezeigt werden, wenn bestimmte Voraussetzungen erfüllt werden. Ändert sich nund mein wert in B4 durch die Wenn-Dann voraussetzung wird leider kein Bild mehr angezeigt obwohl die Zahl darin stimmt. Wenn ich die Zahl von Hand überschreibe, wird wieder das Bild angezeigt. ???????

Bitte um Hilfe

Antwort schreiben

Antwort 1 von M.O. vom 06.08.2019, 15:11 Options

Hallo,

wahrscheinlich wird dein Makro über das Change-Ereignis des Tabellenblatts ausgelöst.
Wenn du das Makro über das Calculate-Ereignis auslöst, sollte es klappen:

Private Sub Worksheet_Calculate()

Dein Makro

End Sub

Gruß

M.O.

Antwort 2 von bokap1975 vom 07.08.2019, 12:53 Options

hallo,

habs versucht. Leider sagt er mir wenn ich change in calculate umänder, Fehler im Kompilieren. Schicke mal den Anfang mit. Vielleicht kannst du was damit anfangen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("b90").Value = "1" Then
ActiveSheet.Pictures("Objekt 120").Visible = True
Else
ActiveSheet.Pictures("Objekt 120").Visible = False
End If
If Range("b90").Value = "2" Then
ActiveSheet.Pictures("Objekt 121").Visible = True
Else
ActiveSheet.Pictures("Objekt 121").Visible = False
End If
If Range("$B$90").Value = "3" Then
ActiveSheet.Pictures("Objekt 122").Visible = True
Else
ActiveSheet.Pictures("Objekt 122").Visible = False
End If

Antwort 3 von M.O. vom 07.08.2019, 15:26 Options

Hallo,

versuch es mal so:

P

rivate Sub Worksheet_Calculate()
If Range("b90").Value = "1" Then
ActiveSheet.Pictures("Objekt 120").Visible = True
Else
ActiveSheet.Pictures("Objekt 120").Visible = False
End If
If Range("b90").Value = "2" Then
ActiveSheet.Pictures("Objekt 121").Visible = True
Else
ActiveSheet.Pictures("Objekt 121").Visible = False
End If
If Range("$B$90").Value = "3" Then
ActiveSheet.Pictures("Objekt 122").Visible = True
Else
ActiveSheet.Pictures("Objekt 122").Visible = False
End If
...
End Sub

Gruß

M.O.

Antwort 4 von bokap1975 vom 07.08.2019, 16:17 Options

Du bist ein Geni.

Super-Geil-Danke. Ich hab ne ewigkeit daran rumgedoktort.

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken