Re: " vor und Hinter Wert stellen

Hallo Kai,

mit With Active***.QueryTables.Add(Connection:=yVerbindung,
Destination:=Range(yErgebnis & yi))
funktioniert es! - Vielen Dank für die Hilfe!


Gruß
Stefan

"k.oppel" <koppel@xxxxxxxxxxxxxxxxxxxxxxxxx> schrieb im Newsbeitrag
news:2835A589-49CA-44CB-9EFD-3BC1BF038131@xxxxxxxxxxxxxxxx
>
>
> "Stefan Theobald" schrieb:
>
> Hallo Stefan
>> Hallo Kai,
>>
>> funktioniert irgendwie nicht.
>>
>> Ich habe meine Variable als String angelegt:
>>
>> Public yVerbindung As String
>>
>> Meiner Variablen weisse ich dann folgenden Wert zu
>>
>> yVerbindung = "ODBC;DSN=TEST;DriverId=25;FIL=MS
>> Access;MaxBufferSize=2048;PageTimeout=5;"
>>
>> With Active***.QueryTables.Add(Connection:= _
>> " & yVerbindung & " _
>> , Destination:=Range(yErgebnis & yi))
>>
> So bestimmt nicht.
>> oder auch
>>
>> With Active***.QueryTables.Add(Connection:= _
>> yVerbindung _
>> , Destination:=Range(yErgebnis & yi))
>>
>> nimmt er nicht!!!!!
>>
> Ich bin bei Abfragen auch nicht der Spezi, aber probier mal
>
> With Active***.QueryTables.Add Connection:=yVerbindung,
> Destination:=Range(yErgebnis & yi)
>
> Manchmal liegts auch an den Klammern, ansonsten weiß jmd anders in der NG
> Rat.
>
> mfg
>
> Kai
>
>> Nur so ohne Variable nimmt er es:
>>
>> With Active***.QueryTables.Add(Connection:= _
>> "ODBC;DSN=TEST;DriverId=25;FIL=MS
>> Access;MaxBufferSize=2048;PageTimeout=5;" _
>> , Destination:=Range(yErgebnis & yi))
>>
>>
>>
>> Hast du noch eine Idee????
>>
>>
>> Gruß
>> Stefan
>>
>>
>>
>> "k.oppel" <koppel@xxxxxxxxxxxxxxxxxxxxxxxxx> schrieb im Newsbeitrag
>> news:E36F8920-8008-4AA3-9BE7-68176902B038@xxxxxxxxxxxxxxxx
>> >
>> >
>> > "Stefan Theobald" schrieb:
>> >
>> >> Hallo,
>> >>
>> >> ich möchte gerne in meinem VB Makro eine Query Verbindung in eine
>> >> Variable
>> >> schreiben um sie später zu benutzen.
>> >> EXCEL / VB will den Wert mit " vor und hinter dem Wert.
>> >> Wie kann ich das in eine Variable schreiben? In der Variablen steht
>> >> der
>> >> Wert
>> >> in " - aber da wird das Zeichen als Texterkennung benutzt.
>> >>
>> >>
>> >>
>> >> Gruß
>> >> Stefan
>> >>
>> >>
>> >>
>> > Hallo Stefan,
>> >
>> > die " bedeuten für VBA das ein Text (String) kommt. Einfach deine
>> > Queryvariable als String zu Anfang definieren
>> >
>> > Dim Queryvar As String
>> > Queryvar = "Query Verbindung"
>> >
>> > Jetzt kannst du deine Variable ohne " einsetzen.
>> > Ich hoffe, es war verständlich.
>> >
>> > mfg
>> >
>> > Kai Oppel
>>
>>
>>


.