Aus Excel Zellenwert an AS400 übertragen

[Fuerchau]

Da frage ich mich doch, was denn teurer ist, deine Arbeitszeit, mehrere Tage Entwicklung und Test oder einmalig €750,-- für unbegrenzte Anwendung ?

Wenn ich dir hier Programmiertipps gebe, wie man eine SQL-Anwendung macht, sprengt das den Rahmen des Forums und ich mache mich arbeitslos.

[DISCOME]

Mhh schade. Ich wollte mal was lernen... aber ich verstehe dich! Muss ich noch ein wenig Googlen und basteln und mal sehen ob ich es mir zurecht stückeln kann...

Ich danke aber trotzdem für die Unterstützung!!

[Fuerchau]

Insoweit kannst du das Forum hier schon nutzen.
Suche mal nach MSADO, Connect, Command usw.

Hier die einfache Version:

- VBA-Editor
- Extras->Verweise->Microsoft ActiveX DataObjects 2.8 einbinden

Neues Modul erstellen

Public sub MyMacro()
dim myConnect as new ADODB.Connection
dim myCommand as new ADODB.Command

MyConnect.Connection = "DSN=MyDsn"
MyConenct.Properties("User")="MYUSER"
MyConenct.Properties("Password")="MYPASS"
MyConnect.Open

MyCommand.Commandtext = "update mylib.myfile set f1=?, f2=? where k1=? and k2=?"
set MyCommand.ActiveConnection = MyConnect

MyCommand(0) = ActiveSheet.Range("A1").Value
MyCommand(1) = ActiveSheet.Range("B1").Value
MyCommand(2) = ActiveSheet.Range("C1").Value
MyCommand(3) = ActiveSheet.Range("D1").Value
MyCommand.Execute

end sub

Der DSN-Name "MyDsn" muss über Systemsteuerung->Verwaltung->ODBC-Quellen noch eingerichtet werden.

Dies ist nur ein Grundgerüst und muss natürlich von dir noch wesentlich angepasst werden.