No need to apologize, it's my pleasure to help you. Really.
Doubly so, if I can beat OBP by replying first
You can refer to
any cells the following way:
Code:
WorkBooks("wbkname").Sheets("Shtname").Cells(y,x)
where y and x are rowindex and columnindex, respectively.
WorkBooks is optional, by default it is the active workbook (the xls file).
If the cell is on the currently active sheet, you can use
Code:
ActiveSheet.Cells(y,x)
If you want to copy its content, use a variable
Code:
CellContent = Sheets("Sheet1").Cells(y1,x1).ValueSheets("Sheet2").Cells(y2,x2).Value= CellContent
If you want to copy the cells formula, use "Formula" instead of "Value".
You can also omit using variable, and simply transferring the cells content in one step.
So after all this, the macro should be like this:
Code:
Sub neuesProdukt() SourceSheet=ActiveSheet.Name' Cells(6, 3).Select' Selection.Copy SeekWhat = Sheets(SourceSheet).Cells(6, 2).Value Sheets("Lizenzmeldungen").Activate Columns(1).Select Cells(1, 1).Activate Selection.Find(What:=SeekWhat, After:=ActiveCell, LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate Rows(ActiveCell.Row + 1).Select Selection.Insert Shift:=xlDown Selection.Interior.ColorIndex = xlNone SelectedRow=Selection.Row ActiveSheet.Cells(SelectedRow,1).Value = Sheets(SourceSheet).Cells(6,3).Value' Columns(1).Select' Selection.Paste' Application.CutCopyMode = FalseEnd Sub
I left in the unneccessary lines, and signed them as comments (starting with ' ).