Makro um Zellen zu durchsuchen

[Zachariass]

Hi!

Ich bräuchte dringend ein Makro das folgendes macht:

- Durchlaufe 12 verschiedenen Spalten mit jeweils 31 Reihen (also 31 Zellen pro Spalte)
- Wenn der Inhalt gleich dem Buchstaben in Zelle X.Y ist ersetze den Inhalt durch '-'
- MsgBox( "Name aus Zelle X.Y (String)" wurde aus dem Plan gelöscht)

Leider kenne ich mich überhaupt nicht mit der LibreOffice Bibliothek aus. Allerdings bräuchte ich dieses Makro.

Es würde mich freuen, wenn mir jemand weiterhelfen könnte.

MfG
Zachariass

PS.: Wenn du mir helfen kannst, und vielleicht Hilfe in Java, C,C++ oder RealBasic brauchst, bin ich gerne bereit dir zu helfen .

[Robert Tucker]

Etwa so:

Code: Alles auswählen

Sub SundE

oSheet = thisComponent.Sheets(0)
oCell = oSheet.getCellByPosition(0,0)
fString = oCell.String
rString = "-"
oRange = oSheet.getCellRangeByPosition(3,3,14,33)
FandR = oRange.createReplaceDescriptor
FandR.setSearchString(fString) 
FandR.SetReplaceString(rString)
oRange.ReplaceAll(FandR)
MsgBox (fstring & " wurde aus dem Plan gelöscht")

End Sub

"12 verschiedenen Spalten mit jeweils 31 Reihen": D4:034 (3,3,14,33)

"Zelle X.Y": A1 (0,0)

[Zachariass]

Vielen Dank für die schnelle Hilfe!

Leider tut sich beim ausführen garnichts. Wenn ich es direkt im Editor ausführe, sagt es mir, dass es aus Sicherheitsgründen nicht ausgeführt werden kann.

Irgendeinen Tipp?

[Robert Tucker]

Überprüfen Sie Ihre Einstellungen unter: Extras>Optionen...>Sicherheit "Makrosicherheit"

Anscheinend funktioniert das Makro unter "Meine Makros.Standard" aber nicht unter "[Dokumentname].Standard"