Makrozuweisung

  • geschlossen
  • Problem

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Makrozuweisung

    Hallo,

    ich hab da ein kleines Problem mit der Makrozuweisung in Excel.
    ich hab eine Zelle sagen wir mal A1 mit einer Gültigkeit belegt und man kann nun zwischen "einblenden" und "ausblenden" wählen.
    Ich hab auch schon ein Makro erstellt das die Zeilen 20-29 ausblendet(makro1) und ein Makro das diese Zeilen wieder einblendet(makro2).

    Mein Problem ist nun, dass ich die Auswahl "ausblenden" mit dem Makro1 und die Auswahl "einblenden" mit dem Makro2 in Feld A1 belegen will.

    Kann mir da Jemand weiter helfen??

    Danke im Voraus,

    Messiah
  • Hy

    Versuch mal die Eingabe für das Feld "A1" abzufragen.
    Dazu folgenden Code in die passende Tabelle(z.B.: Tabelle1) einfügen

    Quellcode

    1. Private Sub WorkSheet_Change(ByVal Target As Range)
    2. If Target.Address <> "$A$1" Then Exit Sub
    3. If Target.Value = "einblenden" then Call Makro2
    4. If Target.Value = "ausblenden" then Call Makro1
    5. End Sub
    MfG Tattooed1980
    Ihr lacht über mich, weil ich anders bin... Ich lache über euch, denn ihr seit alle gleich!
  • Ja danke hab den vorhandenen Code (wusste ich nicht dass da schon einer ist) "repariert"...
    Deine Idee hat mir auf jedenfall geholfen....danke nochmal

    ich hab das jetzt so gelöst.....


    Option Explicit

    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Range("D7").Value <> "Umzug" Then
    Worksheets("Deckblatt MV").Unprotect
    Worksheets("Deckblatt MV").Rows("55:62").Hidden = True
    Worksheets("Deckblatt MV").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Else
    Worksheets("Deckblatt MV").Unprotect
    Worksheets("Deckblatt MV").Rows("55:62").Hidden = False
    Worksheets("Deckblatt MV").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
    Application.ScreenUpdating = True
    End Sub


    Messiah

    kann geschlossen werden.....

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von Messiah ()