Thema Datum  Von Nutzer Rating
Antwort
23.05.2016 19:55:04 Anja
NotSolved
23.05.2016 22:06:29 Gast70974
NotSolved
Rot Aufbau Listbox
 23.05.2016 22:59:53 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
23.05.2016 22:59:53		 Views:
668		 Rating:
     
Antwort:
  Ja
Thema:
Aufbau Listbox		 
'in ein gemeines Modul

Option Explicit

'ein Zeichen als globale Variable ist "unschön", daher
Public intZähler As Long                        'Tabellen-Zeile wo

Public Const strCols As String = "C,I,P,T,X"    'Tabellen-Spalten wo

Sub Test()
intZähler = 6                                    'aus Tabellen-Zeile 6
Load UserForm1
UserForm1.Show
End Sub

'in den Code der Userform

Private Sub UserForm_Initialize()
Dim arrCols() As String
Dim x As Integer
   
   arrCols = Split(strCols, ",")          'Tabellen-Spalten, jeweils erste wo
   With Me.ListBox1
      .ColumnCount = 3                    'erste wo + 2 x Versatz daneben
      .ColumnWidths = "22;22"             'Schmuck wo
      'über die Spalten
      For x = LBound(arrCols) To UBound(arrCols)
         'Zeile Listbox
         .AddItem Columns(arrCols(x)).Cells(intZähler)
         '+ 2 x Versatz daneben
         .List(x, 1) = Columns(arrCols(x)).Offset(, 1).Cells(intZähler)
         .List(x, 2) = Columns(arrCols(x)).Offset(, 2).Cells(intZähler)
      Next x
   End With
End Sub

 

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
23.05.2016 19:55:04 Anja
NotSolved
23.05.2016 22:06:29 Gast70974
NotSolved
Rot Aufbau Listbox
 23.05.2016 22:59:53 Gast70117
NotSolved