der code
Sub sql_xxx()
Dim tabl, bed As String
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=m-ware;DB=mware;HOST=192.168.30.16;SERV=sqlexec;SRVR=mware_net;PRO=sesoctcp; _
UID=shx;PWD=123" _
, Destination:=Range("A1"))
.CommandText = Array( _
"SELECT pkto_auftr_nr, pkto_datum FROM ps_pmkto WHERE pkto_butext = ""Ladehilfsmittel"" _
AND pkto_ggkto > 1 AND pkto_datum > ""31.08.2007"" ")
.Name = "Porto"
.Refresh BackgroundQuery:=False
End With
End Sub
läuft bei mir.
jetzt hätte ich das ergebnis gerne als msgbox-ausgabe anstelle im feld "A1"
wie muss der code dann lauten?
Vielen dank für EURE HILFE
Matthias