HERBERS Excel-Forum - die Dialoge

Thema: Zellauswahl

Home
Die Zellauswahl erfolgt anhand der ComboBox-Auswahl. Zellauswahl
  • Prozedur: cmdAuswahl_Click
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Zellauswahl
  • Ablaufbeschreibung:
    • Variablendeklaration
    • Schleife über alle ComboBox-Elemente
    • Wenn das aktuelle Element ausgewählt ist...
    • Element mit einem nachfolgenden Komma an eine String-Variable übergeben
    • String-Variable um das letzte Element kürzen
    • Bereich gem. String-Variablen auswählen
  • Code:

    
    Private Sub cmdAuswahl_Click()
       Dim iCounter As Integer
       Dim sTxt As String
       For iCounter = 0 To lstAuswahl.ListCount - 1
          If lstAuswahl.Selected(iCounter) Then
             sTxt = sTxt & lstAuswahl.List(iCounter) & ","
          End If
       Next iCounter
       sTxt = Left(sTxt, Len(sTxt) - 1)
       Range(sTxt).Select
    End Sub