Macro Erklärung bzw verweis auf eine gute seite zum lernen
Verfasst: Mo, 22.06.2020 07:59
Hallo zusammen
ich habe im in einem Forum das folgende Macro gefunden, aber da ich noch nie mit VBA zu tun hatte habe ich leider kein Plan vom Syntax bzw den Funktionen. Könnte mir jemand das vielleicht erklären was genau welche Funktion macht oder zumindest einen Link zu einer Seite schicken auf der ich mich belesen kann.
MfG
Nopsi
ich habe im in einem Forum das folgende Macro gefunden, aber da ich noch nie mit VBA zu tun hatte habe ich leider kein Plan vom Syntax bzw den Funktionen. Könnte mir jemand das vielleicht erklären was genau welche Funktion macht oder zumindest einen Link zu einer Seite schicken auf der ich mich belesen kann.
Code: Alles auswählen
Private sRangeSelection$,bRangeSelecting As Boolean
'return a valid com.sun.star.sheet.SheetCellRange from a user's range-selection (or Empty)
Function getRangeSelection(oController,sInitial$,sTitle$,bAutoClose as Boolean,bSingle as Boolean)
On error goto returnEmpty
Dim oListener,aProps(3) As New com.sun.star.beans.PropertyValue
oListener = createUnoListener("RangeSelection_","com.sun.star.sheet.XRangeSelectionListener")
oController.addRangeSelectionListener(oListener)
aProps(0).Name = "InitialValue"
aProps(0).Value = sInitial
aProps(1).Name = "Title"
aProps(1).Value = sTitle
aProps(2).Name = "CloseOnMouseRelease"
aProps(2).Value = bAutoClose
aProps(3).Name = "SingleCellMode"
aProps(3).Value = bSingle
With oController.getFrame
'this is required when calling from IDE or other frame in order to avoid endless loop
.activate
.getContainerWindow.toFront
End With
bRangeSelecting = True
oController.startRangeSelection(aProps())
while bRangeSelecting
wait 200
Wend
oController.removeRangeSelectionListener(oListener)
if len(sRangeSelection)>0 then getRangeSelection = oController.getActiveSheet.getCellRangeByName(sRangeSelection)
returnEmpty:
End Function
Nopsi