ich habe eine Combobox und möchte zu der Zelle mit dem Inhalt springen.
Wie kann ich das machen?
Vielen Dank im Voraus.
Liebe Grüße
Option Explicit
'Variablendeklaration für Userformmodul
Private Zelle As Range 'Objekt-Variable für gefundene Zelle mit Artikelnummer
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Combobox mit der Artikelnummer
Dim wks As Worksheet
Dim varFind As Variant
If Me.ComboBox1.ListIndex = -1 Then
MsgBox "Bitte erst eine Artikelnummer auswählen!"
Else
Set wks = Tabelle2 'oder = Worksheets("Tabelle2") 'Tabelle in der gesucht werden soll
varFind = Me.ComboBox1.Value
'varFind = Val(Me.ComboBox1.Value) 'evtl. erforderlich, wenn Artikelnummern Zahlen sind
With wks
Set Zelle = .Columns(1).Find(What:=varFind, LookIn:=xlValues, lookat:=xlWhole)
If Zelle Is Nothing Then
MsgBox "Artikel-Nummer in Blatt """ & .Name & """ nicht gefunden!"
Else
'die nachfolgenden 2 Zeilen sind nur erforderlich, wenn die Eingabe-Zeile _
unbedingt angezeigt werden soll
If ActiveSheet.Name wks.Name Then wks.Activate
Zelle.Select
End If
End With
End If
End Sub
Private Sub TextBox1_Change()
'Textbox mit der Anzahl
If Zelle Is Nothing Then
MsgBox "Bitte erst eine Artikelnummer auswählen!"
Else
With Me.TextBox1
If .Value = "" Then
Zelle.Offset(0, 5).ClearContents 'oder Zelle.Offset(0, 5).Value = 0
ElseIf IsNumeric(.Value) Then
Zelle.Offset(0, 5) = CDbl(.Value)
Else
MsgBox "Eingabe für Anzahl ist keine Zahl!"
End If
End With
End If
End Sub