HERBERS Excel-Forum - die Dialoge

Thema: Einlesen, editieren und zurückschreiben

Home
Der in die TextBox eingelesene Wert kann editiert und in das Arbeitsblatt zurückgeschrieben werden. Einlesen, editieren und zurückschreiben
  • Prozedur: UserForm_Initialize
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Werte aus Spalte F in ComboBox einlesen
  • Ablaufbeschreibung:
    • Werte in ComboBox einlesen
    • 1. ComboBox-Element auswählen
  • Code:

    
    Private Sub UserForm_Initialize()
       cboNamen.List = Range("F1").CurrentRegion.Value
       cboNamen.ListIndex = 0
    End Sub
    
  • Prozedur: cboNamen_Change
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Wert aus Fundzeile in TextBox einlesen
  • Ablaufbeschreibung:
    • Variablendeklaration
    • Fundstelle an Range-Objekt übergeben
    • Wenn der Suchbegriff gefunden wurde...
    • Wert in TextBox einlesen
    • Adresse der Fundstelle an TextBox-Tag übergeben
  • Code:

    
    Private Sub cboNamen_Change()
       Dim rng As Range
       Set rng = Columns(1).Find(cboNamen.Value, lookat:=xlPart, LookIn:=xlValues)
       If Not rng Is Nothing Then
          txtEdit.Text = rng.Text
          txtEdit.Tag = rng.Address
       End If
    End Sub
    
  • Prozedur: cmdOK_Click
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Wert zurückschreiben
  • Ablaufbeschreibung:
    • Wert aus TextBox an Fundstelle zurückschreiben
  • Code:

    
    Private Sub cmdOK_Click()
       Range(txtEdit.Tag).Value = txtEdit.Text
    End Sub