ich habe ein neues Problem und zwar will ich jetzt zwei getrennte Abfragen in unterschiedlichen Feldern in eine Tabelle einbinden. wie mache ich das ohne dass er mir das Passwort unw. nochmal anfragt
bisheriger Code
Sub test8()
x = Worksheets("Tabelle1").Cells(6,1).Value
If IsNumeric(Cells(6, 1)) Then
If x > 1900 And x < 2050 Then
Range("B1:B2").ClearContents
Dim at As QueryTable
Dim sqlstring As String
sqlstring = "select sum (laenge)/1000 from TWLD.gas_altg"
sqlstring = sqlstring & " where verlegejahr=" & Cells(6, 1)
connstring = "ODBC;DSN=orcl92;UID=TWLD;PWD=TWLD;SERVER=orcl92;"
With ActiveSheet.QueryTables.Add(connection:=connstring, Destination:=Range("B1:B2"), sql:=sqlstring)
.Refresh
End With
Range("C1").Font.Color = RGB(255, 234, 6)
Else
MsgBox "Falsche Jahreseingabe"
End If
Else
MsgBox "FAlsche Jahreseingabe"
End If
End Sub