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:
301		 Rating:
     
Antwort:
  Ja
Thema:
Einen Teilbeitrag meinerseits
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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:

?
1
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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