Zelle mithilfe von zwei Variablen suchen

Hallo Leute
Ich schreibe gerade eine Makro im Excel.
Diese Makro soll mir einen Wert aus einer Zelle (myCopy1) kopieren. Aber die Makro weiss noch nicht, wo myCopy1 ist.
Deshalb lasse ich die Zelle suchen. Aber der Wert in der Zelle ist dynamisch, ich kann also nicht nach der Zelle selbst suchen.
Deshalb suche ich nach Kriterien, die statisch sind. Das wäre zum einen die Beschriftung der Zeile und zum anderen die Beschriftung der Spalte.
In meiner Makro lasse ich also nach einem Wort suchen, das sich myReaTSev1 nennt. Ausserdem lasse ich nach einem Wert suchen, der sich myDateCell nennt.
Meine Makro findet beide Werte. Nun soll die Makro aber die Zelle myCopy1 finden, die genau der Schnittpunkt von Spalte und Zeile meiner vorher gefunden Zellen ist.
Okay ein Zahlenbeispiel:
myReaTSev1 steht in C5
myDateCell steht in F1
Dann muss meine Makro die Zelle myCopy1 kopieren, also die Zelle F5...
Wie geht das? Kann mir jemand helfen?
Ich muss das so machen, weil die Zelle myCopy1 nie am selben Ort ist und immer einen anderen Wert beinhaltet...
Danke für eure Hilfe!
Liebe Grüsse
Ximena

Option Explicit
Dim myDateCell
Dim myCopy1

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Dim myDateCell As Range Dim myCopy1 As Range Dim myReaTSev1 As Range Set myDateCell = Workbooks(FNData).Worksheets(1).Cells.Find(myDate) Set myReaTSev1 = Workbooks(FNData).Worksheets(1).Cells.Find("Reaction Time for Severity 1") 'meine momentane Lösung: i = myDateCell.Column j = myReaTSev1.Row Set myCopy1 = Cells(j, i)

Sub aaa() Dim myDateCell As Range Dim myCopy1 As Range Dim myReaTSev1 As Range Dim myDate As Date myDate = Date Set myDateCell = Worksheets(1).Cells.Find(myDate, lookat:=xlWhole, LookIn:=xlValues) Set myReaTSev1 = Worksheets(1).Cells.Find("Reaction Time for Severity 1", lookat:=xlWhole, _ LookIn:=xlValues) If myDateCell Is Nothing Then MsgBox "Datum nicht vorhanden" Exit Sub End If If myReaTSev1 Is Nothing Then MsgBox "'Reaction Time for Severity 1' nicht vorhanden" Exit Sub End If Set myCopy1 = Intersect(myReaTSev1.EntireRow, myDateCell.EntireColumn) MsgBox myCopy1.Address End Sub

Beliebteste Forumthreads (12 Monate)

Zelle mithilfe von zwei Variablen suchen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelle mithilfe von zwei Variablen suchen

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

301 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