Hallo zusammen,

ich möchte mit meinem Code eine neue Spalte einfügen und in dieser Spalte das Ergebnis einer Addition schon vorhandener Spalten einfügen. Leider wird mir beim Ausführen des Codes für die Zeile "Cells(i, AnzahlSpalten).Value = Cells(i, colNum1) + Cells(i, colNum2)" ein Typenkonfliktfehler angezeigt. Ich selbst komme leider nicht voran, aufgrund der geringen Kenntnisse. Kann mir jemand helfen?




Sub SpalteBestellbestand9()


Range("A1").End(xlToRight).Select
Selection.Offset(0, 1).Select
Selection.Value = "Bestellbestand inkl. Lagerbestand"
Selection.Font.Size = 11
Selection.Font.Name = "Calibri"



AnzahlSpalten = ActiveSheet.UsedRange.Columns.Count 'Anzahl Spalten

Spalte = WorksheetFunction.Match("*Artikel", ActiveSheet.Range("1:1"), 0) 'Nummer der Spalte = 4


AnzahlZeilen = Cells(Rows.Count, Spalte).End(xlUp).Offset(-1, 0).Rows.Row 'Anzahl an Zeilen ohne die Überschriftenzeile = 530

colNum1 = WorksheetFunction.Match("*_Ges", ActiveSheet.Range("1:1"), 0) 'Spaltennummer Spalte R (Lagerbestand_Ges)
colNum2 = WorksheetFunction.Match("*_Gesamt", ActiveSheet.Range("1:1"), 0) 'Spaltennummer Spalte AO (Bestellbestand_Gesamt)


For i = AnzahlZeilen To 1 Step -1

If Cells(i, Spalte).Value Like "*Ergebnis" Then
Cells(i, AnzahlSpalten).Value = Cells(i, colNum1) + Cells(i, colNum2)
End If

Next i


End Sub




Viele Grüße
Khalif