OpenOffice.info

Super danke genau daran hat es gelegen^^

oh man und ich hab schon sau lange daran rumprobiert^^

Danke nochmal !

kann geschlossen werden !

oSearchDesc.SearchString = oList3.currentValue

oSearchDesc.SearchString = oList3.Text

oSearchDesc.searchString = True

oSearchDesc.searchWords = True

Aloha

Ersetz mal

[code]oSearchDesc.SearchString = oList3.currentValue[/code]
durch
[code]oSearchDesc.SearchString = oList3.Text[/code]

Ausserdem macht natürlich
[code]oSearchDesc.searchString = True[/code]
keinen Sinn, eher schon
[code]oSearchDesc.searchWords = True[/code]

oDoc = thisComponent
oSheet = oDoc.Sheets(1)
oRange = oSheet.getCellRangeByName("A9:A500")
oSearchDesc = oSheet.createSearchDescriptor
oSearchDesc.SearchString = oList3.currentValue
oSearchDesc.searchString = True
oResult = oRange.findAll(oSearchDesc)
If NOT isNull(oResult) Then
   For Each cellRange in oResult
      Msgbox "Fehler Eintrag schon vorhanden..."
   Next cellRange
End If

Moin Moin,

also es wird ein Wert von der 1ten Mappe in die 2te Mappe geschrieben, in diesem Fall ein Datumsfeld. Das funktioniert auch, nur will ich Doppeleintragungen vermeiden, und dazu will ich die gesamte spalte a (max.500 zeilen) mit dem Datum vergleichen, wenn es das Datum schon gibt, dann soll eine msgbox mit einem fehler kommen und ansonsten solls eingetragen werden... aber ich komm einfach nicht vorran :/ bitte helft mir, hier der code

-oList3 ist das Datumsfeld

[code]oDoc = thisComponent
oSheet = oDoc.Sheets(1)
oRange = oSheet.getCellRangeByName("A9:A500")
oSearchDesc = oSheet.createSearchDescriptor
oSearchDesc.SearchString = oList3.currentValue
oSearchDesc.searchString = True
oResult = oRange.findAll(oSearchDesc)
If NOT isNull(oResult) Then
For Each cellRange in oResult
Msgbox "Fehler Eintrag schon vorhanden..."
Next cellRange
End If[/code]

Hat jemand ne Idee ?
Vielen Dank für die Hilfe !