Erweiterung Liste in Datenvalidierung

Hallo zusammen,
ich habe mal eine Frage zu Datenvalidierung und automatischer Erweiterung. Also hier meine Frage
Ich habe ein Eingabefeld auf dem ich eine Spielerliste als Dropdown gelegt habe.
Userbild

Diese bezieht sich auf die Tabelle Spielerliste im 2 Tabellenblatt.
Userbild

Momentan ist es jetzt so, dass ich entweder einen Namen aus dieser Liste auswählen kann, oder eben einfach einen der bereits existierenden Namen eintippe. Meine Frage ist nun ob es eine Möglichkeit gibt, dass ich einen neuen Namen, hier Felix eingeben kann und der sich dann automatisch beim drücken von "Enter" in die Spielerliste einfügt.
Userbild

Ich hoffe es ist verständlich ausgedrückt. Ich habe die 3 Bilder + die Beispieldatei angehangen
https://www.herber.de/bbs/user/153852.xlsx
Besten Dank für eure Hilfe
Gruss
Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim JaNein, Tb2 As Worksheet, LR As Integer Set Tb2 = Sheets("Daten") If Not Intersect(Target, Columns(1)) Is Nothing Then If Target.Row > 1 Then If WorksheetFunction.CountIf(Tb2.Columns(1), Target) = 0 Then JaNein = MsgBox("In Liste ergänzen?", vbYesNo, "Neuer Spieler") If JaNein = vbYes Then LR = Tb2.Cells(Tb2.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte Tb2.Cells(LR + 1, 1) = Target Else With Application .EnableEvents = False .Undo .EnableEvents = True End With End If End If End If End If End Sub

Hallo
Ist es a) immer nur A2 oder b) weitere Zellen in Spalte A
in ein Modul und das Makro dem Button zuweisen
für a)


Sub Hinzufügen()
Dim JaNein, Tb2 As Worksheet, LR As Integer, RNG As Range
Set Tb2 = Sheets("Daten")
Set RNG = Sheets("Eingabe").Range("A2")
If RNG  "" Then
If WorksheetFunction.CountIf(Tb2.Columns(1), RNG) = 0 Then
JaNein = MsgBox(RNG & ": In Liste ergänzen?", vbYesNo, "Neuer Spieler")
If JaNein = vbYes Then
LR = Tb2.Cells(Tb2.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte
Tb2.Cells(LR + 1, 1) = RNG
Else
RNG.ClearContents
End If
End If
End If
End Sub

bei b) muss die Zelle selektiert sein. Also bevor du Enter drückst, muss du den Button anwählen.


Sub Hinzufügen()
Dim JaNein, Tb2 As Worksheet, LR As Integer
Set Tb2 = Sheets("Daten")
If Selection  "" Then
If WorksheetFunction.CountIf(Tb2.Columns(1), Selection) = 0 Then
JaNein = MsgBox(Selection & ": In Liste ergänzen?", vbYesNo, "Neuer Spieler")
If JaNein = vbYes Then
LR = Tb2.Cells(Tb2.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte
Tb2.Cells(LR + 1, 1) = Selection
Else
Selection.ClearContents
End If
End If
End If
End Sub

LG UweD

Beliebteste Forumthreads (12 Monate)

Erweiterung Liste in Datenvalidierung

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread