Wert mit Liste vergleichen
08.10.2004 17:29:14
Markus
Ich habe eine Excel-Liste mit Waren und möchte diese per Combobox auswählen oder erweitern können. Nun da ich kein VBA-Crack bin fand ich in einem früherem Beitrag folgendes Makro:
Sub auto_open()
Worksheets(1).OnEntry = "Kontrolle"
End Sub
Sub auto_close()
Worksheets(1).OnEntry = ""
End Sub
Sub kontrolle()
Dim ac As Range
Dim z1 As Range
Dim z2 As Range
Dim prüf1 As Boolean
Dim prüf2 As Boolean
Set ac = Application.Caller
If ac.Column <> 1 Then Exit Sub
Set z1 = Range(Cells(1, 1), Cells(ac.Row - 1, 1))
Set z2 = Range(Cells(ac.Row + 1, 1), Cells(Rows.Count, 1))
prüf1 = IsError(Application.Match(ac, z1, 0))
prüf2 = IsError(Application.Match(ac, z2, 0))
If prüf1 = False Or prüf2 = False Then
Beep
MsgBox ("Wert schon vorhanden")
End If
End Sub
Leider hilft es mir insoweit nur weiter, wenn ich die Waren direkt in die Liste eintrage; Aber via Combo Box funktioniert dies nicht da aus irgendeinem Grund der Befehl 'auto_open' nicht aktiviert/angesprochen wird.(Wie gesagt ich bin kein Schlauer auf diesem Gebiet)Hier mein Combobox- Befehl bei betätigung der 'Eintragen'-Taste:
Private Sub CommandButton1_Click()
'ActiveCell.Offset(0, 1).Select
UserForm2.Hide
Range("ai2").Activate
ActiveCell.FormulaR1C1 = ComboBox1.Text
Application.Run "auto_open"
End Sub
Daher wollte ich das Makro so umschreiben das ich es mir der Combobox "ansteuern"/aktivieren kann. ABER WIE WENN MAN NICHT WEISS WIE ES GEHT.
Hoffentlich kann mir jemand helfen.
Vielen Dank im voraus sagt,
Markus