von retuwe61 » Di, 17.10.2017 17:35
Hallo miteinander.
Ich habe zwei Fragen:
Nachdem ich in einer Zeile mehrere nebeneinanderliegende Zellen markiert habe, starte ich das nachfolgende Makro, was jedoch in der Zeile
mit einer Fehlermeldung abbricht. Ich finde keine Lösung für die Problembehebung.
Weiterhin möchte die dann für eine Duplikatsuche die in den MsgBoxen enthaltenen Informationen in eine "WENN/UND-Formel" (z. B. =WENN(UND(B2=B1;C2=C1;D2=D1))) übernehmen.
Habt ihr eine Idee?
Gruß
Uwe
Code: Alles auswählen
Sub SelectedCells
oDoc = thisComponent
oSelectColumn=ThisComponent.CurrentSelection.Columns
CountColumn=oSelectColumn.getCount
oSelectSC=oSelectColumn.getByIndex(0).getName
If CountColumn =1 AND CountRow =1 Then
MsgBox ("" + oSelectSC + 2 + "")
Else
For x = 0 To CountColumn -1
MsgBox ("" + oSelectSC(x) + 2 + "")
oSelectSC=oSelectColumn.getByIndex(x+1).getName
Next x
End If
End Sub
Hallo miteinander.
Ich habe zwei Fragen:
Nachdem ich in einer Zeile mehrere nebeneinanderliegende Zellen markiert habe, starte ich das nachfolgende Makro, was jedoch in der Zeile
[code]oSelectSC=oSelectColumn.getByIndex(x+1).getName
[/code]
mit einer Fehlermeldung abbricht. Ich finde keine Lösung für die Problembehebung.
Weiterhin möchte die dann für eine Duplikatsuche die in den MsgBoxen enthaltenen Informationen in eine "WENN/UND-Formel" (z. B. =WENN(UND(B2=B1;C2=C1;D2=D1))) übernehmen.
Habt ihr eine Idee?
Gruß
Uwe
[code]Sub SelectedCells
oDoc = thisComponent
oSelectColumn=ThisComponent.CurrentSelection.Columns
CountColumn=oSelectColumn.getCount
oSelectSC=oSelectColumn.getByIndex(0).getName
If CountColumn =1 AND CountRow =1 Then
MsgBox ("" + oSelectSC + 2 + "")
Else
For x = 0 To CountColumn -1
MsgBox ("" + oSelectSC(x) + 2 + "")
oSelectSC=oSelectColumn.getByIndex(x+1).getName
Next x
End If
End Sub[/code]