hab mir das Makro unten selbst zusammengeschustert, funktioniert auch soweit ganz gut
Jetzt hab ich nur noch das Problem, dass ich die eingefügten Werte Rot färben muss...
und das bekomme ich irgendwie nicht hin.
mit Cells(Columns(2).Find(s, lookat:=xlWhole).Row, 5).Font.Color = -16776961
Macht er mir immer nur die erste Zelle von den betroffenen....
Mein Makro :
Sub test1()
Dim s As String
Dim laR As Long
s = Sheets("Usereingabe").Range("B4").Text
Application.Goto reference:=Cells(Columns(2).Find(s, lookat:=xlWhole).Row, 1), Scroll:=True
Sheets("Usereingabe").Range("C3:G3").Copy
Cells(Columns(2).Find(s, lookat:=xlWhole).Row, 5).PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Usereingabe").Range("C6:G6").Copy
Cells(Columns(2).Find(s, lookat:=xlWhole).Row, 10).PasteSpecial Paste:=xlPasteValues, Operation: _
=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Für einen Tipp wäre ich sehr dankbar.
Viele Grüße
Toumas