Thema Datum  Von Nutzer Rating
Antwort
22.11.2019 16:10:06 Pixxel
NotSolved
23.11.2019 00:27:20 Gast50835
NotSolved
23.11.2019 08:24:04 Gast12230
NotSolved
23.11.2019 09:08:59 Pixxel
NotSolved
23.11.2019 19:29:38 Gast55262
*****
Solved
Blau Datenverbindung Pfad ändern
24.11.2019 17:43:17 Pixxel
NotSolved

Ansicht des Beitrags:
Von:
Pixxel
Datum:
24.11.2019 17:43:17
Views:
732
Rating: Antwort:
  Ja
Thema:
Datenverbindung Pfad ändern

VIELEN VIELEN DANK

Wenn man es dann so sieht, scheint es so einfach....... Wäre ich aber nicht drauf gekommen. Mein Coding ist bei weitem nicht so gut. Danke

Hier das fertige Code

Private Sub CommandButton1_Click()
Dim vnt As Variant
Dim vntE As Variant
Dim i As Long
Dim pfad As Variant

vnt = ActiveWorkbook.Connections("Test").OLEDBConnection.Connection
pfad = Sheets("Einstellungen").TextBox_pfad.Value

vnt = Split(vnt, ";")
For i = 0 To UBound(vnt)
   
  vntE = Split(vnt(i), "=")
  If 0 = StrComp(Trim$(vntE(0)), "Data Source", vbTextCompare) Then
    vntE(1) = pfad
    vnt(i) = Join(vntE, "=")
    Exit For
  End If
   
Next
 
vnt = Join(vnt, ";")

Sheets("Tabelle1").Select
    With ActiveWorkbook.Connections("Test").OLEDBConnection
        .SourceConnectionFile = pfad
        .Connection = vnt
    End With
    ActiveWorkbook.Connections("test").Refresh

End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.11.2019 16:10:06 Pixxel
NotSolved
23.11.2019 00:27:20 Gast50835
NotSolved
23.11.2019 08:24:04 Gast12230
NotSolved
23.11.2019 09:08:59 Pixxel
NotSolved
23.11.2019 19:29:38 Gast55262
*****
Solved
Blau Datenverbindung Pfad ändern
24.11.2019 17:43:17 Pixxel
NotSolved