Zellen einträge prüfen und dopplung anzeigen lassen

[opl]

Hallo liebes Forum,

ich habe hier eine Art dienstplan mit 3 Dienstarten.
A B und C

der NAme der in A steht darf nicht am gleichen und nachfolge Tag in B oder C stehen.

Kann ich mir das anzeigen lassen oder gar den Eintrag verhindern ??


Danke

[Stephan]

oder gar den Eintrag verhindern ??

z.B. indem Du mit Daten-Gültigkeit die Eingabe mittels Makro prüfst.

Zulassen: Textlänge
Daten: Gleich
Wert: 0

Fehlermeldung
Aktion: Makro


und z.B. folgende Function zuordnest:

Code: Alles auswählen

Function pruefe_namen(wert)
  akt_zeile = ThisComponent.getCurrentSelection.RangeAddress.StartRow
  akt_spalte = ThisComponent.getCurrentSelection.RangeAddress.StartRow
  
  alle = ARRAY(1,2,4,5,7)
  With ThisComponent.Sheets().getByIndex(0)
    For i = 0 To 4
      If .getCellByPosition(alle(i),akt_zeile).String = wert AND alle(i) <> akt_spalte Then
          pruefe_namen = True
        Else
          Msgbox "Eintrag schon vorhanden"
          pruefe_namen = False
          Exit Function
      End If
    Next i
  End With
  
End Function

Die folgende Datei demostriert das ganze für die Prüfung von Eingaben in einer Zeile, für mehrere Zeilen mußt Du das selbst ergänzen denn DEin Kriterium:

und nachfolge Tag

setzt natürlich eine Bezug voraus, führt dann aber zu ERgebnissen die wohl nicht erwünscht sind wenn er zusammen mit:

der NAme der in A steht darf nicht

angewendet wird, so ich nicht annehme das in B oder C beliebige Eingaben möglich sein sollen. Obiges Beispiel prüft in jedem Fall wechselseitig auf das Vorhandensein eines Wertes, also auch Eingabe von "Müller" in B oder C wird verhindert wenn in A bereits "Müller" steht und nicht nur Eingabe von "Müller" in A wird verhindert wenn in B oder C bereits "Müller" steht.


Gruß
Stephan

[opl]

Vielen Dank Stephan,

nun Makros sind für mich viel zu hoch leider ! Daher werde ich da am anpassen kläglich scheitern.

Vielen Dank fürs aufwendige schreiben des solchen.
Aber dafür bin ich viel zu sehr anfänger mit open office !

Gibt es dann wenigstens eine Möglichgeit doppel einträge automatisch rot zu Markieren ???

[Stephan]

Gibt es dann wenigstens eine Möglichgeit doppel einträge automatisch rot zu Markieren

mittels bedingter Formatierung.

Eine geignete Bedingung für Zelle B6 in Deiner Beispieldatei könnte lauten:

Formel ist: ZÄHLENWENN(B6:H7;B6)>1



Gruß
Stephan

[opl]

Vielen Dank Stephan für dei hilfreiche und Wertvolle Antwort.


Vielen Dank !