Hallo,
> From: Marcel Brömme [mailto:[email protected]]
> Ich brauche dringend Hilfe.
> Es geht um Calc ich kann im Internet nach 2 Wochen langer
> Suche einfach
> nichts finden.
> Es geht um Duplikate wenn ein Nutzer in Spalte B einen wert
> einträgt soll
> überprüft werden ob dieser wert bereits in Spalte B vorhanden
> ist. Wenn er
> vorhanden ist dann soll eine msgbox ausgegeben werden in der
> steht: "Die
> eingegeben Projektnummer ist bereits vorhanden". Danach soll
> die in den
> Feld eingegeben Zahl gelöscht werden und zur Neueingabe
> bereit stehen. Ist
> dies denn Irgendwie möglich in Calc?
Am Einfachsten über Daten-Gültigkeit, Beispiel:
Wenn die in Frage kommenden Zellen B1 bis B1000 wären, diese Zellen markieren,
im
Menü Daten-Gültigkeit aufrufen und im erscheinenden Dialog auf Seite "Kriterien"
einen Wert vorgeben der garantiert nie eingegeben werden soll, meinethalben:
Zulassen: ganze Zahl
Daten: gleich
Wert: 8888888888
Auf Seite "Fehlermeldung" folgendes Makro (naja, eigentlich eine Funktion)
zuordnen:
Function ueberpruefe_eingabe(NewValue As String, CellAddress As String) As
Boolean
tmp = Split(CellAddress, ".")
Dim vorhanden As Boolean
vorhanden = False
With ThisComponent.CurrentController.activeSheet
x = .getCellRangeByName("B1:" & tmp(1)).getDataArray()
For i = 0 To UBOUND(x())
tmp_arr = x(i)
If tmp_arr(0) = NewValue Then
vorhanden = True
Exit For
End If
Next i
If vorhanden = True Then
Msgbox "Die eingegeben Projektnummer ist bereits vorhanden"
ueberpruefe_eingabe = False
Else
ueberpruefe_eingabe = True
End If
End With
End Function
Rückantworten NUR an die Mailingliste.
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
