Makro zum Einfügen von Kontonummer aus Datenbank
Verfasst: Do 10. Okt 2013, 11:18
Ich habe eine Calc Tabelle in der in einer Spalte Kontonummern stehen. Diese Nummern mit der dazugehörigen Kontenbezeichnung habe ich in eine Base Datenbank eingetragen und kann diese Datenbank mit F4 in Calc aufrufen. So weit so gut. Nun möchte ich gerne in Zukunft die jeweiligen Kontonummern aus der Datenbank in die entsprechende Spalte der Calc Tabelle einfügen. Was ich also mache ist, Datensatz suchen, dort die Kontenbezeichnung eingeben und die dazugehörige Kontonummer kopieren, um sie in die Calc Tabelle einzufügen. Mit einem Makro müsste das doch zu automatisieren sein. Also habe ich ein Makro aufgezeichnet. Führe ich dies aus, so fügt er allerdings, logischerweise, immer die gleiche Kontonummer ein. Ich möchte das Makro so bearbeiten, dass ich die Datenbank nach einer (variablen?) Kontenbezeichnung durchsuchen kann und die dazugehörige Kontonummer dann in die richtige Spalte eingefügt wird. Ist das überhaupt Möglich oder habe ich da jetzt einen Denkfehler gemacht?
Vielleicht einmal hier das Makro:
Vielleicht einmal hier das Makro:
Code: Alles auswählen
REM ***** BASIC *****
Sub Main
End Sub
sub Kontoauswahl
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
end sub