[VBA] Excel Formular

mi2g

Lieutenant
Registriert
Apr. 2003
Beiträge
1.021
so wir bekammmen von unserer firma ein projekt, bei dem ich in einem excel formular daten angeben muss und dann auf einen button drücken, dann sollten andere daten von einer datenbank geholt werden und dort eingefügt werden.
mein code in vba sieht so aus:

Private Sub CommandButton1_Click()

'BOSBASE Instanz erzeugen
Set ws = CreateObject("BOSBASE.Workspace")

'Benutzername setzen
ws.UserName = "Excel"

'Repository-Datenbank zum Lesen öffnen
Set rep = ws.Repository
rep.Open 0

'Material via Namen suchen
Set mat = rep.Materials.FindItem("St 12.03")

'Stempel via Namen suchen
Set punch = rep.UpperTools.FindItem("001-002")

'Matrize via Namen suchen
Set die = rep.LowerTools.FindItem("005.00-01")

'Alle Stempel auflisten
Set utools = rep.UpperTools
For i = 0 To utools.Count - 1
Set punch = utools.Item(i)
Debug.Print punch.Name
Next

'Alle Datentabellen via Schlüsselwerte (Stempelradius sr, Einlaufweite ew, Einlaufradius er) suchen
Set dts = mat.FindDataTables(sr, ew, er)

'Alle Datentabellen-Einträge auflisten
For i = 0 To dts.Count - 1
Set dtes = dts.Item(i).DTEntries
For j = 0 To dtes.Count - 1
Set dte = dtes.Item(j)
Debug.Print dte.BendAngle & " " & dte.DX & " " & dte.WG
Next
Next

'Repository-Datenbank schliessen
rep.Close

End Sub


irgendwo sollte ich doch angeben, in welche zelle z.b. der bendangle oder dte.dx eingefügt werden soll. wo mach ich das? danke schonmal.
 
Zurück
Oben