HERBERS Excel-Forum - die Beispiele

Thema: Wechselweise den Eintrag einer 1 verhindern

Home

Gruppe

Feature

Problem

Wie kann ich in XL8 verhindern, daß in einer Zelle in Spalte A eine "1" eingetragen wird, wenn diese in der danebenliegenden Zelle von Spalte B schon vorhanden ist? Dies soll auch wechselweise gelten.

Lösung
Formel über Menü DATEN / GÜLTIGKEIT: =B1<>1 bzw. =A1<>1
ClassModule: Tabelle3

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   Dim intRow As Integer
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   If Target.Column = 2 Then
      With Worksheets(Target.Offset(0, -1).Value)
         intRow = .Cells(Rows.Count, 3).End(xlUp).Row + 1
         .Cells(intRow, 4) = Target
         .Cells(intRow, 3) = Target.Parent.Name
      End With
   ElseIf Target.Column = 4 Then
      With Worksheets(Target.Offset(0, -1))
         intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
         .Cells(intRow, 2) = Target
         .Cells(intRow, 1) = Target.Parent.Name
      End With
   End If
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   Dim iRow As Integer
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   If Target.Column = 2 Then
      With Worksheets(Target.Offset(0, -1).Value)
         iRow = .Cells(Rows.Count, 3).End(xlUp).Row + 1
         .Cells(iRow, 4) = Target
         .Cells(iRow, 3) = Target.Parent.Name
      End With
   ElseIf Target.Column = 4 Then
      With Worksheets(Target.Offset(0, -1).Value)
         iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
         .Cells(iRow, 2) = Target
         .Cells(iRow, 1) = Target.Parent.Name
      End With
   End If
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Feature und Gültigkeit

Installation: Microsoft Excel-Feature Features werden bei jedem Aufruf neu installiert
nettes feature Features von Excel XP - eure Meinung?
Gültigkeit. Bereich und weiterer Wert möglich? Datengültigkeit und S-verweis
Gültigkeit von 2 Spalten Datenüberprüfung - Gültigkeitskriterium - Quelle
Gültigkeitsprüfung über mehrere Blätter Gültigkeitsliste verringern
Laufzeitfehler 438 bei Datengültigkeit Datengültigkeit mit 2 Bedingungen
Wert aus Gültigkeitsliste -> Bereich kopieren Gruppensumme mit Gültigkeitsdauern
Dropdown mit abhängiger Gültigkeit Die folgenden features können...
Gültigkeit Gültigkeitsbereich bedingte Formatierung
Datenüberprüfung / Gültigkeit Datengültigkeit/Kommentar
Gültigkeitskriterien Drucker in Excel mittels Gültigkeit
Gültigkeit Gültigkeitsprüfung mit RowsCount
Gültigkeit, zulässig nur Monatsanfang oder -ende Hierarchische Gültigkeit
eine Zelle, mit 2 Gültigkeitsprüfungen Excel, Gültigkeitsprüfung, ob wert bereits vorhand
Gültigkeitsüberprüfung Retourwert aus Nebenspalte Gültigkeit von Email-Adressen prüfen
Doppelte Gültigkeitsprüfung (2 Popup-Meldungen) Gültigkeitsprüfung auf Umlaute
Gültigkeitsprüfung von Zahlen Auswahlgültigkeit per vba
Gültigkeitsprüfung von Datum bis Folgemonat Datenüberprüfung - Gültigkeitswerte aus Array
Gültigkeitsliste nur mit gefilteren Werte Gültigkeit - Dropdown
Gültigkeitsliste und Speichern "mögen" sich nicht Benutzerdefinierte Gültigkeit über mehrere Zellen
Gültigkeit von 4 nur 1 Feld ausfüllen Formelknobelei für spezifische Datengültigkeit ...
Datengültigkeitsliste Gültigkeitsliste dynamisch anfragen
abhängige Gültigkeit durch zusätzl. Spalte Kombinierte Gültigkeitskriterien
Daten, Gültigkeit 2016 Gültigkeit Liste erster Buchstabe
zwei Kriterien in Gültigkeitsprüfung Gültigkeit ohne VBA