2 Dropdowns, Wert kopieren und in eines Tabellenblatt rein kopieren

[ExcelVBAAnfänger]

Hallo schauan und ralf_b,

ich habe mir gerade mal die Datei angeguckt. Anstatt dem Dropdown kann ich es ja auch mit dem SVERWEIS machen.
Genauso kann ich auch das Tabellenblatt ausblenden.

Aber bei der Sache würde ich doch dann immer das Bild angezeigt werden.

Es sollte aber so sein, dass wenn man auf den Hyperlink geht, das dann sich das Bild sozusagen öffnet und man es nicht vorher sieht.

Oder habe ich jetzt gerade ein Denkfehler?

Gruß
ExcelVBAAnfänger

[ralf_b]

https://www.ex....g.de/excel-bild-vergroessern-mit-einem-klick/


https://microsoft.public....o/klick-in-zelle-bild-anzeigen

[schauan]

Hallöchen,

bei einer Formellösung wird ein Bild nur entsprechend dem Formelergebnis angezeigt, dann aber ständig bzw. so lange, bis ein anderes Ergebnis vorliegt.
Wenn Du z.B. beim Öffnen der Datei kein Bild sehen willst, müsstest Du einerseits einen entsprechenden Zustand einrichten und andererseits dafür sorgen, dass kein user die Datei speichern kann.

[ExcelVBAAnfänger]

Hallo zusammen,

ich habe jetzt einfach 3 neue Tabellenblätter erstellt, mit den jeweiligen Bilder nur drinne.

Code:

=WENN(F31="'Layout 33'!A1";HYPERLINK('Layout 33'!A1;"Layout 33");WENN(F31="Layout 54";HYPERLINK("'Layout 54'!A1";"Layout 54");HYPERLINK("'Layout 55'!A1";"Layout 55")))

Komischerweise funktioniert er schon wieder nicht, wenn ich aber einen Link einzelnt in ner Zelle hab, klappt es.

Code:

'Layout 54'!A1

Was mache ich mal wieder falsch?

Der Fehler:
Die angegebene Datei konnte nicht geöffnet werden.

Gruß
ExcelVBAAnfänger

[ralf_b]

=HYPERLINK("#"&B6&"!A1";$E$5)  die Raute 

[ExcelVBAAnfänger]

Und was mir gerade aufgefallen ist.
Ist wenn ich das Tabellenblatt ausblende, kann ich selbst mich dem "einfachen" Link nicht drauf zu greifen.

---

Hallo ralf_b,

=HYPERLINK("#"&B6&"!A1";$E$5)

steht jetzt hier B6 für das jeweilige Tabellenblatt?
Und $E$5 für das, was ausgegeben werden soll?

Also bei mir dann

Code:

=HYPERLINK("#"&Layout 33!A1&";"Layout 33"

Gruß
ExcelVBAAnfänger

[ralf_b]

wie wärs wenn du die office Dokumentation befragst? Du bekommst hier Tips. Aber ich erkenne nicht das du wenigstens bei solchen Syntaxdingen, dir die Dokumentation anschaust und dort die Fragen klärst. Der link ist nur ein Beispiel aus einem anderen Forum. Auch etwas was du selbst hättest finden können.  
Und falls das vielelicht nicht stimmt, Nobody is perfekt. 
Lies mal selber nach. 
https://support.microsoft.com/de-de/offi...e9b76f577f

[ExcelVBAAnfänger]

Morgen ralf_b,



ich arbeite an dem Problem schon seit Tagen. Und du kannst mir glauben, dass ich alles Google und versuche es selbst zu lösen.



Aber ein Tag später bin ich wieder einen Schritt weiter gekommen.



Ich habe es jetzt mit VBA gelöst.

Also kein Link mehr. Wenn der SVERWEIS das entsprechende Layout ausgibt, wird einfach das entsprechende Tabellenblatt eingeblendet. Und die anderen ausgeblendet.



Soweit so gut, klappt auch alles wunderbar.

ABER

Wenn ich die Arbeitsmappe schütze, funktioniert wieder alles nicht.

Habe bis jetzt leider nur Codeschnipzel für Zeilen bzw. Spalten gefunden, geht das auch für Arbeitsblätter?

Eigentlich müsste es ja nur ein Ein- Zweizeiler sein.

Code:

Private Sub Worksheet_Deactivate()
 If Cells(30, 4).Value = "Layout 33" Then
       Worksheets("Layout 33").Visible = True
'        Worksheets("Layout 33").Unprotect
         Worksheets("Layout 54").Visible = False
'        Worksheets("Layout 54").Protect
        Worksheets("Layout 55").Visible = False
'       Worksheets("Layout 55").Protect
     
ElseIf Cells(30, 4).Value = "Layout 54" Then
        Worksheets("Layout 33").Visible = False
'        Worksheets("Layout 33").Protect
        Worksheets("Layout 54").Visible = True
'        Worksheets("Layout 54").Unprotect
        Worksheets("Layout 55").Visible = False
'        Worksheets("Layout 55").Protect
       
ElseIf Cells(30, 4).Value = "Layout 55" Then
        Worksheets("Layout 33").Visible = False
'        Worksheets("Layout 33").Protect
        Worksheets("Layout 54").Visible = False
'        Worksheets("Layout 54").Protect
        Worksheets("Layout 55").Visible = True
'        Worksheets("Layout 55").Unprotect       
End If
End Sub

Das mit dem Protect und Unprotect hat leider nicht den gewünschten Erfolg gebracht.



Gruß

ExcelVBAAnfänger

[ralf_b]

https://exceloffthegrid.com/vba-code-wor...rotection/

Workbook.protect ist nicht das Selbe wie Worksheet(xy).protect

Ich baue mir deine Mappe nicht nach, deshalb kann ich nichts testen, um zu sehen woran es liegt.   
Evtl. ist die Lösung mit dem Blättern nicht so praktikabel wie gedacht. Sowas stellt sich immer erst später heraus.

ps: wieso ist der Code im Deactivate?

[ExcelVBAAnfänger]

Hallo ralf_b,

ich habe Deactivate genommen, weil in einem anderen Tabellenblatt, die Bedingung erfüllt wird.

Aber danke, habe es gerade geändert und es läuft besser.

Ich habe mir jetzt deinen Link angeguckt und ich muss ehrlich sagen, dass ich es einfach nicht verstehe.

Ist es überhaupt möglich, dass ich die Arbeitsmappe schütze außer die 3 Layout Tabellenblätter?
Der Sinn dahinter ist, dass keiner die anderen Blätter einblenden darf.

Gruß
ExcelVBAAnfänger