von F3K Total » Fr, 23.03.2018 18:37
Hi,
falsches Forum, du bist bei BASE-Datenbank.
Ich schätze, du versuchst ein aufgenommenes Makro umzubauen, es geht einfacher:
Code: Alles auswählen
Sub Jump_3_Columns
oSheet = ThisComponent.Sheets.getByName("Tabelle1")' auf Tabelle1
oStartcell = oSheet.getCellRangeByName("C8")' bei C8 starten
nColumn = oStartcell.Celladdress.Column
nRow = 7' Zeile 8, hat Index 7
for i = 0 to 6
oCell = oSheet.getCellbyPosition(nColumn+3*i,nRow) 'Alle drei Spalten
oCell.String = "Treffer"
next i
End Sub
Dieses Makro trägt in die gewünschten Zellen das Wort
Treffer ein, Beispieldatei anbei.
Gruß R
- Dateianhänge
-
- Three_Columns.ods
- (10.17 KiB) 129-mal heruntergeladen
Hi,
falsches Forum, du bist bei BASE-Datenbank.
Ich schätze, du versuchst ein aufgenommenes Makro umzubauen, es geht einfacher:[code]
Sub Jump_3_Columns
oSheet = ThisComponent.Sheets.getByName("Tabelle1")' auf Tabelle1
oStartcell = oSheet.getCellRangeByName("C8")' bei C8 starten
nColumn = oStartcell.Celladdress.Column
nRow = 7' Zeile 8, hat Index 7
for i = 0 to 6
oCell = oSheet.getCellbyPosition(nColumn+3*i,nRow) 'Alle drei Spalten
oCell.String = "Treffer"
next i
End Sub[/code]Dieses Makro trägt in die gewünschten Zellen das Wort [color=#0040FF][b]Treffer[/b][/color] ein, Beispieldatei anbei.
Gruß R