Office: Gültigkeitsprüfung "Liste" bei Änderung aktualisie

Liebe Excel-cracks

Ich habe eine kleine Frage betreffend der Gültigkeitsprüfung.

In Tabelle "Name" habe ich von Zelle A2:A8 einen Namen definiert. In Tabelle "Kunden" habe ich von A2:A7 eine Gültigkeitsprüfung mit Liste definiert. (siehe Anhang)

Angenommen ich habe einen Namen falsch geschrieben und muss in neu schreiben, was muss ich tun damit diese Änderung auch in der Gültigkeitsprüfung übernommen wird.

Zum Beispiel hatte ich den Namen "Petraa" falsch geschrieben. Wenn ich den Namen in der Tabelle "Namen" ändere, wird die Korrektur nicht in die Gültigkeitsprüfung übernommen.

Gibt es eine Möglichkeit dies mit einer Excel Formel zu tun, oder müsste ich einen VBA Code schreiben? :?: Der Makrorecorder hat bei der Aufzeichnung der Gültigkeitsprüfung folgenden Code geschrieben:

Code:

Sub Namen()
' Namen definieren
    ActiveWorkbook.Names.Add Name:="Name", RefersToR1C1:="=Name!R2C1:R8C1"
End Sub

Sub Gültigkeitsprüfung()
'Dropdown in Tabelle "Kunde"

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=Name"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    Selection.AutoFill Destination:=Range("A2:A14"), Type:=xlFillDefault

End Sub

Danke für eure Tipps.

Maria

Arbeitsblatt mit dem Namen 'Name'
	A
1	Name
2	Hans
3	Markus
4	Heinz
5	Igor
6	Anna
7	Petraa
8	Mike

Name	Bezug
Name	=Name!$A$2:$A$8

