suchfunktion mit vba

Hallo liebes Forum,

ich kann gerade nicht erkennen, warum es mir meine - eigentlich funktionierende - Suchfunktion zerschossen hat.

In Zelle B5 gebe ich einen zu suchenden Wert ein.
Die Suchspalte ist C (Auftragsnummern)
Das Blatt ist zu größten Teilen mit Zellschutz versehen, die Spalte C aber nicht.
Die Suchspalte ist teil einer intelligenten Tabelle - dürfte aber m.E. keine Rolle spielen, hat ja auch schon funktioniert.

Kann Jemand ohne die Datei erkennen, warum "Objektvariable oder With-Blockvariable nicht festgelegt" ist?
Ich hab ein Brett vorm Kopf...

Mein Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Suchfunktion für Auftragsnummern

Dim Drop As Object
Dim S As Range

If Target = Cells(5, 2) Then

Columns("C:C").Select

Set S = Selection.Find(What:=Cells(5, 2).Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

If Not S Is Nothing Then
Cells(ActiveCell.Row, ActiveCell.Column - 1).Activate
Else
MsgBox "Auftrag wurde nicht gefunden!"
End If
Else

'mach noch was anderes....

Application.ScreenUpdating = True
End If

End If

End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'Suchfunktion für Auftragsnummern Dim S As Range If Target = Cells(5, 2) Then Set S = Columns("C:C").Find(What:=Cells(5, 2).Value, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If Not S Is Nothing Then S.Offset(-1, 0).Activate Else MsgBox "Auftrag wurde nicht gefunden!" End If End If End Sub

Hallo Easy,

Ich würde nicht den "ScreenUpdating = True" innerhalb des Ifs reinbringen.
Falls in einem "Worksheet_Change" eine Zelle geschrieben wird, ist ratsam einen "Application.EnableEvents = False" zu verwenden (am Ende auch zurücksetzen).
Ein Großenteil der Find-Parameter sind Default-Value, die man einfach weglassen darf.
Wenn verschiedene Adressen verschiedene Aktionen auslösen sollen, hilft vielleicht ein Select Case.

Aber die Lösung hat Peterk: Set und Activate gehören nicht zusammen. Set: Zuweisung eines Objekt zu einer Variable, Activate: zu durchführende Aktion ohne Rückgabewert.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Suchfunktion für Auftragsnummern
Dim S As Range

    Application.ScreenUpdating = False
    Select Case Target.Address
    Case "$B$5"
        Set S = Columns("C:C").Find(What:=Target.Value)
        If Not S Is Nothing Then
            S.Offset(0, -1).Select
        Else
            MsgBox "Auftrag wurde nicht gefunden!"
        End If
    Case "$C$2", "$D$5" 'nur ein Bespiel
        '...
    Case Else
        '...
    End If
    Application.ScreenUpdating = True
End Sub

(ok: eigentlich nicht anderes als was GerdL schon vorgeschlagen hatte. Mir ist wohl langweilig ;-)

VG
Yal

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread