Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Listbox

Listbox
12.02.2004 13:54:08
Nööörbi
Hallo zusammen
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listbox
12.02.2004 13:57:16
Bert
Nimm statt click
Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Bert

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige