Code zum Ein-/Ausblenden des Benutzerformulars, wenn nichts in der Combobox geladen werden soll

Question

Ich habe ein Benutzerformular namens "deleteaccount" mit einem Kombinationsfeld darin. Wenn Sie auf die Schaltfläche klicken, lädt das Benutzerformular die Liste aus dem Bereich. Wenn sich keine Daten im Bereich befinden, sollte ein Fehler angezeigt werden: "Nichts ist zum Laden verfügbar" und es wird sub beendet. Bisher habe ich den folgenden Code entwickelt, konnte aber nicht die gewünschten Ergebnisse finden.

Private Sub CommandButton5_Click() 

'ASSIGNING THE VARIABLES 
Dim ws As Worksheet, tbl As ListObject, rng As Range 

'Declaring the Variables 
Set ws = Sheets("Cash and Bank Account Details") 
Set tbl = ws.ListObjects("newaccount") 
Set rng = tbl.ListColumns(3).DataBodyRange 

For Each rng In rng 
deleteaccount.ComboBox1.AddItem rng.Value 
deleteaccount.ComboBox1.ListIndex = 0 
Next 

If deleteaccount.ComboBox1.ListCount = 0 Then 
MsgBox "nothing is load" 
Exit Sub 
Else 
deleteaccount.Show 
End If 
End Sub 

Bitte überprüfen Sie und helfen Sie mir, wo ich falsch liege.

Danke.

Answer 1

Die Kommentare müssen Orte wechseln (nichts mit Ihrem Problem zu tun). Anstatt For Each rng In rng möchten Sie durch die Zellen in rng lop und in das Kombinationsfeld hinzufügen? Was ich meine, ist: Sie verwenden für jedes Rng In Rng Das ist falsch, weil Sie rng zweimal mit unterschiedlichen Zwecken jedes Mal verwenden. Wenn Sie wissen, dass der Bereich auf dem Arbeitsblatt eine Spalte ist, können Sie versuchen

For i = 1 to rng.Rows.count 
    deleteaccount.ComboBox1.AddItem rng.Cells(i, 1).Value 
Next i 
deleteaccount.ComboBox1.ListIndex = 0