Seite 1 von 1
Ich fühle mich sehr blöd
Verfasst: So 2. Okt 2016, 16:06
von Atwist
Ich weiß nicht mehr wie es geht um mit eine Makro A1 = B10 oder B9 = B10 + B11 Berechnung zu mach,
Fühle wie wie einen Anfänger, ich weiß es ist sehr einfach aber ich habe einen Blackout momentan.
Ich bitte um einen Sub für A1 = B10 und ein Sub für B9 = B10 + B11 hiermit kann ich dann wieder weiter bauen.
Re: Ich fühle mich sehr blöd
Verfasst: So 2. Okt 2016, 16:45
von craig
Hallo,
ein kleiner Hinweis:
Dieser Beitrag gehört in die Rubrik
LibreOffice Programmierung.
Copy:
Code: Alles auswählen
Sub xCopy
Dim oDoc as Object
Dim oCC as Object
' Dokument Referenz
oDoc=ThisComponent
' Controller Referenz
oCC=oDoc.getCurrentController()
' aktuelles Sheet
oSheet=oCC.getActiveSheet
'mri oSheet
' Zuweisung per Adressname
oSheet.getCellRangeByName("A1").Value=oSheet.getCellRangeByName("B10").Value
REM ODER Zuwesiung per Position (0,0) = A1
REM oSheet.getCellByPosition(0,0).Value=oSheet.getCellByPosition(1,9).Value
End Sub
Add and Copy:
Code: Alles auswählen
Sub xAddnCopy
Dim oDoc as Object
Dim oCC as Object
' Dokument Referenz
oDoc=ThisComponent
' Controller Referenz
oCC=oDoc.getCurrentController()
' aktuelles Sheet
oSheet=oCC.getActiveSheet
'mri oSheet
' Addition B10+b11 | Zuweisung per Adressname
oSheet.getCellRangeByName("A1").Value=oSheet.getCellRangeByName("B10").Value + _
oSheet.getCellRangeByName("B11").Value
REM ODER Addition B10+b11 | Zuweisung per Position (0,0) = A1
' oSheet.getCellByPosition(0,0).Value=oSheet.getCellByPosition(1,9).Value + _
oSheet.getCellByPosition(1,10).Value
End Sub
Zur weiteren Untersuchung des Code empfehle ich Dir die
MRI-Extension für die Basic-IDE.
Gruß
Craig
Re: Ich fühle mich sehr blöd
Verfasst: So 2. Okt 2016, 18:10
von Atwist
Hallo Craig,
Habe meinen Fehler entdeckt, ich habe jedes mal A1, B9, B10 und B11 als Zelle Verweisung benutzt statt 0,0 , 1,9 usw.
Das war Blöd von mir (denk noch zu viel in VBA).
Danke für dein Tipp