OpenOffice.info

Es gilt, einstellige ganzzahlige Werte <5 einzugeben und zwar in Fünferblöcken. Das soll so aussehen, dass die Zellen A2-B2-C2-D2-E2 mit jeweils einem Wert befüllt werden sollen, dann A3-B3-C3-D3-E3 usw. Zeile 1 ist Überschriftszeile der Spalten.

Zwei Automatisierungswünsche habe ich für die Datenerfassung:

1. Eine korrekte, über Gültigkeit definierte einstellige Eingabe sollte automatisch den Sprung in die Nachbarspalte derselben Zeile bewirken: Ich gebe bspw. eine 3 in Zelle A1, CALC springt in B1 usw.

2. Eine Eingabe in der 5. Spalte, also E sollte dann einen Sprung in die erste Spalte der folgenden Zeile bewirken, also von E2 nach A3, später von E3 nach A4 usw.

Damit müsste zwar nach jedem Fünferpäckchen ein TAB gedrückt werden

Zum einen fehlt mir beim Import nach CALC die Trennoption innerhalb der 5er-Reihe, dh. ich bekomme 42211 in eine Zelle kopiert, brauche aber jeden Wert in einer eigenen Zelle.

Wichtig ist zudem, dass ich bei direkter Eingabe in CALC die Möglichkeit habe, fehlerhafte Eingaben vermeiden zu können über die Gültigkeitsdefinition.

Der Code, den ich da gefunden habe, hilft nicht weiter ?

REM  *****  BASIC  *****
global otxtrow
global oStartcell
global ncounter

Sub S_init_dlg
    oStartcell = thiscomponent.currentselection
    ncounter = 0
    DialogLibraries.LoadLibrary("Standard")
    odlgrow = CreateUnoDialog(DialogLibraries.Standard.dlgrow)
    otxtrow = odlgrow.getControl("txtrow")
    odlgrow.execute
    odlgrow.Dispose()
End Sub


Sub S_on_text_changed
    stext = otxtrow.Text
    if len(stext) = 5 then
        acrow = aRow(sText)
        ocelladdress = ostartcell.celladdress
        nrow = ocelladdress.row + ncounter
        ncolumn = ocelladdress.column
        nsheet = ocelladdress.sheet
        osheet = thiscomponent.sheets(nsheet)
        for i = 0 to 4
            ocell = osheet.getcellbyposition(ncolumn + i,nrow)
            ocell.value = acrow(i)
        next i
        ncounter = ncounter + 1
        otxtrow.Text = ""
    endif
End Sub

function aRow(srow)
    dim nRow(4) as integer
    for i = 1 to 5
        nRow(i-1) = mid(srow,i,1)
    next i
    arow = nRow
end function

• Startzelle anklicken
• Button klicken
• einstellige Zahlen ohne Pause hintereinander eingeben ...

irgendwie habe ich heute Probleme mit dem Speichern

dankeschön!

Wir sind ja nahezu auf die gleiche Lösung gekommen.

Da ich so einen mehrseitigen Dialog noch nie erstellt habe, habe ich mich gleich mal dran probiert.

Und ihr zwei, F3K und balu, ihr zaubert mir da exakt das hin, was ich mir erträumt hatte

Kann ich unfallfrei den Text der Buttons und der Falscheingabemeldungen ändern oder muss ich das auch von euch machen lassen ?

balu hat geschrieben: Und dadurch ist das Dialog-Layout in den Hintergrund getreten -{Ich werde jetzt aber auch nix mehr dran ändern}-.

pennylane2 hat geschrieben:Kann ich unfallfrei den Text der Buttons und der Falscheingabemeldungen ändern oder muss ich das auch von euch machen lassen ?

• feststehende Kopfzeile
• große Schrift im Dialog, für den Vorlesenden zum mitgucken
• Cursor springt mit, man sieht die aktuelle Zeile