Hallo zusammen,

ich habe die folgende Beispieltabelle:

Ich möchte, dass in den Zeilen "...Ergebnis" die Zahl in der Spalte mit der Überschrift "Spalte P" mit der Zahl in der Spalte mit der Überschrift "Spalte F" multipliziert wird. Das Ergebnis soll in diesselbe Zeile nur in Spalte Bestellbestand erscheinen. Das ist mein Code:  

Das Problem ist, dass der Code nur bis Zeile 4 funktioniert. Es wird einfach nur eine neue Spalte mit der Überschrift "Bestellbestand" eingefügt, wie in der Tabelle zu sehen ist. 

Kann mir jemand helfen?

Sub SpalteBestellbestand()

1.  
2. Range("A1").End(xlToRight).Select
3. Selection.Offset(0, 1).Select
4. Selection.Value = "Bestellbestand"
5.  
6.  
7.  
8.  
9. AnzahlSpalten = ActiveSheet.UsedRange.Columns.Count    'Anzahl Spalten
10. AnzahlZeilen = Cells(Rows.Count, 1).End(xlUp).Offset(-1, 0).Rows.Row   'Vorletzte Zeile
11.  
12. colNum1 = WorksheetFunction.Match("*P", ActiveSheet.Range("1:1"), 0)     'Spaltennummer Spalte P
13. colNum2 = WorksheetFunction.Match("*F", ActiveSheet.Range("1:1"), 0)     'Spaltennummer Spalte F
14.  
15.  
16.  
17. For i = 1 To AnzahlZeilen Step -1
18.  
19. If Cells(i, 1).Value Like "*Ergebnis" Then
20. Cells(i, AnzahlSpalten).Value = Cells(i, colNum1) * Cells(i, colNum2)
21. End If
22.  
23. Next i
24.  
25.  
26. End Sub