Probleme bei der Code Erstellung (Syntax)

[LeibnizCasio]

Ja genau!!!
Und jetzt nur noch beginnend bei 1,5.
Das erste Objekt wird in Jahr 1 angeschafft, folglich wäre die erste Modifikation bei 1,5.
Danke!!!

[IchBinIch]

Dann das Makro so:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim o As Long 'Anzahl Objekte 
Dim nd As Double 'Nutzungsdauer 

If Target.Address = "$A$2" Then 'in Deinem Fall ist Target.Address = "$B$17" 
    
    Z = 1
    For o = 1 To Tabelle1.Cells(2, 1).Value
        
        Tabelle1.Cells(4, o).Value = "Objekt " & o
        
        zz = 5 'für die Ausgabe der Modifikationsintervalle 
        
        For nd = 0 To Tabelle1.Cells(2, 3).Value Step Tabelle1.Cells(2, 2).Value 'Step definiert die Schrittweite der Schleife ist also das Intervall 
            
            'Wenn das Modifikationsintervall größer 0 und kleiner Nutzungsdauer ist dann 
            If nd > 0 And nd < Tabelle1.Cells(2, 3).Value Then
                
                Tabelle1.Cells(zz, o).Value = nd + Z
                
                'Erhöhe den Wert für die Zielzeile um 1 
                zz = zz + 1
            
            'Ende der Prüfung 
            End If
        
        'Nächstes Intervall 
        Next nd
    
    Z = Z + 2
    'Nächtes Objekt 
    Next o

End If
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Und das ist das Ergebnis:

Tabelle1

	A	B	C	D
1	Anzahl Objekte	Modifikationsintervall	Nutzungsdsauer
2	4	0,5	2
3
4	Objekt 1	Objekt 2	Objekt 3	Objekt 4
5	1,5	3,5	5,5	7,5
6	2	4	6	8
7	2,5	4,5	6,5	8,5

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Gruß
Ich

[IchBinIch]

Ich hatte noch einen kleinen Denkfehler drin.
Du musst diese Zeile

Code:

Z = Z + 2

wie folgt ändern:

Code:

Z = Z + Tabelle1.Cells(2, 3)

Sorry dafür.

[LeibnizCasio]

Vielen Vielen Dank! Ich werde es einbinden sobald ich zu Hause bin.
Du warst mir wirklich eine Riesen Hilfe.
Danke!