meine Formel wurde gerade hier schon weiter verbessert . Habe noch ne Frage
ich würde gerne Die Zahl die ich in Spalte D eintrage und dann in G nochmal vom Macro eingetragen wird.
Naja ich würde gerne die ganzen Zahlen die ich in D eintrage das die hinten ca. 30 Posistionen weiter rechts nochmal eingetragen werden
aber auf einer Breite von ca. 50 oder 100 Einträgen und dann vieleicht wieder von vorne anfängt.
Ich habe gestern schon mit nen paar schleifen usw rumgepielt und er hatte auch mal was eingetragen nur nich so wie ich es wollte
vieleicht hat ja einer eine Anregung für mich.
Code: Alles auswählen
Sub AddItNnow(event)
odoc=thisComponent
oSheet = oDoc.sheets(0)
oZelle = oDoc.getCurrentSelection()
iStartCol = oZelle.RangeAddress.StartColumn
iStartRow = oZelle.RangeAddress.StartRow
if iStartCol = 3 then
if iStartRow < 200 and iStartRow > 1 then rem Zeilen begrenzung
addValueMaxHp = osheet.getCellByPosition(iStartCol+2,iStartRow).value rem Spalte F auslesen. addValueMaxHp
addValue = osheet.getCellByPosition(iStartCol,iStartRow).value REM Spalte D auslesen. addValue Schaden
addValue2 = osheet.getCellByPosition(iStartCol+1,iStartRow).value REM Spalte E auslesen. addValue2 (mom.HP)
if addValueMaxHp = 0 then
osheet.getCellByPosition(iStartCol+2,iStartRow).string = "Max.HP" rem addValueMaxHp
osheet.getCellByPosition(iStartCol,iStartRow).string = ""
else
if osheet.getCellByPosition(iStartCol+1,iStartRow).type = 0 then ' liefert True, wenn die Zelle leer ist
osheet.getCellByPosition(iStartCol+1,iStartRow).value = addValueMaxHp-addValue
osheet.getCellByPosition(iStartCol+3,iStartRow).value = addValue
osheet.getCellByPosition(iStartCol,iStartRow).string = ""
else
osheet.getCellByPosition(iStartCol+1,iStartRow).value = addValue2-addValue
osheet.getCellByPosition(iStartCol+3,iStartRow).value = addValue
osheet.getCellByPosition(iStartCol,iStartRow).string = ""
end if
end if
end if
end if
end sub
jetzt wollte ich gerne das er die nochmal in Z.b. BA7 einträgt
dann gebe ich in D7 die nächste Zahl ein die er in G7 einträgt und jetzt zuzätzlich in BB7 einträgt usw BC7 ....
Diesen Post habe ich im anderen Forum auch drinnen stehen weil ich da mit einem anderen Problem angefangen bin.
https://www.openoffice-forum.de/viewtop ... 21&t=12619