den folgenden Code konnte ich auf der Excel-CD ausfindig machen; er bewirkt, dass Daten (in diesem Fall wohl als Begriff 1-20) in einer UF angezeigt werden. Wie müßte der Code umgestellt werden, wenn ich alle Datensätze (Zeilen) in der UF angzeigt haben möchte, die sich in der ausgeblendeten Tabelle "Daten" befinden und in Spalte D eine 1 enthalten? Den jeweils markierten Datensatz (Zeile) in der UF möchte ich dann gerne ab der jeweils markierten Zelle in das aktuelle Tabellenblatt einfügen. Danke schon jetzt wieder allen für die Rückmeldung.
Gruß - Wolfgang
Option Explicit
'*** Ausgewählten Wert eintragen ***
Private Sub lstKontext_MouseUp( _
ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
' Wert in aktive Zelle eintragen
ActiveCell = lstKontext.Value
' Dialog beenden
Unload Me
End Sub
'*** Werte in ListBox eintragen ***
Private Sub UserForm_Initialize()
' Variablendeklaration
Dim intCounter As Integer
' Schleife
For intCounter = 1 To 20
' Listeneintrag hinzufügen
lstKontext.AddItem "Begriff " & intCounter
Next intCounter
End Sub
'**Code im angesprochenen Tabellenblatt***Option Explicit
Private Sub Worksheet_BeforeRightClick( _
ByVal Target As Excel.Range, _
Cancel As Boolean)
Cancel = True
frmKontext.Show
End Sub