per Makro Wert suchen und dessen Position angeben

Hallo,
ich benötige eure Hilfe bei einem Makro.
Ich habe eine Excel-Datei mit 2 Tabellenblättern. In dem ersten befinden sich sehr viele Maschinen mit allen Eigenschaften ect. In dem zweiten Tabellenblatt befinden sich die selben Maschinen ein weiteres Mal, jedoch stehen dort nur der Hersteller, die Maschinennummer (daran kann die Maschine eindeutig identifiziert werden) und ein Bild der Anlage. Das erste Tabelleblatt kann sortiert werden, dass andere ist statisch, und genau da liegt mein Problem!
Ich benötige ein Makro, welches mir zum Beispiel in Zeile 12 im ersten Tabellenblatt die Maschinennummer ausliest und in dem zweiten Tabellenblatt diesen Wert sucht. Anschließend soll das Makro die Zeile, in der es den Wert gefunden hat zwischenspeichern, sodass ich später das dazugehörige Bild kopieren kann.
Ich hoffe ihr könnt mein Problem nachvollziehen...
LG Frischy1990

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub AuslesenSuchenKopieren() Dim wksAuslesen As Worksheet Dim wksSuchen As Worksheet Dim rSuche As Range Dim lRow As Long Set wksAuslesen = Sheets("Tabelle1") Set wksSuchen = Sheets("Tabelle2") Set rSuche = wksAuslesen.Range("A12") With wksSuchen lRow = .Cells.Find(What:=rSuche.Value, After:=.Range("A1"), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Row MsgBox lRow End With End Sub

Hallo Klaus,
Vielen Dank für die schnelle Antwort!
Ich hab versucht deinen Code mit einzubauen, jedoch stellt der Range Befehl ein Problem dar.
Schau mal bitte was für meinen Fall geändert werden müsste. Die Deklarationen für meinen Beispielteil hab ich mal ausgelassen.
Option Explicit

Sub AuslesenSuchenKopieren()
Dim wksAuslesen As Worksheet
Dim wksSuchen As Worksheet
Dim rSuche As Range ich denke mal Range ist für meinen Fall falsch?!
Dim lRow As Long
Set wksAuslesen = Sheets("Database")
Set wksSuchen = Sheets("Picture")
ich denke hier liegt aktuell das Problem
Set rSuche = wksAuslesen.Range(lngRow, 4)
also lngRow wird vorher bestimmt und aus der Zeile werden dann alle Daten entnommen; der  _
Wert der in beiden Tabellenblättern gleich ist, befindet sich in Spalte 4
Zur Info, so wird der ermittelte Wert anschließend weiter verwendet:
Set objImg = getPicture(Datenbank.Sheets("picture").Cells(lRow, 6))
If Not objImg Is Nothing Then
objImg.Name = "img_" & Replace(Format(Now, "ddMMyyhhmmss") & Timer, ",", "_")
objImg.Copy
objSh.Paste
objSh.Shapes(objImg.Name).Top = objSh.Cells(1, 4).Top + 1
objSh.Shapes(objImg.Name).Left = objSh.Cells(1, 4).Left
End If
End Sub

Hast du eine Idee was anders gemacht werden müsste?
LG Frischy1990

Beliebteste Forumthreads (12 Monate)

per Makro Wert suchen und dessen Position angeben

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

per Makro Wert suchen und dessen Position angeben

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread