Thema Datum  Von Nutzer Rating
Antwort
15.03.2020 18:25:42 Volker
NotSolved
15.03.2020 19:00:31 Gast41484
NotSolved
15.03.2020 20:59:44 Gast78364
NotSolved
15.03.2020 21:02:16 Volker
NotSolved
15.03.2020 21:15:59 Gast0815
NotSolved
15.03.2020 21:27:21 Volker
NotSolved
15.03.2020 21:31:02 Gast0815
NotSolved
16.03.2020 18:13:28 Volker
*****
NotSolved
Rot Array in Kombobox einlesen
17.03.2020 01:49:09 Trägheit
*****
Solved

Ansicht des Beitrags:
Von:
Trägheit
Datum:
17.03.2020 01:49:09
Views:
557
Rating: Antwort:
 Nein
Thema:
Array in Kombobox einlesen
  Dim vntOutput As Variant
  Dim i As Long
  Dim j As Long
  
  'taking care of output format
  With Range("A1:B10")
    
    ReDim vntOutput(1 To .Rows.Count, 1 To .Columns.Count) As String
    
    For i = 1 To .Rows.Count
      For j = 1 To .Columns.Count
        Select Case VarType(.Cells(i, j).Value)
          Case VbVarType.vbDate
            vntOutput(i, j) = Format$(.Cells(i, j).Value, "General Date") 'format by system settings
          Case VbVarType.vbCurrency
            vntOutput(i, j) = Format$(.Cells(i, j).Value, "Currency") 'format by system settings
          Case Else
            vntOutput(i, j) = .Cells(i, j).Value
        End Select
      Next
    Next
    
  End With
  
  'output/display data
  ComboBox1.ColumnCount = 2
  ComboBox1.ColumnWidths = "2cm;2cm"
  ComboBox1.List = vntOutput

 

Beste Grüße

Trägheit


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
15.03.2020 18:25:42 Volker
NotSolved
15.03.2020 19:00:31 Gast41484
NotSolved
15.03.2020 20:59:44 Gast78364
NotSolved
15.03.2020 21:02:16 Volker
NotSolved
15.03.2020 21:15:59 Gast0815
NotSolved
15.03.2020 21:27:21 Volker
NotSolved
15.03.2020 21:31:02 Gast0815
NotSolved
16.03.2020 18:13:28 Volker
*****
NotSolved
Rot Array in Kombobox einlesen
17.03.2020 01:49:09 Trägheit
*****
Solved