HERBERS Excel-Forum - die Beispiele

Thema: Bei Zellauswahl UserForm mit Artikelnummern aufrufen

Home

Gruppe

Ereignis

Problem

Bei Auswahl einer Zelle in Spalte A soll eine UserForm mit ComboBox-Daten aus der Data-Blatt aufgerufen werden. Die UserForm-Eintragungen sollen in die Zellen übernommen werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.
ClassModule: Tabelle1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Cells.Count > 1 Then Exit Sub
   If Target.Row = 1 Then Exit Sub
   If Target.Column <> 1 Then Exit Sub
   frmArtikel.Show
End Sub

ClassModule: frmArtikel

Private Sub txtArtNo_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   Dim var As Variant
   var = ActiveCell.Offset(0, 1).Formula = "=vlookup([RC-1],data!a:c,2,0)"
End Sub

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   ActiveCell.Value = cboArtikel.List(cboArtikel.ListIndex, 0)
   ActiveCell.Offset(0, 1).Value = cboArtikel.List(cboArtikel.ListIndex, 1)
   ActiveCell.Offset(0, 2).Value = txtStueck.Value
   On Error GoTo ERRORHANDLER:
   Application.EnableEvents = False
   ActiveCell.Offset(1, 0).Select
   cboArtikel.SetFocus
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

Private Sub UserForm_Initialize()
   cboArtikel.List = Worksheets("Data").Range("A1").CurrentRegion.Value
   cboArtikel.ListIndex = 0
   txtStueck = ActiveCell.Offset(0, 2).Value
End Sub

Beiträge aus dem Excel-Forum zu den Themen Ereignis und SelectionChange

Msg mit 2 Ereignissen +Cancel Ereignisprozedur
Makro für ereignisabh. Druck verschiedener Seiten UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden? Zeilen aus- einblenden als Ereignis?
Welches Ereignis ist das richtige ?? Ereignis Arbeitsblatt sperren abfangen
Worksheet_SelectionChange Ereignisprozedur f. Multipage-Reiter
Frage zum Change ereignis Worksheet_SelectionChange bzw. Interior
Change-Ereignis in Combobox unterdrücken Combobox Ereignis
Userform, Ereignis deklarieren im Klassenmodul Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen Command Button Ereignis
Ereignis von Laufzeit-Checkbox change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern change-ereignis bei dynamisch erstellten Controls
Schaltfläche - Ereignis erst nach Bestätigung ausl SelectionChange - Change - Reihenfolge?
Objekt_Error - Ereignis in UserForm selectionchange nicht, wenn before rightclick
change ereigniss auf userform. Click-Ereignis für Checlbox nicht ausführen?
Speichern einer Kopie durch Ereigniss Workbook_bef Reagieren auf Tastaturereignisse
Ausnahmen für Exit-Ereignis Exit-Ereignis SetFocus
select Ereigniss UF Show Ereignis zeitweise mit Fehler
Ereignismakro Selectereigniss in Spalte
doppeltes Klick-Ereignis Doppelklick-Ereignis
VBA Ereignis: Änderung der Hintergrundfarbe Ereigniscode aus zwei Teilen fnk. nicht
Exit Ereignis einer Textbox im Frame Change-Ereignis bei Auswahllisten
Worksheet_Change Ereignis erweitern Exit Ereignis springt nicht an
Exit-Ereignis Ereignis "BeforeSave" - ".Find" geht nic
change ereigniss nicht ausführen Userform Worksheet_SelectionChange
Worksheet_SelectionChange Exit Ereignis