Thema Datum  Von Nutzer Rating
Antwort
27.01.2016 19:45:43 BigC
NotSolved
27.01.2016 19:56:08 Gast2008
NotSolved
27.01.2016 20:08:24 Gast10696
NotSolved
27.01.2016 21:13:16 BigC
NotSolved
27.01.2016 21:48:12 Gast15332
NotSolved
Blau Word-Vorlagen automatiosch füllen mit Excel-Abfrage
 27.01.2016 21:52:59 Gast45185
NotSolved
27.01.2016 22:00:31 Gast80514
NotSolved
27.01.2016 22:15:46 BigC
NotSolved

Ansicht des Beitrags:
Von:
Gast45185		 Datum:
27.01.2016 21:52:59		 Views:
1312		 Rating:
     
Antwort:
  Ja
Thema:
Word-Vorlagen automatiosch füllen mit Excel-Abfrage

Hallo BIGC! Der Code läuft mit deinen Objekten schon sauber. Das Problem ist dein Offset. Ich glaube das kennt Word auch nicht wirklich. Oder der neg. Index hat ihn gestört.

ICh vermute mal, dass die Namen in einer besonderen Spalte stehen. Kennst du die schon? Wenn ja, dann kannst du es auch so lösen. Dabei bei Spalte deinen Spaltennummer einsetzen.

 Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open("C:\Users\" & strCurrentUser & "\AppData\Roaming\Microsoft\Templates\Kontaktdaten.xlsx")
    Set objWorksheet = objWorkbook.sheets("Tabelle1")
    objExcel.Visible = False
    
    spalte = 5
    
    zeile = objWorkbook.sheets("Tabelle1").UsedRange.Columns(spalte).Rows.Count
    'Abfrage Windows-User aus Excel
    ''''''''''''''''''''''''''''''''''
    For i = 1 To zeile
  
        If objWorksheet.Cells(i, spalte) = strCurrentUser Then
            strName = objWorksheet.Cells(i, spalte - 4)
            strTel = objWorksheet.Cells(i, spalte - 3)
            strFax = objWorksheet.Cells(i, spalte - 2)
            strMail = objWorksheet.Cells(i, spalte - 1)
        Else
            
        End If
    
    Next

 

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
27.01.2016 19:45:43 BigC
NotSolved
27.01.2016 19:56:08 Gast2008
NotSolved
27.01.2016 20:08:24 Gast10696
NotSolved
27.01.2016 21:13:16 BigC
NotSolved
27.01.2016 21:48:12 Gast15332
NotSolved
Blau Word-Vorlagen automatiosch füllen mit Excel-Abfrage
 27.01.2016 21:52:59 Gast45185
NotSolved
27.01.2016 22:00:31 Gast80514
NotSolved
27.01.2016 22:15:46 BigC
NotSolved