Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Problem Excel/VBA

Forumthread: Problem Excel/VBA

Problem Excel/VBA
24.05.2007 13:33:31
Torsten
Hey Leute ich habe ein kleines Problemchen
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem Excel/VBA
24.05.2007 14:04:18
Armin
Hallo Torsten,
ich glaube da fehlt nur dazwischen ein Worksheets("xxxxxxxx").Activate. Denn das Find-Objekt gehört zur Klasse von Worksheets und ist zum augerufenen Zeitpunkt nicht aktiv.
Gruß Armin

AW: Problem Excel/VBA
24.05.2007 14:18:21
Torsten
Leider wars das nicht. Es kopiert nach wie vor nur aus dem ersten Datensatz in AB3 aber nicht vom zweiten in AB4.

Anzeige
AW: Problem Excel/VBA
25.05.2007 12:57:00
Torsten
Danke Danke Danke
Das funzt jetzt!

AW: Problem Excel/VBA
25.05.2007 15:48:00
Chaos
Servus,
freut mich, aber das Makro hat so seine kleinen Macken, da musst du aufpassen, weil du das ganze Tabellenfeld durchsuchst und zwar zeilenweise.
Wenn du z.B. eine 1 eingibst, dann sucht es sich die nächste eins, die kommt, ob da noch ne 0 dranhängt oder nicht. Evtl. reicht das für dich aus, aber wenn deine Seriennummer z.B. immer in der gleichen Spalte steht, dann wäre es besser in dieser Spalte jede Zelle einzeln abzufragen, z.B.: über eine For-Schleife.
Grus aus Bayern
Chaos
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige