Hallo zusammen,

ich möchte mit Hilfe einer Multipage (mit zwei Seiten/Tabsheets/Reiter) in der Tabelle Spalten anzeigen bzw. verbergen. Das funktioniert soweit mit diesem Code:

Private Sub MultiPage1_Change()
  If MultiPage1.Value = 0 Then
    Columns("A:A").EntireColumn.Hidden = False
    Columns("B:B").EntireColumn.Hidden = True
  End If
  If MultiPage1.Value = 1 Then
    Columns("A:A").EntireColumn.Hidden = True
    Columns("B:B").EntireColumn.Hidden = False
  End If
End Sub

Wenn ich nun einen Wert in einer Zelle der Spalte A oder B eingebe (ohne mit Enter zu bestätigen) und danach in der Multipage eine Reiter anklicke, passiert nichts. Und zwar so lange nicht, bis ich in der Tabelle mit der Maus eine andere Zelle fokussiert oder die Zelleneingabe mit Enter bestätigt habe.

Ein Simulieren per "Application.SendKeys ({"enter"}")" funktioniert leider auch nicht.

Hat jemand eine Idee?

Danke und viele Grüße!