Office: VBA; Zelle voll/leer einblenden/ausblenden

Helfe beim Thema VBA; Zelle voll/leer einblenden/ausblenden in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; 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... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von weismänn, 13. Dezember 2023.

  1. weismänn Erfahrener User

    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
     
    weismänn, 13. Dezember 2023
    #1
  2. HKindler
    HKindler hat Ahnung
    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
     
    HKindler, 13. Dezember 2023
    #2
    1 Person gefällt das.
  3. weismänn Erfahrener User
    Hallo,
    Herzlichen Dank :-)
    Es wird händische gemacht.
    VG Weismänn
     
    weismänn, 13. Dezember 2023
    #3
  4. weismänn Erfahrener User

    VBA; Zelle voll/leer einblenden/ausblenden

    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
     
    weismänn, 13. Dezember 2023
    #4
  5. HKindler
    HKindler hat Ahnung
    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.
     
    HKindler, 13. Dezember 2023
    #5
  6. weismänn Erfahrener User
    Herzlichen Dank...
    Hab da hin und her Probiert....!
    VG Weismänn
     
    weismänn, 13. Dezember 2023
    #6
Thema:

VBA; Zelle voll/leer einblenden/ausblenden

Die Seite wird geladen...
  1. VBA; Zelle voll/leer einblenden/ausblenden - Similar Threads - VBA Zelle voll

  2. Speichern mit dem Titel der Zelle A2

    in Microsoft Excel Hilfe
    Speichern mit dem Titel der Zelle A2: Moin moin, Ich habe per Makro einen Arbeitsablauf aufgezeichnet der soweit auch funktioniert. Dieser Endet jedoch im "Speichern Unter" Fenster, welches durch das Klicken von "Drucken als PDF"...
  3. Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.)

    in Microsoft Excel Hilfe
    Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.): Hallo, ich benötige Hilfe für ein Problem, welches ich leider selbst schwerlich als Anfänger nicht lösen kann: Ich möchte von dem Tabellenblatt "Tabelle1" aus den Zellen B8:B14, K8:K14, B18:B25,...
  4. Semikolon via VBA in einzelne Zellen separieren

    in Microsoft Excel Hilfe
    Semikolon via VBA in einzelne Zellen separieren: Hallo zusammen, ich benötige eure Hilfe. Ich habe eine Zelle mit mehr als 260 Informationen. Die sind durch ein Semikolon getrennt. Bis jetzt habe ich diese über die Funktion "Daten-Text in...
  5. VBA Code " Zeilenhöhe bei Verb. Zellen Funktioniert fasst"

    in Microsoft Excel Hilfe
    VBA Code " Zeilenhöhe bei Verb. Zellen Funktioniert fasst": Hallo Leute dieser Code für Zellenhöhe bei Verbundenen Zellen Funktioniert fast. Ich habe ein Code von jemand anderem bekommen der nicht in einem Forum ist. Ich kann gerade diese Person nicht...
  6. Über Eingabefelder bestimmte Zellen füllen, wohl VBA

    in Microsoft Excel Hilfe
    Über Eingabefelder bestimmte Zellen füllen, wohl VBA: Hallo, suche eine Möglichkeit wenn ich am Monatsende den Stromzählerstand ablese und Datum in C1 und Zählerstand in C2 eintrage, das dann C1 (Datum) in B27 übertragen wird. Außerdem Wert in C2...
  7. VBA eine Mail Empfänger aus Zellen ziehen

    in Microsoft Excel Hilfe
    VBA eine Mail Empfänger aus Zellen ziehen: Hallo, aktuell habe ich alle Mail-Empfänger in einer Zelle (K11) mit Semikolon getrennt stehen. Aktuell schaut es so aus: .To = Range("K11").Value Ziel ist es aber die Empfänger...
  8. Zeilen aufgrund von bestimmten Informationen in anderes Tabellenblatt kopieren

    in Microsoft Excel Hilfe
    Zeilen aufgrund von bestimmten Informationen in anderes Tabellenblatt kopieren: Hallo zusammen, ich bin erst vor ein paar Tagen auf die Excel VBA gestoßen und kenne mich deswegen leider so gut wie gar nicht aus. Ich würde gerne aus den Tabellen 3 - 11, bestimmte Zeilen in die...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden