Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1792to1796
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Row

Row
17.11.2020 11:08:18
opalu
Hallo Profis
mit dem Code

Private Sub UserForm_Initialize()
Worksheets("Datenblatt").Select
Dim aRow, i As Long
Application.EnableEvents = False
ComboBox1.Clear
aRow = [A65536].End(xlUp).Row
ComboBox1.Value = 0
ComboBox1.AddItem "Auswahl des Anlagenbetreibers"
For i = 3 To aRow
ComboBox1.AddItem Cells(i, 2) & ", " & Cells(i, 3) & ", " & Cells(i, 7) & ", " & Cells(i,    _
_
_
78)
Next i
ComboBox1.ListIndex = 1
End Sub

wähle ich Datensätze aus einer Tabelle.
In Excel2013 (beruflich) funktioniert das einwandfrei.
bei meiner Version 2016 kommt der
Fehler:Fehler beim komplimieren - Projekt oder Bibliothen nicht gefunden
Der Cursor makiert mir die [A65536] auswahl der Zeilen und dann geht nichts mehr
Wenn ich die (aktive) Userform2 bei initialisieren verwende läuft es durch aber
keine Daten werden ausewählt.
Woran liegt das
Gruss Opalu

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
  • 17.11.2020 11:13:11
    Nepumuk
Anzeige
AW: Row
17.11.2020 11:13:11
Nepumuk
Hallo Opalu,
teste mal:
Private Sub UserForm_Initialize()
    
    Dim aRow As Long, i As Long
    
    Worksheets("Datenblatt").Select
    
    ComboBox1.Clear
    
    aRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ComboBox1.AddItem "Auswahl des Anlagenbetreibers"
    
    For i = 3 To aRow
        
        ComboBox1.AddItem Cells(i, 2) & ", " & Cells(i, 3) & ", " & Cells(i, 7) & ", " & Cells(i, 78)
        
    Next i
    
    ComboBox1.ListIndex = 1
    
End Sub

Gruß
Nepumuk
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige