HERBERS Excel-Forum - die Dialoge

Thema: Nur Zellen mit Inhalt

Home
In eine ComboBox sollen nur die Zellen mit Inhalt aus Spalte A übernommen werden. Nur Zellen mit Inhalt
  • Prozedur: UserForm_Initialize
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Nur Zellen mit Inhalt
  • Ablaufbeschreibung:
    • Variablendeklaration
    • Zeilenindex der letzten Zelle mit Inhalt in Spalte A in eine Integer-Variable einlesen
    • Schleife von der ersten bis zur letzten genutzten Zelle in Spalte A blden
    • Wenn die aktuelle Zelle nicht leer ist...
    • Zellinhalt der ComboBox hinzufügen
  • Code:

    
    Private Sub UserForm_Initialize()
       Dim iRow As Integer, iRowL As Integer
       iRowL = Cells(Rows.Count, 1).End(xlUp).Row
       For iRow = 1 To iRowL
          If Not IsEmpty(Cells(iRow, 1)) Then
             cboNoEmptys.AddItem Cells(iRow, 1).Value
          End If
       Next iRow
    End Sub