OpenOffice.info

Private Sub Worksheet_SelectionChange()
On Error Resume Next
  If Selection.Column = "1" And Selection.Columns.Count = 1 And _
  Selection.Count > 1 And Selection.Areas.Count = 1 Then
    UserForm1.Show
  End If
End Sub

Hallo DPunch,

Danke für deine Antwort und die Tipps bezüglich der disposing Methode und dem Anhalten des Listeners.

[quote="DPunch"]
Ich sehe für Dein sehr spezielles Anliegen keine sinnvollere Lösung als einen Button (oder auch ein Tastenkürzel). ... Die Arbeit mit einem Listener, der dann ohne Möglichkeit der Korrektur einfach mal losfeuert, stelle ich mir im täglichen Betrieb unheimlich nervig vor.[/quote]
Also ich baue eine in der Handhabung bewährte Exceldatei um. Der nun eingebaute Button verlangsamt eben das Arbeiten damit.

[quote="DPunch"]
Der Zellbereich selber weiss nicht, ob er selektiert wurde oder nicht und kann demzufolge auch keine entsprechende Rückmeldung geben.
Derartige Dinge kann Dir nur der Controller signalisieren, und der erstreckt sich nunmal über das ganze Dokument.[/quote]
Ja, ok, da hab ich mich wohl undeutlich ausgedrückt. Wie soll ich das beschreiben...? Also egal, was wo markiert wird, geht das extrem auf die Performance, weil bei jeder Markierungsänderung ja eine Prüfung erfolgt. Aber eigentlich interessieren nur Markierungen in Spalte A. Keine Ahnung, wie das umzusetzen ist, jedenfalls habe ich die Performance Probleme in meiner Exceldatei nicht.

[quote="DPunch"]
Woher soll der Listener denn wissen, wann tatsächlich der "gewünschte" Bereich markiert ist? Vielleicht ist eine Zelle zuviel/zuwenig markiert?[/quote]
Das ist ja genau das, was ich gern wissen möchte. Wie kann ich das dem Listener klarmachen, dass der gewünschte Bereich erst dann markiert ist, wenn ich meine Maustaste loslasse? Bei falscher Markierung kann ja in meinem Fall der aufpoppende Dialog einfach geschlossen werden. Hier mal der Code, wie einfach das mit VBA funktioniert:

[code]
Private Sub Worksheet_SelectionChange()
On Error Resume Next
If Selection.Column = "1" And Selection.Columns.Count = 1 And _
Selection.Count > 1 And Selection.Areas.Count = 1 Then
UserForm1.Show
End If
End Sub
[/code]

Ich bin sicher, da gibts auch eine Lösung für Basic.

Grüße,

Sub selectionCheck_disposing
  REM Hier muss nichts getan werden
End Sub

Aloha

Ich sehe für Dein sehr spezielles Anliegen keine sinnvollere Lösung als einen Button (oder auch ein Tastenkürzel).

[quote="Maggus"]Die Prozedur sollte erst starten, wenn der gewünschte Bereich markiert ist.[/quote]
Woher soll der Listener denn wissen, wann tatsächlich der "gewünschte" Bereich markiert ist? Vielleicht ist eine Zelle zuviel/zuwenig markiert?
Die Arbeit mit einem Listener, der dann ohne Möglichkeit der Korrektur einfach mal losfeuert, stelle ich mir im täglichen Betrieb unheimlich nervig vor.

[quote="Maggus"]dass ich mit dem XSelectionChangeListener alle Sheets überwache, eine Eingrenzung für einen festgelegten Bereich habe ich nicht gefunden.[/quote]
Der Zellbereich selber weiss nicht, ob er selektiert wurde oder nicht und kann demzufolge auch keine entsprechende Rückmeldung geben.
Derartige Dinge kann Dir nur der Controller signalisieren, und der erstreckt sich nunmal über das ganze Dokument.

[quote="Maggus"]das mit dem Anhalten des Listeners funktioniert nach dem Öffnen der Datei, aber nach bisschen rumspielen irgendwann nicht mehr.[/quote]
Das tritt vor allem dann auf, wenn man zwischendurch am Code rumdoktort, selten im ganz normalen Betrieb.

Abgesehen davon wird jedoch wärmstens empfohlen, jedem Listener die Methode "disposing" zur Verfügung zu stellen.
[code]Sub selectionCheck_disposing
REM Hier muss nichts getan werden
End Sub[/code]

