Folgendes soll mein Makro können:
1. Soll im Tabellenblatt "Start" der Wert in der Zelle F9 kopiert werden. In der Zelle F9 ist eine Formel hinterlegt, ich möchte aber nur den entsprechenden Wert suchen. Der Wert ist im Format "12.345.678 - 01" abgelegt.
2. Dieser Wert soll auf dem Tabellenblatt "Daten" in der Spalte F gesucht werden und anschl. markiert werden.
3. Die Zellen in den Spalten H bis S in der gleichen Zeile wie die Mrkierte sollen kopiert werden.
4. Anschl. sollen diese kopierten Zellen auf dem Tabellenblatt "Start" bei Zelle G9 eingefügt (als Wert) werden.
Klingt so einfach und scheitere ich. Das ist mein bisheriger Ansatz. Der muss aber nicht als Grundlage dienen.Die Zelle Z1 habe ich nur als Hilfsmittel genutzt um die Suchfunktion einzusetzen.
Dim Spalte As Variant
Dim Zeile As Variant
Spalte = ActiveCell.Column
Zeile = ActiveCell.Row
'
Range("F9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Daten").Select
Range("Z1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Cells.Find(What:=Range("Z1"), After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
Selection.Copy
Sheets("Start").Select
Range("G9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False