zufallsgenarator

[komma4]

Klar, das hilft!
Ich tippe auf ein Leerzeichen hinter

Code: Alles auswählen

Function Zufall_1_bis_200()
Dim oPSM
oPSM = _ 

Der Basic-Editor ist auch ein Editor: nutze die Suchfunktion zum Aufspüren der UnterstrichLeerstelle-Kombinationen im Code.

Habe hier gerade ein Dutzend Durchläufe probiert: nach OOo Neustart, Dokument geöffnet per Datei>Öffnen, Zuletzt benutzte Dokumente oder von der Oberfläche (KDE) durch "Doppelklick": funktioniert...

War es das nun?

[wegomyway]

REM ***** BASIC *****

Sub ZufallsZelle
Dim bWEITERSUCHEN as Boolean

' alle Tabellen dieser CALC-Datei
oAlleTAB = ThisComponent.getSheets()

' Tabelle bestimmen
oTabelle = oAlleTAB.getByName( "Tabelle1" )

' Endlosschleife
' zur Sicherheit nach 1000 Durchläufen abbrechen
bWEITERSUCHEN = TRUE
i = 1
idxZeile = 0

Do
' Zufallswert ermitteln
iZUFALL = Zufall_1_bis_200()

if iZUFALL = 0 then
msgbox "Fehler Zufallsbereich 1 bis 200"
exit sub
else
oInhalt =_
oTabelle.getCellByPosition( 1, iZUFALL - 1).getString()

bis genau dahin hab ich alles was ich in jeder zeile als leere felder am ende vorhanden war gelöscht .... und gespeichert und dann das macro ausgeführt .... jupiiii .... es wurde soeben die zahl 158 gewählt und das entsprechende datum dazu ..... supi liebe leutz , das ihr hier so super geholfen habt und auch ein wenig , oder auch mehr , an geduld aufgebracht habt ..... auf euch alle ein schwarzes ........ köstritzer .....
ne frage ist da trotzdem noch ... in dem hinweisfenster steht drin "anzahl versuche 1 , heute wurde blatt 155 gewählt" es bleibt immer die zahl 1 für die versuche .... der rest funktioniert ....

[Karolus]

Hej

Na endlich - war ja ne schwere Geburt - und Prost.

Gruß Karo

ps. aber du versucht bei Gelegenheit "meinen" kleinen Beitrag hinzuzufügen - gell ??

[wegomyway]

ist versprochen .....
edit : ist eingefügt , nach einem 200tipp-marathon erschien die schicke meldung .... und ob das projekt zurück gestzt werden soll .... also auch deine mühen sind , wie die von allen hier, belohnt worden .... supisache das ganze ....