Thema Datum  Von Nutzer Rating
Antwort
05.07.2021 14:27:54 Gast68773
NotSolved
05.07.2021 19:09:14 Gast52446
NotSolved
Rot Array
 05.07.2021 20:17:00 Gast92499
NotSolved

Ansicht des Beitrags:
Von:
Gast92499		 Datum:
05.07.2021 20:17:00		 Views:
449		 Rating:
     
Antwort:
  Ja
Thema:
Array		 
Option Explicit


Sub main()

    Dim v
    
    v = GetArray(ThisWorkbook.FullName, "SELECT * FROM `Tabelle1$` WHERE [SpalteMitDeinenXen] = ""x""")
    
    If Not IsNull(v) Then
        v = Application.Transpose(v)
        MsgBox "1.Dimension (Zeilen): " & UBound(v, 1) & vbNewLine & "2.Dimension (Spalten) : " & UBound(v, 2)
    Else
        MsgBox "Nix Array."
    End If
    
    
End Sub
Function GetArray(ByVal sWorkbookFullpath As String, ByVal sSQL As String) As Variant
    
    With CreateObject("ADODB.Recordset")
        .Open sSQL, "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sWorkbookFullpath & ";Extended Properties=""Excel 12.0 Xml"""
        
        If Not (.EOF And .BOF) = True Then
            GetArray = .getRows
        Else
            GetArray = Null
        End If
        
        .Close
    End With
    
End Function

 

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
05.07.2021 14:27:54 Gast68773
NotSolved
05.07.2021 19:09:14 Gast52446
NotSolved
Rot Array
 05.07.2021 20:17:00 Gast92499
NotSolved