Zeile anstatt Zelle übernehmen
01.04.2007 17:07:00
Wolfgang
untenstehender Code befindet sich in einem UF und bewirkt, dass aus einem Listenfeld die markierte Zelle im aktiven Tabellenblatt mit der jeweiligen Auswahl gefüllt wird. Ich habe den UF schon so umstellen können, dass mir komplette Zeilen darin angezeigt werden. Wie muß der Code aussehen, wenn ich nun auch im Tabellenblatt ab der markieren Zelle die vollständige Zeile hineinkopiert haben möchte?
Gruß - Wolfgang
'*** 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