Office: (Office 2016) Selection by change

Hallo liebes Forum,
ich bin auf der Suche nach einer Lösung für mein Problem.
ich habe eine Tabelle mit mehreren Zellen in denen
eine Auswahl getroffen werden muss...Auswahl 1...3
Es soll aber immer wenn das Kriterium 1 geändert wird,
das Kriterium 2 gelöscht werden.
Das habe ich über Selection Change hinbekommen, aber nur
für die Auswahl 1, ab Auswahl 2 funktioniert das nicht mehr.
Habt ihr da einen Rat ?

Danke

 

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* , Forum*, Excel* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten ändern. Schaue Datei
http://hajo-excel.de/gepackt/fremd/Datei_verschluesseln.zip

Das ist nur meine Meinung zu dem Thema.

Code:

    Dim RaBereich As Range                          ' Variable für Bereich
    Dim RaZelle As Range                            ' Variable für Zelle
    Set RaBereich = Range("L22:M39, O21:O26")       ' Bereich der Wirksamkeit
    ' noch mehr Bereiche
    'Set RaBereich = Union(Range("C11:AG11 , C13:AG13, C15:AG15 , C17:AG17"), _
    '    Range("C35:AE35, C37:AE37, C43:AG43, C45:AG45 , C47:AG47 , C49:AG49"), _
    '    Range("C67:AF67 , C69:AF69 , C75:AG75 , C77:AG77 , C79:AG79 , C81:AG81"), _
    '    Range("C99:AF99 , C101:AF101, C107:AG107 , C109:AG109 , C111:AG111"), _
    '    Range("C127:AG127 , C129:AG129 , C131:AG131 , C133:AG133 , C139:AF139"), _
    '    Range("C155:AG155, C157:AG157 , C159:AG159 , C161:AG161 , C163:AG163"), _
    '    Range("C179:AF179 , C181:AF181, C187:AG187 , C189:AG189 , C191:AG191"))
    ' Union 30 Argumente zu je 255 Zeichen
    ' ab Vesion XP braucht der Schutz nicht aufgehoben werden
    ' Formatierung bei Schutz kann über Dialog Schutz eingestellt werden
    ' Zelle die in dem Bereich liegen auf die Variable schreiben
    ' damit werden nur noch die Zellen bearbeitet die im vorgegeben Bereich liegen
    ' jede Zelladresse ist einzeln angegeben
    Set RaBereich = Intersect(RaBereich, Target)
    If Not RaBereich Is Nothing Then
        'ActiveSheet.Unprotect ("Passwort")
        For Each RaZelle In RaBereich
            With RaZelle

 

Hallo Hajo,

Danke für deine Antwort....aber ich bin da nicht so fit, das auf meine Tabelle - sorry für den nicht gewinnbringenden Namen - um zu münzen...kannst du das bitte etwas konkreter beschreiben.

hG

 

NEIN.
Ich hatte schon geschrieben warumn Deine Datei nicht runtergeladen wird.
Viel Erfolg noch.
Für mich ist auch Feierabend im Forum.

Gruß Hajo

 

Hallo Franz,

in deiner Excel-Datei habe ich die CallBack-Routine für das Worksheet-Change-Ereignis wie folgt geändert:

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("F8:H8")) Is Nothing Then
    Target.Offset(1).Value = "Bitte wählen.."
  End If
End Sub

Die Callback-Routine für das Worksheet-SelectionChange-Ereignis habe ich als Kommentar deaktiviert.
Du solltest auch stets als 1. Zeile in den Programmmodulen "Option explicit" einfügen - das hilft dir bei längeren Programmen Ärger beim Fehlersuchen ersparen.

 

Hallo Anton Exl,

Super...Danke für die schnelle und einfache Hilfe...hat geklappt !

hG
Franz