Gruß Werner
das ist nicht ganz das was ich brauche. Statt "MsgBox" möchte ich den Focus auf die Zelle setzen, in der das Suchergebnis liegt.
Gruß Werner
und dann
If Not Fundstelle Is Nothing Then Fundstelle.Activate
macht - sollte doch alles laufen, oder?
Matthias
ich bekomme dann beim Activieren den Fehler:
"Laufzeitfehler 1004"
die Activate-Methode des Range-Objektes konnte nicht ausgeführt werden.
Was könnte das für Ursachen haben?
Mein Skript sieht so aus:
Private Sub cmdSucheInInventar_Click()
Dim gefZelle As Range
strSearchPattern = ActiveCell.Offset(0, 0).Value
Sheets("Inventar").Select
Set gefZelle = Cells.Find(What:=strSearchPattern, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
If Not gefZelle Is Nothing Then
gefZelle.Activate
End If
strInvNr = ActiveCell.Offset(0, 0).Value
strDevice = ActiveCell.Offset(0, -1).Value
Sheets("ID-Nr.").Select
ActiveCell.Offset(0, 1).Value = strInvNr
ActiveCell.Offset(0, 2).Value = strDevice
ActiveCell.Offset(1, 0).Activate
End Sub
(ich suche nach einer ID-Nr. und hole mir die Inventarnr. sowie Gerätebezeichnung)
Gruß Werner.
einen 1004er bekommst Du beispielsweise, wenn die Fundstelle in Spalte A liegt oder keine Fundstelle vorhanden ist und sich der Cursor in Spalte A befindet, denn dann kann ActiveCell.Offset(0, -1) nicht mehr funktionieren.
hans
ihr fangt den Fehler nicht ab. In die "If Not"-Rubrik gehört ein "Else/Exit Sub".
hans
bei mir kommt der Fehler im "IF"-Zweig.
Gruß Werner
Gruß Werner.
der Fehler tritt z.B. dann auf, wenn sich der Cursort im Suchblatt in Spalte A befindet und der Suchbegriff nicht gefunden wird.
Allerdings musst Du berücksichtigen, dass Deine Zuweisung des Suchbereiches sind auf das falsche Blatt bezieht.
Aus der Syntax des Sub-Namens entnehme ich, dass es sich um eine Schaltfläche aus der Steuerelement-ToolBox handelt und sich der Code deshalb im Klassenmodul der Tabelle mit dem Suchbegriff, nicht der zu durchsuchenden Tabelle befindet. In diesem Fall muss die Zuweisung wie folgt lauten:
Andernfalls wird in der Tabelle gesucht, in der sich der Code befindet.
hans
hans
hans
die Version läuft jetzt, vielen Dank.
Gruß Werner.