Probleme mit vba-script
09.09.2005 10:43:53
Thomas
ich habe folgendes Problem. Ich habe eine Listbox, welche nur angezeigt wird wenn ich in eine bestimmte Spalte klicke. Funktioniert soweit ganz gut, nur ist dadurch irgendwie das kopieren/einfügen beeinträchtigt. ich kann zwar Felder kopieren, aber nicht mehr einfügen. Lösche ich die Listbox, dann geht das wieder. Woran kann das liegen?
Hier mal der code zur listbox: (hab ich nicht selbst geschrieben, war ne hilfe aus dem forum)
Private Sub Kostenart_GotFocus()
ActiveCell.Value = Kostenart.List(Kostenart.ListIndex, 1)
ActiveCell.Select
End Sub
Private Sub Worksheet_Activate()
Kostenart.Visible = Not Intersect(Target, Range("G16:G32")) Is Nothing
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Kostenart.Visible = Not Intersect(Target, Range("G16:G32")) Is Nothing
Kostenart.Top = ActiveCell.Top
End Sub
Gruß Thomas