Da hier anscheinend keiner eine Lösung hat, starte ich die Prozedur nun mit einem Button. Schade eigentlich... :(

Falls doch noch jemand einen Tipp hat, ich würd mich freuen.

Grüße,

Global selChange as Object 'Der Listener
Global ListenerAlreadyAdded as Boolean 'Listener nicht mehrmals starten

Sub start_listener
  If ListenerAlreadyAdded Then Exit Sub
  selChange = createUnoListener("selectionCheck_", "com.sun.star.view.XSelectionChangeListener")
  oDoc = ThisComponent
    oDoc.getCurrentController.addSelectionChangeListener(selChange) 
    ListenerAlreadyAdded = True
    MsgBox "Listener added"
End Sub

Sub stop_listener
  If isNull(selChange) Then Exit Sub
  oDoc = ThisComponent
  oDoc.getCurrentController.removeSelectionChangeListener(selChange)
  MsgBox "Listener removed"
  ListenerAlreadyAdded = False
End Sub


Sub selectionCheck_selectionChanged(oEvent)
  oDoc = ThisComponent
  oSel = oDoc.getCurrentSelection()

  If oSel.supportsService("com.sun.star.sheet.SheetCell") Then
    'MsgBox "Eine Zelle markiert"    
  Elseif oSel.supportsService("com.sun.star.sheet.SheetCellRange") Then
    'MsgBox "Ein Bereich wurde markiert"
    If oSel.RangeAddress.StartColumn = 0 And oSel.RangeAddress.EndColumn = 0 Then
      exportHTML()
    End If
  Elseif oSel.supportsService("com.sun.star.sheet.SheetCellRanges") Then
    'MsgBox "Mehrere Bereiche wurden markiert"                        
  End If
End Sub

Sub exportHTML
  MsgBox "Prozedur gestartet"
End Sub

Hallo,

Folgendes möchte ich erreichen:
Wenn in einem festgelegtem Sheet in Spalte A ein zusammenhängender Bereich markiert wird, soll eine Prozedur gestartet werden.

Nun habe ich das mit dem XSelectionChangeListener versucht, aber ich scheitere daran, dass die Prozedur gestartet wird bevor ich beim Selektieren die Maustaste loslasse. Die Prozedur sollte erst starten, wenn der gewünschte Bereich markiert ist. Muss ich da vielleicht einen anderen Listener nehmen?

Weiteres Problem: es scheint, dass ich mit dem XSelectionChangeListener alle Sheets überwache, eine Eingrenzung für einen festgelegten Bereich habe ich nicht gefunden. Das könnte ich zwar in meiner Sub selectionCheck_selectionChanged abfangen, aber das scheint auf die Performance zu gehen.

Noch ein Problem: das mit dem Anhalten des Listeners funktioniert nach dem Öffnen der Datei, aber nach bisschen rumspielen irgendwann nicht mehr. Ist der Code nicht sauber?

HIer mein Code:
[code]
Global selChange as Object 'Der Listener
Global ListenerAlreadyAdded as Boolean 'Listener nicht mehrmals starten

Sub start_listener
If ListenerAlreadyAdded Then Exit Sub
selChange = createUnoListener("selectionCheck_", "com.sun.star.view.XSelectionChangeListener")
oDoc = ThisComponent
oDoc.getCurrentController.addSelectionChangeListener(selChange)
ListenerAlreadyAdded = True
MsgBox "Listener added"
End Sub

Sub stop_listener
If isNull(selChange) Then Exit Sub
oDoc = ThisComponent
oDoc.getCurrentController.removeSelectionChangeListener(selChange)
MsgBox "Listener removed"
ListenerAlreadyAdded = False
End Sub


Sub selectionCheck_selectionChanged(oEvent)
oDoc = ThisComponent
oSel = oDoc.getCurrentSelection()

If oSel.supportsService("com.sun.star.sheet.SheetCell") Then
'MsgBox "Eine Zelle markiert"
Elseif oSel.supportsService("com.sun.star.sheet.SheetCellRange") Then
'MsgBox "Ein Bereich wurde markiert"
If oSel.RangeAddress.StartColumn = 0 And oSel.RangeAddress.EndColumn = 0 Then
exportHTML()
End If
Elseif oSel.supportsService("com.sun.star.sheet.SheetCellRanges") Then
'MsgBox "Mehrere Bereiche wurden markiert"
End If
End Sub

Sub exportHTML
MsgBox "Prozedur gestartet"
End Sub
[/code]

OpenOffice.org 3.0.0 auf Red Hat Enterprise Linux Client release 5.2 (Tikanga)