Habe eine kleine Abfrage in VBA erstellt und möchte Daten aus der AS400 erhalten und an die AS400 senden.
Funktioniert auch aber die Schnelligkeit???!!!
so benötige ich für ein Update von 4 Daten in einer Tabelle etwa 1 Minute. Das macht bei etwa 100 neuen Daten....
Vieleicht hat ja jemand eine Idee?

Private Sub CommandButton1_Click() 'Ändern (Update Datum)
Dim Cnn As ADODB.Recordset
Dim strSQL, temp As String
Dim nummer As Long
Dim intCol As Long
intCol = Range("D65536").End(xlUp).Row
ProgressBar1.Min = 1
ProgressBar1.Max = intCol
ProgressBar1.Value = 1
Set Cnn = New ADODB.Recordset
For n = 2 To intCol
nummer = Cells(n, 4)
temp = Cells(n, 5)
strSQL = "UPDATE TMT.AUH A SET A.TEF = '" & temp & "' WHERE A.NL = 11 and A.SN= '" & nummer & "' "
Cnn.Open strSQL, "Provider=A400;Data Source=192.168.4.100;User ID='ich';Password='ich';"
ProgressBar1.Value = n
ActiveWorkbook.RefreshAll
Next
End Sub