Application Match problem
20.01.2014 09:15:32
Daniel
Ich habe eine Frage an Euch bzw. bräuchte Eure Hilfe.
Folgender Sachverhalt:
In der Tabelle "test1" steht in der Zelle A3 die aktuelle KW, welche in die Var aktKW gespeichert wird. Nun soll im Sheet "test2" nach der KW gesucht werden.
Die Werte habe ich ebenfalls in eine Var allKW eingelesen.
Wenn die KW nun gefunden worden ist, sollen die Werte von A7:D7 aus dem Sheet "test1"
kopiert werden und im Sheet "test2" neben die jeweilige KW eingefügt werden.
Ich habe mich selber mal ein bisschen daran versucht aber scheiter
kläglich daran:
Sub Makro1()
Dim aktKW As String
Dim allKW As String
Dim Ende As Long
Dim Find As Variant
'With Sheets
Ende = Cells(Rows.Count, 1).End(xlUp).Row
allKW = Cells(1, Ende)
aktKW = Sheets("test1").Range("A3").Value
'With Sheets("test2")
'Find = Application.Match(aktKW, Columns(1), 0)
'MsgBox Find
'End With
End Sub
Danke für Eure Hilfe und guten Start in die Woche!
Daniel