Office: VBA; Zelle voll/leer einblenden/ausblenden

Hallo,
ich möchte in einer Tabelle folgendes machen:
steht in A4 was drinnen dann Blende Spalte H ein und Blende Spalte I aus.
steht nichts in A4 dann Blende Spalte H aus und Blende Spalte I ein.
Manuell bekomme ich das hin, aber halt nicht mit der Zelle A4....
Ich hoffe es kann mir jemand helfen :-)

Sub Spalte_H_ausblenden_I_einblenden()
ActiveSheet.Columns(8).Hidden = True
ActiveSheet.Columns(9).Hidden = False
End Sub
Sub Spalte_I_ausblenden_H_einblenden()
ActiveSheet.Columns(9).Hidden = True
ActiveSheet.Columns(8).Hidden = False
End Sub
Sub Spalte_H_I_einblenden()
ActiveSheet.Columns(8).Hidden = False
ActiveSheet.Columns(9).Hidden = False
End Sub

VG Weismänn

 

Hi,

wird A4 händisch oder per Formel geändert?

Falls händisch, dann kommt folgender Code ins Code-Modul das Tabellenblatts

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim b As Boolean
If Not Intersect(Target, Range("A4")) Is Nothing Then
    b = Range("A4") = ""
    Columns("H").Hidden = b
    Columns("I").Hidden = Not b
End If
End Sub

 

Hallo,
Herzlichen Dank :-)
Es wird händische gemacht.
VG Weismänn

 

Hallo,
ich hätte da noch eine Frage.
Wenn sich das ganze auf das Tabellenblatt 2 Zelle A4 beziehen würde!
Also das ein- und ausblenden würde auf Tabellenblatt 1 passieren...
Was müsste ich da ändern?
VG Weismänn

 

Hi,

dann schreibst du vor das Columns() jeweils noch

Code:

Tabelle1.

Zumindest wenn der Codename von Tabellenblatt 1 Tabelle1 ist.

Allerdings würde ich dann eher das Activate-Event von Tabelle1 verwenden:

Code:

Private Sub Worksheet_Activate()
Dim b As Boolean
b = Tabelle2.Range("A4") = ""
Columns("H").Hidden = b
Columns("I").Hidden = Not b
End Sub

Wobei Tabelle2 der Codename von Tabellenblatt 2 ist.
Dieser Code ist geschickter, da er nur beim Aktivieren von Blatt 1 ausgeführt wird.

 

Herzlichen Dank...
Hab da hin und her Probiert....!
VG Weismänn