Find date in horizontal table and add values below in one cell

hi Taktiker, welcome to Excelforum, try this slightly changed option of your code:

Please Login or Register  to view this content.

The code could not work due to the wrong range set. Please check attchment, run code "Tagebucheintrag"

1. VB help file extract Find Method

Finds specific information in a range, and returns a Range object that represents the first cell where that information is found. Returns Nothing if no match is found. Doesn’t affect the selection or the active cell.

For information about using the Find worksheet function in Visual Basic, see Using Worksheet Functions in Visual Basic.

expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)

expression Required. An expression that returns a Range object.

What Required Variant The data to search for. Can be a string or any Microsoft Excel data type.

After Optional Variant. The cell after which you want the search to begin. This corresponds to the position of the active cell when a search is done from the user interface. Note that After must be a single cell in the range. Remember that the search begins after this cell; the specified cell isn’t searched until the method wraps back around to this cell. If you don’t specify this argument, the search starts after the cell in the upper-left corner of the range.

LookIn Optional Variant. The type of information.

LookAt Optional Variant. Can be one of the following XlLookAt constants: xlWhole or xlPart.

SearchOrder Optional Variant. Can be one of the following XlSearchOrder constants: xlByRows or xlByColumns.

SearchDirection Optional XlSearchDirection. The search direction.

XlSearchDirection can be one of these XlSearchDirection constants.
xlNext default
xlPrevious

MatchCase Optional Variant. True to make the search case sensitive. The default value is False.

MatchByte Optional Variant. Used only if you’ve selected or installed double-byte language support. True to have double-byte characters match only double-byte characters. False to have double-byte characters match their single-byte equivalents.

SearchFormat Optional Variant. The search format.

Remarks
The settings for LookIn, LookAt, SearchOrder, and MatchByte are saved each time you use this method. If you don’t specify values for these arguments the next time you call the method, the saved values are used. Setting these arguments changes the settings in the Find dialog box, and changing the settings in the Find dialog box changes the saved values that are used if you omit the arguments. To avoid problems, set these arguments explicitly each time you use this method.

2. With the defined range in the sample file code it would never find it.

The posted workbook in post #4 works as expected.

The posted code in #5 misses End sub.

How do you run a code?

hey Ive updated my last post. check it.

Originally Posted by Taktiker

now I have another problem: The percent numbers (today 38%, 38%, 24%) are combined to 0/0/0. Any idea why?

It's logical if you take values from empty cells: Cells(37,6) - F37 - it is empty. Plus all you variables: Prot, Carb, Fat reference same cell - F37 and it is empty.

Uhm, the original document contained correct info in the linked cells. But I have fixed the issue. The numbers were %-digits, so 38% was 0,38 and the integer variable made 0 out of it. By using double variables and multiplying them by 100 I got the right numbers. Thank you very much for your help, if I could I would give you 100x reputation
Final Code:

Please Login or Register  to view this content.

if we are done, please mark the thread as Solved, see Forum Rules for details