DropDown-Menü aus früheren Eingaben

Hallo Michael,
das war nicht als Kritik gemeint. Es wäre kein Problem, das Makro für mehrere Zellen umzuschreiben. Ich dachte nur, dass du vielleicht denkst, das Makro würde so wie es ist für alle Zellen im Tabellenblatt funktionieren und das es bei dir vielleicht deshalb nicht funktioniert, weil du es an einer anderen Zelle versuchst.
Jetzt habe ich allerdings keine Idee mehr, warum das Ganze bei dir partout nicht funktionieren will. Es sollte eigentlich so sein, dass die Variable "NoVal" beim Öffnen der Datei zunächst "False" ist. Wenn du über das Dropdownmenü "Neuer Eintrag" in die Zelle $B$6 eingibst, wird die Variable NoVal auf "True" gesetzt und die Gültigkeit der Zelle gelöscht. Dadurch kannst du die Zelle $B$6 jetzt beliebig verändern. Bei der nächsten Änderung wird die Variabel NoVal wieder auf "False" gesetzt, die Gültigkeit wieder hergestellt und der aktuelle Inhalt der Zelle wird der Gültigkeitsliste hinzugefügt, so dass er für die Zukunft zur Verfügung steht.
Alternativ gibt's noch eine Lösung über einen CommandButton auf dem Tabellenblatt. Wenn du in der Zelle $B$6 einen neuen Eintrag hinzufügen willst, klickst du auf den Button und gibst den neuen Eintrag in eine Inputbox ein. Diese Variante ist zwar ein bisschen umständlicher zu handhaben, weil man erst auf einen Button klicken und die Eingabe dann nicht direkt in die Zelle, sondern in eine Inputbox machen muss. Aber dafür ist das Programm viel einfacher. Folgender Code wird für den CommandButton hinterlegt:

Private Sub CommandButton1_Click()
Range("IV65536").End(xlUp).Offset(1, 0) _
= InputBox("Bitte neuen Eintrag eingeben.")
End Sub
Code eingefügt mit Syntaxhighlighter 4.3

Gruß Ingolf

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro1() Dim NameNeu As String If Range("b6") = "NEUER NAME" Then NameNeu = InputBox("Geben Sie den neuen Namen ein:" & vbCr & "" & vbCr & "" & vbCr & "- " & vbCr & "***") Range("b6") = NameNeu Bis hierher gehts, nur die Neulistung klappt irgendwie nicht: If Range("i13") = "" Then Range("i13") = NameNeu Else GoTo I14 If Range("i14") = "" Then Range("i14") = NameNeu Else GoTo I15 If Range("i15") = "" Then Range("i15") = NameNeu Else GoTo I16 If Range("i16") = "" Then Range("i16") = NameNeu Else GoTo I17 If Range("i17") = "" Then Range("i17") = NameNeu End If End Sub

Hallo Michael,
du könntest es so versuchen. Das Makro bezieht sich auf die Zelle A1 als Eingabezelle. Die Gültigkeitsliste steht in der letzten Spalte("IV") ab Zeile 1. Der erste Eintrag in der Liste muss "Neuer Eintrag" heißen. Das Makro muss in das Modul des betreffenden Tabellenblattes:

Option Explicit
Public NoVal As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
   If NoVal = True Then
      Range("IV65536").End(xlUp).Offset(1, 0) = Target
      With Target.Validation
         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
            Operator:=xlBetween, Formula1:="=$IV:$IV"
         .IgnoreBlank = True
         .InCellDropdown = True
         .InputTitle = ""
         .ErrorTitle = ""
         .InputMessage = ""
         .ErrorMessage = ""
         .ShowInput = True
         .ShowError = True
      End With
      NoVal = False
   ElseIf Target = "Neuer Eintrag" Then
      Target.Validation.Delete
      Target.Offset(1, 0).Select
      Target.Select
      NoVal = True
   End If
End If
End Sub
Code eingefügt mit Syntaxhighlighter 4.3

Gruß Ingolf

Beliebteste Forumthreads (12 Monate)

DropDown-Menü aus früheren Eingaben

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

DropDown-Menü aus früheren Eingaben

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread