HERBERS Excel-Forum - die Dialoge

Thema: Adresse eintragen

Home
Die aus der ComboBox ausgewählte Adresse wird in das Adressfeldder Tabelle eingetragen. Adresse eintragen
  • Prozedur: UserForm_Initialize
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Adressen in ComboBox einlesen
  • Ablaufbeschreibung:
    • Variablendeklaration
    • Rahmen um Arbeitsblatt-Ojbekt bilden
    • Letzte Zeile mit Inhalt in Spalte A bestsimmen
    • Zellinhalte aus Spalte A in ComboBox einlesen
  • Code:

    
    Private Sub UserForm_Initialize()
       Dim lRow As Long
       With Worksheets("Adressen")
          lRow = .Cells(Rows.Count, 1).End(xlUp).Row
          cbbAdressen.List = .Range(.Cells(2, 1), .Cells(lRow, 1)).Value
       End With
       cbbAdressen.ListIndex = 0
    End Sub
    
  • Prozedur: cbbAdressen_Change
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Adresse in Adressefeld eintragen
  • Ablaufbeschreibung:
    • Variablendeklaration
    • Arbeitsblatt an Objektvariable übergeben
    • Rahmen um ComboBox-Objekt bilden
    • Adresse eintragen
  • Code:

    
    Private Sub cbbAdressen_Change()
       Dim wks As Worksheet, shBrief As Worksheet
       Set wks = Worksheets("Adressen")
       With cbbAdressen
          Range("A12") = wks.Cells(.ListIndex + 2, 1)
          Range("A13") = wks.Cells(.ListIndex + 2, 2)
          Range("A15") = wks.Cells(.ListIndex + 2, 3) & _
             " " & wks.Cells(.ListIndex + 2, 4)
       End With
    End Sub