Bei Auswahl aus Liste wert in anderer Spalte

hallo,
ich habe folgendes Anliegen.
ich habe eine Tabelle, wo Mitglieder erfasst werden. Dort gibt es eine Spalte, wo ich über eine Auswahlliste den Mitgliedsstatus auswählen lasse. Dort gibt es Aktivmitglieder, Passivmitglieder, Ehrenmitglieder TSG Mitglieder. Daneben ist eine Spalte namens TSG. Dort kann optional ein J gesetzt werden. Ich hätte es gerne so, dass wenn im Mitgliederstats TSG Ausgewählt werden soll, dann soll auch automatisch in TSG Ja ausgewählt sein und zwar so, dass das nicht geändert werden kann, bei allen anderen Mitgliederstatis soll die Auswahl optional möglich sein. Wäre sowas machbar? und wenn ja wie.
Anbei die Tabelle in er Übersicht und als Download
Danke und Gruß
Benedikt
https://www.herber.de/bbs/user/126159.xlsm
Mitgliederliste

Lfd-Nr

Mitgliedsnummer

Anrede

Name

Vorname

Straße

PLZ

Stadt

Festnetz 1

Festnetz 2

Telefax

Mobil

E-Mail-Adresse

Empfängerkreis

Geburtsdatum

Runde Geburtstage

Geburtstagsliste

Alter

Vereinseintritt

Vereinsaustritt
oder Todesfall

Austrittsgrund

Dauer Mitgliedschaft

Mitgliederstatus

TSG

FR-0001

Herr

Mustermann

Max

Musterhausen

12053

Berlin

31.07.1976

42 J

01.01.2000

18 J

TSG Mitglied

Formeln der Tabelle

Zelle	Formel
A8	=WENN(B8="";"";AGGREGAT(3;7;$B$8:B8))
P8	=WENN(REST(JAHR(HEUTE())-JAHR($O8); 10)=0;JAHR(HEUTE())-JAHR($O8) & " J - " &$D8;"")
Q8	=WENN($O2="";"";DATUM(JAHR(HEUTE()); MONAT($O8); TAG(O8)))
R8	=WENN($O8="";"";Alter($O8;$T8;$U8))
V8	=WENN($S8="";"";Mitgliedsjahre($S8;$T8;$U8))

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Benedikt,
damit der automatische Eintrag von "J" in Spalte X nicht mehr ändern zu können muss die Tabelle geschützt werden. Wählt der Benutzer in Spalte W "TSG Mitglied" auswählt, dann wird in Spalte X automatisch ein "J" eingetragen und die Zelle geschützt. Wählt der Benutzer anschließend in Spalte W einen anderen Wert, dann wird der Schutz wieder aufgehoben.
Die dazu notwendigen Programmänderungen:
Im Modul "DieseArbeitsmappe":

Private Sub Workbook_Open()
    Call Mitgliederliste.Protect(Password:="GEHEIM", UserInterfaceOnly:=True)
    ' Sheets("Parameter").Range("B2") = Environ$("USERNAME")
    ' Call StartFormularAufrufen
End Sub

Im Modul der Tabelle "Mitgliederliste":

Private Sub Worksheet_Change(ByVal Target As Range)

    Call FormularTexte

    Dim lngZNr As Long
    Dim lngSNr As Long
    Dim objRange As Range, objCell As Range

    lngZNr = ActiveCell.Row
    lngSNr = ActiveCell.Column

    If lngZNr > 7 Then
        If Target.Column = 15 Or Target.Column = 19 Then
            If Target.Value <> "" Then
                ActiveCell.NumberFormat = "dd.mm.yyyy"
                If Not IsDate(Target.Text) Then
                    MsgBox "Sie haben ein falsches Datum eingegeben!", vbExclamation, strFormularError
                    Application.EnableEvents = False
                    Target.ClearContents
                    Target.Activate
                    Application.EnableEvents = True
                    Exit Sub
                End If
            End If
        End If
    End If

    Set objRange = Intersect(Target, Range(Cells(8, 23), Cells(Rows.Count, 23)))
    If Not objRange Is Nothing Then
        Application.EnableEvents = False
        For Each objCell In objRange
            If objCell.Value = "TSG Mitglied" Then
                With objCell.Offset(0, 1)
                    .Value = "J"
                    .Locked = True
                End With
            Else
                objCell.Offset(0, 1).Locked = False
            End If
        Next
        Application.EnableEvents = True
        Set objRange = Nothing
    End If
End Sub

Du musst natürlich noch die Zellen in der Tabelle "Mitgliederliste" entsprechend formatieren. So dürfen die Zellen in den Spalten, in denen der Benutzer Eingaben machen soll, nicht gesperrt sein. Spalte X sperrt / entsperrt das Makro bei Bedarf.
Gruß
Nepumuk
P.S.: Warum rufst du das Makro "FormularTexte" bei jeder Eingabe in der Tabelle "Mitgliederliste" auf und nicht im Workbook_Open-Event? Da ändert sich doch nach dem Öffnen der Mappe nichts mehr.
P.P.S.: Das Kennwort musst du natürlich noch anpassen!!!

Beliebteste Forumthreads (12 Monate)

Bei Auswahl aus Liste wert in anderer Spalte

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Arbeitsblatt mit dem Namen 'Mitgliederliste'
	R
7	Alter
8	42 J

Bei Auswahl aus Liste wert in anderer Spalte

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread