Durchsuchen und fokusieren

Hallo, folgendes Problem:
Ich habe eine Tabelle zum Abgleichen von Barcodes. In einer Spalte stehen
alle Barcodes. In einer anderen der Status. In einer Zelle kann ein
Barcode zum Abgleichen eingegeben werden. Bei Eingabe eines vorhandenen Barcodes
wird beim Status des jeweiligen Codes ein "Hier" angezeigt.
Nun meine Frage. Ich würde es gerne so hinbekommen das Excel, nach drücken
eines Buttons, die Statuszellen (E) durchsucht und das "Hier" fokusiert.
Habe nicht viel Ahnung von Excel, aber vielleicht kann mir ja hier jemand helfen.
Vielen Dank schonmal :)
PS: was kleines noch, optimal wäre es wenn bei der Eingabe zum Abgleichen,
nach dem Enter drücken nicht eine Zeile runterspringen würde.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Pascal
Ich gehe mal von folgendem aus:
Spalte A - Barcodes
Spalte B - Status
Zelle E1 - Barcode zum Abfragen
ev. in Zelle F1 Resultat der Abfrage mit (=sverweis(e1;a:b;2;0)
Blattname - Tabelle1
Jetzt mit Alt+F11 in den VBA-Modus wechseln. Im Projektexplorer die entsprechende Datei anwählen, auf 'Diese Arbeitsmappe' klicken - Einfügen - Modul und folgenden Code hineinkopieren:


Sub Status_suchen()
Dim vStatus As Variant
Sheets("Tabelle1").Select
Columns("a:a").Select
vStatus = Range("e1").Value
Selection.Find(What:=vStatus, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.EntireRow.Select
End Sub

Danach Makro mit einem Formularknopf - Schaltfläche in Excel etwa wie folgt einbinden:
Rechte Maustaste auf Symbolleiste - Formular - Schaltfläche -- Schaltfläche mit Cursor auf Excel platzieren. Makroknopf benennen - Makro zuweisen - ok.
Mit diesem kleinen Code wird die Zeile bei der in der Spalte A der Code mit E1 übereinstimt markiert.
Könnte dies eine Lösung für dich sein?
Gruss
Hampi

Sub Status_suchen() Dim vStatus As Variant Dim myNum As Variant Dim Abfrage As Range Set Abfrage = Range("e1") Sheets("Tabelle1").Select myNum = Application.InputBox("Bitte Code eingeben!") Abfrage = myNum Columns("a:a").Select vStatus = Range("e1").Value Selection.Find(What:=vStatus, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).Activate ActiveCell.EntireRow.Select End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Durchsuchen und fokusieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread