WENN DANN abhängig von Curser Position

[achimgr]

Hallo,
folgendes würde ich gerne wissen:
Wie lautet der Code für: WENN sich der Cursor in Zeile 10 befindet, DANN öffne Formular 1, WENN sich der Cursor in Zeile 11 befindet öffne Formular 2, SONST mache nichts.
Der Hintergrund ist: Ich möchte auf einem Tabellenblatt auf eine Zelle doppelklicken, da soll dann per Tabellenereignis in Abhängigkeit welche Zelle ich angeklickt habe, das entsprechende Formular angezeigt werden, ich wähle eine Option aus, und diese wird in die doppelgeklickte Zelle geschrieben.

[clag]

Hallo achimgr,

Wie lautet der Code für:

"Den" Code gibt es vermutlich nicht.

Eine Variante wie man es machen könnte habe ich mal zusammengebaut
und die kannst du in der Beispieldatei ansehen und austesten.

Wert_bei_Doppelklick.ods

(9.5 KiB) 46-mal heruntergeladen

viel Spass damit

[Karolus]

Hallo

Code: Alles auswählen

Sub entscheidung( ereignis )
r = ereignis.CellAddress.Row
if r = 9 then print "zeile10"
if r = 10 then  print "zeile 11"
End Sub

Karolus

[achimgr]

Vielen Dank dafür schon mal an clag und Karolus,
aber statt einen Wert hinzuscheiben oder eine Msgbox zu zeigen, soll ein Formular (wie ich das kreiere suche ich mir auch gerade noch zusammen) angezeigt werden, im Sinne von "Show Formular 1"
Dieses hat dann mehrere Buttons (klicke ich auf einen Button mit dem Namen "10", wird 10 in das doppelgeklickte Feld geschrieben). Sozusagen die Msgbox mit mehreren OK-Button (mit unterschiedlichen Aktionen bei klick -logisch).
Gibt es dafür noch Tipps?

[achimgr]

Ich habe jetzt rausgefunden, dass das von mir genannte "Formular" -ich kenne es aus excel als "userform"- in OO. "Dialog" genannt wird. Das soll geöffnet werden. Ich weiss nur noch nicht wie ein Dialog angelegt wird. Da bin ich dran. Wie heisst der Code um per Doppelklick (Tabellenereignis) einen Dialog zu öffnen, und zwar wie schon beschrieben: Wenn Curser in Zeile 10, dann öffne Dialog1, wenn curser in Zeile 11, dann öffne Dialog2, sonst mach nichts.
Danke

[clag]

Hallo achimgr,

habe dem ersten Beispiel noch zwei Auswahl Dialoge spendiert,
wobei zu beachten ist, dass die verwendeten Listboxen Textstrings ausgeben.
Falls mit den Werten gerechnet werden soll kannst du mit der Funktion WERT() darauf zugreifen

Wert_bei_Doppelklick_aus_Dialog.ods

(11.78 KiB) 57-mal heruntergeladen

viel Spass damit

[Karolus]

Hallo

@Clag :
Warum so vieles doppelt und dreifach ?

Code: Alles auswählen

Sub Main( DoppelKlickEreignis )
  DialogLibraries.LoadLibrary( "Standard" )
  row = DoppelKlickEreignis.CellAddress.Row
  if row<9 or row>10 then exit sub
  if row=9 then 
    Dialog = CreateUnoDialog( DialogLibraries.Standard.Dialog1)
  else
    Dialog = CreateUnoDialog( DialogLibraries.Standard.Dialog2)
  end if

  Control = Dialog.getControl("ListBox1")
  Dialog.execute()
  DoppelKlickEreignis.String = Control.SelectedItem
  Dialog.dispose()
end sub

Ich hatte doch zwei Posts weiter oben ein Beispiel gebracht wie man das "automatisch" mitgelieferte Argument verwertet.

Karolus

[F3K Total]

Hallo Karolus,
mal 'ne kleine OT-Frage:
Wie färbst Du deinen Code hier in den Beiträgen ein?
Ist viel besser zu lesen, als der rein grüne Text.
Gruß R

[Karolus]

Hallo R

Drück auf "Zitieren" und lies was ich im

Code: Alles auswählen

-tag eingebaut habe.

Gruß Karolus

[F3K Total]

Hallo Karolus

Code: Alles auswählen

Sub Dankeschoen
    if "zeige Code" then
        "verwende karolus' tag"
    end if
end sub
"Gruß R" 

[clag]

Hallo Karolus,

@Clag :
Warum so vieles doppelt und dreifach ?

Das hat einige Gründe:
1. kann ich nur Wege beschreiben die ich kenne
2. habe ich versucht die Frage von achimgr möglichst getreu der Fragestellung nach zu beantworten
3. ich versuche nachvollziehbaren Code zu zeigen
4. sind es ausschließlich Teile aus Herrn Dannehöfer Hilfeseiten
5. wollte ich dir was zum optimieren lassen um dann
6. zu sehen wie du es besser machst

Deine Programmierkenntnisse sind ganz sicher exzellent, aber darüber vergisst du scheinbar manchmal,
das Andere auf einem ganz andern Kenntnis Level deinen super kurzen Code nicht nachvollziehen können.
Wenn du solch SuperCode aufzeigst, wäre es toll wenn du dir die Zeit nehmen würdest es kurz zu erläutern, und vielleicht auch mal Quellen nennen.
Nur dann, wenn der Leser versteht warum und wie du etwas gekürzt hast kann man das auch weiter verwerten, und in eigenen Code übernehmen
sonst bleibt nur den Code kopieren und freuen das es läuft, aber wieso bleibt aber das große ?

In dem Zusammenhang will ich auch gleich noch einmal mein Unverständnis für jegliche Form von zurechtweisenden oder abwertenden Kommentaren deutlich machen.
Jeder der hier im Forum eine sachliche Frage stellt, sollte die gleiche Chance auf eine neutrale sachliche Antwort haben.
Zumal es auch noch ausgesprochen unlogisch ist drei Zeilen Text zu schreiben um den Fragen auf seine vermeintliches Fehlverhalten hinzuweisen
dann aber keine sachliche Antwort geben die vielleicht nur eine Zeile benötigt hätte, das ist in meinen Augen ätzendes oberlehrerartiges Schlaumeier Verhalten.
Wobei ich jetzt nicht direkt dich meine, deine Kommentare sind meist sehr sachlich.
Aber zB die Wadenbeißer bei Doppelposts oder "musst du doch wissen hast schon so oft gefragt" oder derartiges ist m.E. völlig fehl am Platz,
denn wenn eine neue "Susimaus" die gleiche Frage stellt hagelt es Antworten.
Also was soll denn sowas

[achimgr]

Hallo an alle Helfenden,

war ein paar Tage abwesend. Vielen Dank für die weiteren Hilfen.
Ich arbeite mich durch und passe es meinem Bedarf an, dadurch lerne ich weiter dazu.
Bei weiteren Fragen melde ich mich gerne wieder.