Private Sub sevGrid1_EditComboClick(ByVal ListIndex As Long, ByVal sText As _
  String)
  With sevGrid1
 
    If .IsEditMode = 2 Then                     ' MODE_ADDNEW (Neuer Datensatz) 
    ' gewählt
      If .Col = .GetCol("PLZ") Then             'Abfragen ob Zelle "PLZ" gewählz
        ' Ort anhand ausgewählter PLZ autom. eintragen
        If Not IsNull(.EditValue) Then          'wenn Eingabewert <> leer
          .CellAdd("Ort") = .EditSubItem("Ort") 'In Zelle "Ort" den Wert aus _
            der Spalte "Ort" der Combobox eintragen
        End If
      End If
    End If
  End With