Thema Datum  Von Nutzer Rating
Antwort
10.03.2021 01:37:22 Christian Merges
NotSolved
10.03.2021 16:01:35 Mase
NotSolved
10.03.2021 16:04:50 Mase
NotSolved
11.03.2021 18:25:13 Christian Merges
NotSolved
Rot Einen Teilbeitrag meinerseits
 11.03.2021 18:45:21 Christian Merges
NotSolved
12.03.2021 09:19:51 Mase
NotSolved

Ansicht des Beitrags:
Von:
Christian Merges		 Datum:
11.03.2021 18:45:21		 Views:
195		 Rating:
     
Antwort:
  Ja
Thema:
Einen Teilbeitrag meinerseits		 
Option Explicit
 
 
Sub weeklybatch()
 
    Dim v As Variant
    Dim i As Long
     
    '*** unique Autofilterelemente als Array
    v = GetviaADODBRecordset
     
    '*** Durchleifen und PDFs erstellen bzw Makros aufrufen
    For i = LBound(v) To UBound(v)
     
    Debug.Print i
     
     
    Next i
     
End Sub
 
Function GetviaADODBRecordset() As Variant
    '*** Spaltenname der Tabelle; sowie Excelfile anpassen
    Dim vRet As Variant
    With CreateObject("ADODB.Recordset")
        .Open "SELECT DISTINCT [KontaktID] FROM `Aufträge_legacy$`", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml"""
        vRet = Application.Transpose(Application.Transpose(.GetRows))
        .Close
    End With
             
    GetviaADODBRecordset = vRet
             
End Function

 

Der Compiler bemängelt die folgende Zeile mit dem Fehler "Laufzeitfehler 13. Typen unverträglich:

vRet = Application.Transpose(Application.Transpose(.GetRows))

Die Spalte heißt: KontaktID
Das Tabelllenblatt heißt: Aufträge_legacy

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
10.03.2021 01:37:22 Christian Merges
NotSolved
10.03.2021 16:01:35 Mase
NotSolved
10.03.2021 16:04:50 Mase
NotSolved
11.03.2021 18:25:13 Christian Merges
NotSolved
Rot Einen Teilbeitrag meinerseits
 11.03.2021 18:45:21 Christian Merges
NotSolved
12.03.2021 09:19:51 Mase
NotSolved