Also mein Quellcode sieht jetzt wie folgt aus:

Sub generate_data()

Dim str As String

str = "Provider=MSDAORA;Data Source= xxxx ;Persist Security Info=True;Password= xxxx ;User ID= xxxxxxx"

Set cnn = CreateObject("ADODB.Connection")

cnn.Open str

Set rs = CreateObject("ADODB.Recordset")

Row = 5

col = 20

numRs = rs.Fields.Count

num = 0

strSQL = "SELECT * FROM Tabellenname"

rs.Open strSQL, cnn

Do Until rs.EOF

Do While num < numRs

Cells(Row, col + num).Value = rs(num)

num = num + 1

Loop

num = 0

Row = Row + 1

rs.moveNext

Loop

rs.Close

cnn.Close

End Sub

Jetzt wird mir berichtet, dass cnn eine nicht definierte Variable sei. Kann mir jemand helfen?

...zur Antwort

Überall wo tdf bzw. Set steht bekomme ich ein Error.

...zur Antwort

die DSN habe ich herausgefunden. Bei mir kommt aber überall wo tdf ist eine Fehlermeldung. Was soll ich tun?

...zur Antwort

Kann mir keiner weiterhelfen?

...zur Antwort

Und wie stelle ich das in VBA an? Leider kenn ich mich damit nicht gut aus.

...zur Antwort

Ich glaube, dass ich das echt mit dem Psychater machen werde, was ich aber nicht gerne tuhen würde, da ich das wirklich nicht gewöhnt bin, hab auch zum ersten mal das in einen Forum gepostet.

...zur Antwort

teils das ist so eine mischung zwischen afro und wellig das ist ganz komisch >.<

früher als sie noch kürzer waren hatte ich sozusagen ein afro jetzt aber sind sie durch die länge schwerer geworden darum sind sie jetzt unten

...zur Antwort