OpenOffice.info

[quote="F3K Total" post_id=274264 time=1521826636 user_id=33602]
falsches Forum, du bist bei BASE-Datenbank.
[/quote]

[color=#FF0066]Moderationshinweis[/color]
Thema verschoben von [url=http://de.openoffice.info/viewforum.php?f=8]Base / SQL[/url] nach [url=http://de.openoffice.info/viewforum.php?f=18]Makros und allgemeine Programmierung[/url], wo alle Themen zur individuellen Programmierung hingehören.

lorbass, Moderator

buchstabe = CHR(66+i*3-2)&"$6"

args1(0).Value = buchstabe

Danke für die Antwort
Ich habe auch eine Lösung

[code]buchstabe = CHR(66+i*3-2)&"$6"

args1(0).Value = buchstabe[/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

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

Dim BU as string
for i=1 to 6
BU = CHR(66+i*3-2)

args1(0).Value = "BU$8"
..
..
next

Hallo
Ich habe eine Schleife wo ich jeden dritten Buchstaben an args1(0).Value übergeben will.

Also
args1(0).Value soll C8
nächste runde
args1(0).Value soll F8

der Cursor sollte dann von C8 auf F8 springen (in Calc)

Wie operiere ich den Buchstaben aus der Variablen

[code]
Dim BU as string
for i=1 to 6
BU = CHR(66+i*3-2)

args1(0).Value = "BU$8"
..
..
next[/code]

Vielen Dank