OpenOffice.info

Vielen Dank Charly! Das ist genau die Lösung die ich mir vorgestellt habe.

Gruß
Bluescreen

Hallo Bluescreen!

Ich habe mein Beispiel erweitert und drei Makros hinzugefügt. Wenn du jetzt auf das Tabellenblatt "Kundendatei" gehst, eine Zelle in der gewünschten Kundenzeile anklickst, kannst du das Makro KundeUebertragen starten durch Klicken auf das gleichnamige ICON in der Symbolleiste. Das Makro überträgt die Kundennummer in die Tabelle Lieferschein

Als Zusatz-Beispiel habe ich den Lieferschein noch ergänzt mit Artikeleinträgen. Das ICON ArtikelLoeschen löscht die Einträge des vorherigen Kunden. Bis zu 10 Artikel kannst du dann auf die gleiche Weise wie die Kundenamen übertragen. Also Zelle im Tabellenblatt"Artikeldatei" auswählen und Icon "Artikel eintragen" drücken. Dadurch wird die Artikelnummel übertragen.




Gruß
Charly

Ok vielen Dank für das Beispiel. Also das mit dem SVerweis klappt jetzt halbwegs. Allerdings muss ich immer noch manuell die Kunden Nummer eintragen. Ich würde gerne das wenn ich der Kundentabelle eine Zeile auswähle sich alle Verweise automatisch aktualisieren und ich direkt drucken kann.
Eventuell würde das über einen Sheet Change Listener funktionieren der in einer globalen Variable speicher in welcher Zeile sich der Zeiger in der Kundentabelle befindet. Oder geht das wie so vieles in Calc auch einfacher ?

edit: Gibt es eigentlich irgendwelche Event callbacks wie zum Beispiel OnOpenWorkbook die von Calc Automatisch verwendet werden?

Gruß
Bluescreen

Hallo bluescreen,
hier findest Du Hilfe zu der Funktion [b]SVERWEIS[/b] :

[url]http://www.ooowiki.de/CalcFunktionenTabellen/DatenFinden[/url]

Mit Beispielen läßt sich besser lernen.

mfg
Gert

selection    =  ThisComponent.getCurrentSelection() 

if sourceTable <> NULL then

ThisComponent.getSheets().hasByName(table)

sourceTable.getCellRangebyName(column & row).getValue()

Hallo Bluescreen!

[code]
selection = ThisComponent.getCurrentSelection()
[/code]
In einer aus einer Tabelle aufgerufenen Funktion sollte man "getCurrentSelecton" vermeiden, da Calc die Funktionen immer wieder neu berechnet und es nicht sichergestellt ist, dass immer die richtige Zelle ausgewählt ist.

[code]
if sourceTable <> NULL then
[/code]
Ob eine Tabelle vorhanden ist, frägt man ab mit
[code]
ThisComponent.getSheets().hasByName(table)
[/code]
Beim Befehl
[code]
sourceTable.getCellRangebyName(column & row).getValue()
[/code]
musst du den String erst in eigenen Variablen aufbauen: wie Zelle = Column & Cstr(row).

Mir erscheint deine Methode mithilfe einer Funktion die Daten zu überspielen, nicht sehr erfolgversprechend. Da wäre eine SUB, die mit einer Tastenkombination aufgerufen wird wahrscheinlicher besser.

Am besten ist für mich nach wie vor die Methode mit sverweis. Hier brauche ich z.B. nur die Kundennummer eingeben und schon wird die ganze Tabelle mit den gewünschten Daten gefüllt. Ich habe die anbei ein kurzes Beispiel gemacht.

gruß
Charly

function GetValue(table as String,column as String)
	Dim sourceTable,sheets, selection as Object
	
	selection 	=  ThisComponent.getCurrentSelection() 
	if  selection.supportsService("com.sun.star.sheet.SheetCell") then
	
		row 			=   selection.getCellAddress().Row +1
		sourceTable 	=   ThisComponent.getSheets().getByName(table)
		
		if sourceTable <> NULL then
			GetValue = sourceTable.getCellRangebyName(column & row).getValue()
		else
			GetValue = table & " existiert nicht"
		end if
	end if
end function

Mit dem SVerweis hab ich das nicht so richtig hinbekommen deswegen hab ich eine neue Funktion geschrieben die mir den Wert Tabellen übergreifend rauszieht. Ich krieg allerdings als Rückgabe immer Err: 501. Kann mir einer sagen warum ? Gibt es noch eine Einfachere Möglichkeit ?
[code]
function GetValue(table as String,column as String)
Dim sourceTable,sheets, selection as Object

selection = ThisComponent.getCurrentSelection()
if selection.supportsService("com.sun.star.sheet.SheetCell") then

row = selection.getCellAddress().Row +1
sourceTable = ThisComponent.getSheets().getByName(table)

if sourceTable <> NULL then
GetValue = sourceTable.getCellRangebyName(column & row).getValue()
else
GetValue = table & " existiert nicht"
end if
end if
end function

[/code]

Gruß
Bluescreen

Hallo Bluescreen!

Mit der Calc-Funktion "sverweis" kannst du Daten von einem anderen Tabellenblatt holen. Die Funktion ist in der OpenOffice-Hilfe beschrieben.

gruß
Charly