In der Schule haben wir grade VB 6.0 und ich will eine Schraubenberechnung ausführen aber mit OO. Ich docktere seit einiger Zeit mit Beispieldateien rum. Ich habe es auch soweit, das ich in einer ComboBox ein Anzugsverfahren auswähle und es in einer anderen Zeile die Auswahl erscheint. Der Code zum Schreiben in die Zelle:
Set oDoc = ThisComponent
Set oSheet = oDoc.Sheets.GetByName("Auswahl")
Set oForm = oSheet.DrawPage.Forms.GetByName("Standard")
Set oComboBox = oform.getByName("ComboBox01")
Set oCellRangeDestination = oSheet.getCellRangeByName("D16")
und zum Laden der Anzugsverfahren
Set oDoc = ThisComponent
Set oSheet = oDoc.Sheets.GetByName("Auswahl")
Set oForm = oSheet.DrawPage.Forms.GetByName("Standard")
Set oComboBox = oform.getByName("ComboBox01")
Set oCellRangeSource = oSheet.getCellRangeByName("B14:B20")
Ich möchte nun zum einen die Daten nicht aus dem Tabellenblatt "Auswahl", sondern aus dem Tabellenblatt "Anzugsverfahren" rausziehen. Zum Anderen möchte ich die in der Tabelle stehenden Anzugsverfahren angezeigt haben und die in der Nächsten Spalte stehen Werte angezeigt haben. Puh, ich hoffe, jemand kann mir da helfen

Bis dann
Klaus