[parsehtml] Arbeitsblatt mit dem Namen 'Kunde'   A B 1 Kunde Wohnort 2 Hans Berlin 3 Heinz Hamburg 4 Markus Bremen 5 Petraa Zürich 6 Igor Stuttgart 7 Anna Leipzig <tr><td valign='top'> Name Bezug Name =Name!$A$2:$A$8 </td><td valign='top'> Zelle Gültigkeitstyp Operator Wert1 Wert2 A2 Liste   =Name   A3 Liste   =Name   A4 Liste   =Name   A5 Liste   =Name   A6 Liste   =Name   A7 Liste   =Name   </td></tr></table>[/parsehtml]   Anhänge: gueltigkeitspruefung_769.xls (23,5 KB) Zuletzt von einem Moderator bearbeitet: 30. November 2020 maria85, 7. März 2011 #1 Beverly Erfahrener User Hi Petra, die Korrektur wird beim Ändern der Liste schon korrekt in die Gültigkeitsrüfung übernommen, du musst sie in der betreffenden Zelle (in deinem Beispiel A5 in Tabelle Kunde) nur noch einmal neu auswählen. Bis später, Karin   Beverly, 7. März 2011 #2 MARIA85 maria85 Erfahrener User Hallo Karin Ja ich habe das gesehen. Gibt es eine Möglichkeit dass diese Änderung automatisch übernommen wird, ohne dass ich es selber neu auswählen muss? Gruss Maria   maria85, 7. März 2011 #3 Beverly Erfahrener User Gültigkeitsprüfung "Liste" bei Änderung aktualisie Hi Maria, kopiere den folgenden Code ins Codemodul des Tabellenblattes "Name": Code: Option Explicit Dim strName As String Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("Name")) Is Nothing Then If Target.Count = 1 Then strName = Target End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim rngZelle As Range Dim strStart As String Dim strNeu As String If Not Intersect(Target, Range("Name")) Is Nothing Then If Target.Count = 1 Then strNeu = Target With Worksheets("Kunde").Columns(1) Set rngZelle = .Find(strName, lookat:=xlWhole) If Not rngZelle Is Nothing Then strStart = rngZelle.Address Do .Cells(rngZelle.Row, 1) = strNeu Set rngZelle = .FindNext(rngZelle) If rngZelle Is Nothing Then Exit Do Loop While Not rngZelle Is Nothing And rngZelle.Address <> strStart End If End With End If End If End Sub Bis später, Karin   Beverly, 7. März 2011 #4 MARIA85 maria85 Erfahrener User Hallo Karin Tut mir leid dass ich dir erst jetzt antworte. Ich habe den Code probiert und er funktioniert tipp-topp. Die Angaben werden geändert. Wenn ich aber einen neuen Name eintrage, trägt mir die Formel im Blatt "Kunden" von der ersten freien Zeile bis Zeile 65536 ein. Kann das Problem in diesem Codeabschnitt liegen? Code: If rngZelle Is Nothing Then Exit Do Loop While Not rngZelle Is Nothing And rngZelle.Address <> strStart Anbei noch einmal die Datei mit der Formel. Danke für deine Hilfe. Maria Arbeitsblatt mit dem Namen 'Name'   A 1 Name 2 Hans 3 Markus 4 Heinz 5 Igor 6 Anna 7 Petra 8 Patrick Arbeitsblatt mit dem Namen 'Kunde'   A B 1 Kunde Wohnort 2 Hans Berlin 3 Heinz Hamburg 4 Markus Bremen 5 Petra Zürich 6 Igor Stuttgart 7 Anna Leipzig 8 Patrick   9 Patrick   10 Patrick   11 Patrick   12 Patrick   13 Patrick   14 Patrick   15 Patrick   16 Patrick   17 Patrick   18 Patrick   19 Patrick   20 Patrick   21 Patrick   22 Patrick   23 Patrick   24 Patrick   25 Patrick   26 Patrick   27 Patrick   28 Patrick   29 Patrick   30 Patrick   31 Patrick   32 Patrick   33 Patrick   34 Patrick   35 Patrick   36 Patrick   37 Patrick   38 Patrick   39 Patrick   40 Patrick   41 Patrick   42 Patrick   43 Patrick   44 Patrick   45 Patrick   46 Patrick     Anhänge: gueltigkeitspruefung_187.xls (31,5 KB) Zuletzt von einem Moderator bearbeitet: 30. November 2020 maria85, 9. März 2011 #5 Beverly Erfahrener User Hi Maria, mir war nicht bekannt, dass auch neue Namen hinzugefügt werden sollen. Code: Private Sub Worksheet_Change(ByVal Target As Range) Dim rngZelle As Range Dim strStart As String Dim strNeu As String If Not Intersect(Target, Range("Name")) Is Nothing Then If Target.Count = 1 Then If strName <> "" Then strNeu = Target With Worksheets("Kunde").Columns(1) Set rngZelle = .Find(strName, lookat:=xlWhole) If Not rngZelle Is Nothing Then strStart = rngZelle.Address Do .Cells(rngZelle.Row, 1) = strNeu Set rngZelle = .FindNext(rngZelle) If rngZelle Is Nothing Then Exit Do Loop While Not rngZelle Is Nothing And rngZelle.Address <> strStart End If End With End If End If End If End Sub Wenn die Namensliste dynamisch sein soll, verwende statt eines festen Bereichs diese Formel unter Bezieht sich auf: =BEREICH.VERSCHIEBEN(Name!$A$2;;;ANZAHL2(Name!$A:$A)-1;1) Bis später, Karin   Beverly, 9. März 2011 #6 MARIA85 maria85 Erfahrener User Bereich.Verschieben Hi Karin Ja tut mir leid, hätte es dir sagen sollen dass auch weitere Namen hinzugefügt werden. Mein Arbeitskollege hatte sich den Kopf daran zerbrochen, lach :-) Ich finde den bereich.verschieben code sehr gut und werde ihn benutzen Vielen Dank und liebe Grüsse Maria   maria85, 10. März 2011 #7 (Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.) Ignorierte Inhalte anzeigen Thema: Gültigkeitsprüfung "Liste" bei Änderung aktualisie Die Seite wird geladen... Gültigkeitsprüfung "Liste" bei Änderung aktualisie - Similar Threads - Gültigkeitsprüfung Liste Änderung Logik für Datenerfassung / Gültigkeitsprüfung in Microsoft Access Hilfe Logik für Datenerfassung / Gültigkeitsprüfung: Hallo Ich mache gerade meine ersten Gehversuche in Access. Daher weiss ich auch nicht wie ich nach meiner Fragestellung hier am besten suchen sollte noch ob mein gewählter Titel auf die richtige... Gültigkeit, erste Stelle fix, ab zweiter Stelle frei in Microsoft Excel Hilfe Gültigkeit, erste Stelle fix, ab zweiter Stelle frei: Hallo zusammen, in einer Excel-Tabelle sollen in bestimmten Zellen lediglich folgende Eingaben möglich sein: A;B;P;U Das ist soweit auch über die Gültigkeitsregeln kein Problem. Nun soll... Mehrere Zellen nach bestimmten Kategorien sortieren? in Microsoft Excel Hilfe Mehrere Zellen nach bestimmten Kategorien sortieren?: Hi ihr! In der Arbeit verwenden wir Excel 2000. Folgendes: Angenommen ich habe 3 verschiedene Spalten mit mehreren Zeilen. Spalte 1: "Kategorie" (z. B. Kneipe, Pizzeria) Spalte 2: "Bezeichnung"... Gültigkeitsprüfung verschwindet beim versenden der Datei in Microsoft Excel Hilfe Gültigkeitsprüfung verschwindet beim versenden der Datei: Guten Tag, ich habe in meinem Sheet 4 Tabellenblätter. 1. Seite Auswertung, 2 Seite Daten, 3 + 4.. Seite Druckbereich Erstellt wurde das in Excel 2010. Ohne Probleme kann ich auf S. 1 eine Liste... Gültigkeitsprüfung in Microsoft Excel Hilfe Gültigkeitsprüfung: Also heute aber ... Folgendes Problem bei Excel 2003 In einer Datei habe ich zwei Tabellenblätter A und B; In Tabelle A wird für jedes Fzg der Kraftstoffverbrauch eingetragen Spalte B bis K... Zahleingabe nur nach Gültigkeitsprüfung - Wie? in Microsoft Excel Hilfe Zahleingabe nur nach Gültigkeitsprüfung - Wie?: Moin, stehe gerade auf dem Schlauch. In Spalte N habe ich eine Auswahlliste von vers. Aufträgen (Aufbau, Abbau, etc.) über Datengültigkeit gelöst. Wie kriege ich es hin, dass ich in Spalte O... Gültigkeitsprüfung mit 2 Kriterien in Microsoft Excel Hilfe Gültigkeitsprüfung mit 2 Kriterien: Hallo Team, ich habe in Zelle C32 folgende Gültigkeitsprüfung: =WENN(C32<>"";C32="x") In Zelle C33 steht folgende Gültigkeitsprüfung: =WENN(C34<>"";C33="") Nun möchte ich Zelle C33 und... Benutzername oder E-Mail-Adresse: Besitzt du schon ein Benutzerkonto? Nein, erstelle jetzt ein Benutzerkonto. Ja, mein Passwort ist: Hast du dein Passwort vergessen? Angemeldet bleiben Anmelden oder registrieren Suche Nur die Titel durchsuchen Erstellt von: Trenne Benutzernamen durch Kommata. Neuer als: Nur dieses Thema durchsuchen Nur dieses Forum durchsuchen Die Ergebnisse als Themen anzeigen Nützliche Suchen Themen mit aktuellen Beiträgen Mehr Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten. Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Akzeptieren Weitere Informationen... Information ausblenden