Da das Orginalfile aufgrund der Verknüpfungen und Rechenbedingungen ziemlich groß ist, hoffe ich, Euch mein Problem möglichst verständlich so erklären zu können.
Also: Ich habe in mehreren Tabellenblättern eine Fülle von Daten, die ich mit wenn-Bedingungen dann in einem Tabellenblatt "Übersicht" zusammenfasse.
Über einen Optionsbutton habe ich 1.Quartal, 2.Quartal,3.Quartal und 4.Quartal zur Auswahl, in den Zellen c1-c4 habe ich dazu passend jeweils "wahr" oder "falsch".
Die Aufbereitung des Datenmaterials funktioniert soweit bestens. Nun habe ich aber auch noch ein Tabellenblatt "Abweichungsanalyse", in welchem ich über ein Textfeld die Abweichungsanalysen der jeweiligen Quartale eingepflegt habe. Diese dazupassenden Textfelder sollen in dem Übersichtsblatt neben dem Datenmaterial eingeblendet werden, wenn die Optionenbedingung erfüllt ist.
Also: Wenn c1=wahr, dann Textfeld 1 einblenden sonst ausblenden.
Ich habe im VBA mal einen Versuch gestartet, doch das ist noch nicht das Gelbe vom Ei.
Sub Abweichungsanalyse()
If Sheets("Übersicht").Range("C1").Value = True Then
Sheets("Abweichungsanalysen").Shapes("Rectangle 1").Copy
Sheets("Übersicht").Paste
End If
If Sheets("Übersicht").Range("C2").Value = True Then
Sheets("Abweichungsanalysen").Shapes("Rectangle 2").Copy
Sheets("Übersicht").Paste
End If
If Sheets("Übersicht").Range("C3").Value = True Then
Sheets("Abweichungsanalysen").Shapes("Rectangle 3").Copy
Sheets("Übersicht").Paste
End If
End Sub
Vor allem kann ich die hierher kopierten Textfelder nicht wieder ausblenden, da sie beim Kopieren eine jeweils andere "Rectangle-Nummer" erhalten und somit einen Debug-Fehler erzeugen.
Vielleicht weiß jemand von Euch einen Rat, wie ich hier elegant die dazugehörigen Textfelder ein- und ausblenden kann.
Schöne Grüße
Berni