Listbox
12.02.2004 13:54:08
Nööörbi
Habe folgendes Makro ener listbox zugeordnet.
Private Sub ListBox4_Click()
Dim Bereich As Range
Set Bereich = Range("abdat")
If Intersect(Range(ActiveCell.Address), Bereich) Is Nothing Then
MsgBox "Außerhalb des Bereiches !"
Exit Sub
End If
Sheets("Zusatztabelle").Select
ActiveCell.Select
Selection.Copy
Sheets("Objekt-DB").Select
ActiveCell.Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("zusatztabelle").Select
ActiveCell.Select
Selection.ClearContents
Sheets("Objekt-DB").Select
End Sub
In objekt-db werden die angewählten daten von zusatztabelle eingefügt.
nun gibts da 2 probleme
1. Kann ich wenn mal was gewählt(blau markiert ist in der listbox) nicht nochmal dasselbe anwählen. D.h ich muss immer zuerst was andres wählen.
2. Die fehlermeldung erscheint 2mal!?!
Gruss Norbi