Ich fühle mich sehr blöd

[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.

[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

[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