Thema Datum  Von Nutzer Rating
Antwort
07.02.2014 19:22:55 Heino
NotSolved
08.02.2014 13:14:22 Gast94878
NotSolved
Rot Daten mit Userform aus geschlossener Mappe einlesen
 08.02.2014 20:24:57 H27
NotSolved

Ansicht des Beitrags:
Von:
H27		 Datum:
08.02.2014 20:24:57		 Views:
833		 Rating:
     
Antwort:
  Ja
Thema:
Daten mit Userform aus geschlossener Mappe einlesen

Thema:
Daten mit Userform aus geschlossener Mappe einlesen

Hallo Heino,

dein Thema wortwörtlich, dann guck meine Kundeninfo  !

Anpassen musste selbst

Gruß H27

PS: bei ca. 2600 Kunden - schon einmal mit den Augen zwinkern ;)

Option Explicit
Const QuellDatei As String = "Z:\Forum\Kundenstam.xlsx"
Const QuellTabelle = "[Kunde$A:P]"
Const SuchSpalte As Long = 4

Private Sub TextBox1_AfterUpdate()

Dim oDateisatz As Object
Dim Verbindung As String
Dim Abfrage As String
Dim Vorgabe As String
Dim x As Integer
Dim y As Integer

Verbindung = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & QuellDatei & ";" & _
"Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1"""

Abfrage = "SELECT * FROM " & QuellTabelle

Vorgabe = "= 'Wert'"

On Error GoTo errorhandler

Set oDateisatz = CreateObject("ADODB.Recordset")
'
oDateisatz.Open Abfrage, Verbindung, 0, 1, 1
'
If Not oDateisatz.EOF Then
  Vorgabe = Replace(Vorgabe, "Wert", Me.TextBox1.Text)
  oDateisatz.Filter = oDateisatz.Fields(SuchSpalte).Name & Vorgabe
  On Error GoTo 0
  On Error Resume Next
  For x = 0 To oDateisatz().Count
    y = x + 1
    Me(y).Caption = ""
    Me(y).Caption = oDateisatz(x).Value
  Next x
Else
  Me.TextBox1.Text = "nicht gefunden"
  Me.TextBox1.SetFocus
End If

oDateisatz.Close
Set oDateisatz = Nothing
On Error GoTo 0
Exit Sub
errorhandler:
On Error GoTo 0
On Error Resume Next
'oDateisatz.Close
Set oDateisatz = Nothing
MsgBox "Verbindungsfehler"
On Error GoTo 0
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
07.02.2014 19:22:55 Heino
NotSolved
08.02.2014 13:14:22 Gast94878
NotSolved
Rot Daten mit Userform aus geschlossener Mappe einlesen
 08.02.2014 20:24:57 H27
NotSolved