Office: (Office 2010) VBA Spalten automatisch ein/ausblenden: Bilder verschieben sich beim Einblenden

Hallo da draussen,

ich habe mal wieder ein kleines Problem. Ich hoffe mir kann jemand helfen :) Leider kann ich keine Beispieldatei hochladen, da diese zu gross waere..

Abhaengig von der Auswahl in 4 ActiveX Dropdowns wird ueber Umwege eine Anzahl von moeglichen loesungen angezeigt.Diese Loesungen werden in einer Tabelle mit Zusatzinformationen und Bildern dargestellt. Damit sich Name,Bilder und Zusatzinformationen automatisch veraendern, beinhaltet die Tabelle 4 Spalten, da es max 4 moegliche Loesungen gibt. Wenn es zu einer entsprechenden Auswahl nun aber nur 2 Loesungen gibt, werden die uebrigen 2 unnoetigen Spalten automatisch ausgeblendet, da diese leer waeren und das nicht schoen aussieht.

Das Problem ist, wenn ich nun die Auswahl aendere und z.B 3 moegliche Loesungen habe, wird somit 1 Spalte automatisch wieder eingeblendet, jedoch verschieben sich manchmal (komischerweise nicht immer) die Bilder, sodass diese ueberinander liegen und es so aussieht, als ob in der 3. Spalte kein Bild vorhanden ist. Bilder sind von Zellposition und -groesse abhaengig und sind auch kleiner als die Zelle in der sie hinterlegt sind.

Und zwar habe ich folgenden VBA Code in meinem Excel File hinterlegt (Vielen Dank nochmal an ChrisK:))


Sub blende()
Dim rng As Range
Set rng = Range("D60:G60") - In diesem Bereich sind die Namen der jeweiligen Loesung hinterlegt, sodass z.B die Spalte 'G' ausgeblendet wird, wenn die Zelle 'G60' leer ist
For Each rng_c In rng
rng_c.EntireColumn.Hidden = (rng_c.Value = "")
Next
End Sub

Private Sub ComboBox1_Change()
Call blende
End Sub
Private Sub ComboBox2_Change()
Call blende
End Sub
Private Sub ComboBox3_Change()
Call blende
End Sub
Private Sub ComboBox4_Change()
Call blende
End Sub


Kann mir jemand sagen woran das liegt? Habe nun auch mehrmals die Bilder neu eingefuegt etc. doch das Problem bleibt immer bestehen.

Vielen Dank schonmal fuer eure Muehe!

Liebe Gruesse
Jan

 

Hallo Jan,

sorry, war letzte Woche selten vor dem PC. Bei mir tritt dieses Verhalten nicht(nie) auf....
Wenn du willst kannst du mir ja noch einmal die Datei schicken wo es nicht funktioniert.

lg
Chris

 

Hi Jan,

der einfachste Weg: positioniere die Bilder per VBA immer wieder neu.

Bis später,
Karin