Problem Excel/VBA
24.05.2007 13:33:31
Torsten
Ich hole aus einer Datenbank zwei Datensätze heraus und importiere sie auf zwei Arbeitsblätter in Excel
Beide Datensätze beinhalten den Wert Seriennummer.
Ich möchte nun dass ein Eingabefeld geöffnet wird in das ich die gesuchte Seriennummer eingebe. Anschließend soll automatisch in Datensatz eins die gesamte Zeile in der das Suchergebnis steht markiert werden und in ein drittes Arbeitsblatt kopiert werden. Das gleiche soll in Datensatz zwei passieren mit anschließender Kopie in Arbeitsblatt vier.
Aber wie gesagt das Eingabefeld soll nur einmal erscheinen!
Ich habe mich drangetraut und bin bisher zu folgendem Ergebnis gekommen.
Sub Suchen_und_markieren()
such = InputBox("Suchbegriff eingeben")
On Error GoTo errorhandler
Cells.Find(What:=such, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).EntireRow.Select
Selection.Copy Destination:=ActiveWorkbook.Worksheets("Waagen").Range("A2")
Cells.Find(What:=Worksheets("Waagen").Range("D2"), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Sheets("alle_Waagenzd").EntireRow.Select
Selection.Copy Destination:=ActiveWorkbook.Worksheets("Waagenzd").Range("A2")
Sheets("Waagen").Select
Exit Sub
errorhandler:
End Sub
Es funktioniert bis zu dem Punkt wo das zweite Mal gesucht werden soll, das macht er dann nicht mehr.
Ich wäre euch sehr verbunden wenn Ihr mir helfen könntet!
Anzeige