Probleme bei der Code Erstellung (Syntax)

[IchBinIch]

Hiernochmal mit Automatisierung bei Änderung des Wertes in "A2" (aus meinem Beispiel)

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" 

    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 1 Step 0.3 'Step definiert die Schrittweite der Schleife ist also das Intervall 
            If nd > 0 Then
                Tabelle1.Cells(zz, o).Value = o + nd
                zz = zz + 1
            End If
        Next nd
    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

Ich kann Dir leider nicht sagen wo die Ergbenisse hingeschrieben werden sollen :32:. Die Antwort bist Du uns noch schuldig.

Gruß
Ich

[LeibnizCasio]

Genau und das mit Variabler Anzahl an Objekten, Variabler Modifikationsintervall und Variabler Nutzungsdauer .

Ich stelle mir das so vor:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)    
If Not Intersect(Target, Range("B17")) Is Nothing Then   //In Zelle B17 wird ein Wert eingetragen, dann wird das Makro ausgelost 

Dim i As Integer    //Zähler 1
Dim j As Integer  //Zähler 2
Dim Stück As Integer   //Anzahl der Käufe die nacheinander getätigt werden
Dim Nutzungsdauer As Variant // Nutzungsdauer
Dim Modifikationsintervall As Variant   // Modifikationsintervall

Stück = Range("B36").Value  //Wird aus Zelle b36 eingelesen
Nutzungsdauer = Range("B37").Value   // Wird aus Zelle B37 eingelesen
Modifikationsintervall = Range("B68").Value //Wird aus Zelle B86 eingeben

For j = 0 To j = Stück-1 // Benötigte Stückzahl - 1 da null als 1 gezählt wird

i = 1  //jedes mal wenn For Schleife aufgerufen wird soll wieder beim ersten Modifikationsintervall begonnen werden

Do While i * Modifikationsintervall <= Nutzungsdauer // Es muss so oft modifiziert werden bis das Ende der Nutzungsdauer erreicht ist
Cells(100 + i, 1 + j).Value = 1 + j * Nutzungsdauer + i * Einschleifintervall //Die Ermittelten Zeitpunkte sollen für das Erste Objekt in Spalte A ab Zeile 101 ausgegeben werden, beim nächsten Objekt ab B
i = i + 1
Loop

Next j

End If
End Sub

Es funktioniert auch halbwegs. Problem ist, es wird immer eine Iteration zu viel ausgeführt und er geht nicht zurück in die for Schleife und macht dort weiter.

[IchBinIch]

Ob das so deutlicher wird?

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

'Wenn der Wert in "A2" geändert wird 
If Target.Address = "$A$2" Then 'in Deinem Fall ist Target.Address = "$B$17" 

    'Aufsetzen der Scheife für die Anzahl der Objekte (Anzahl der Durchläufe = Wert in "A2") 
    For o = 1 To Tabelle1.Cells(2, 1).Value
        
        'Das Objekt wird in Zeile 4 Spalte (o) (für den ersten Duchlauf der Schleife ist o = 1) ausgegeben 
        Tabelle1.Cells(4, o).Value = "Objekt " & o
        
        zz = 5 'für die Ausgabe der Modifikationsintervalle 
        
        'Aufsetzen der Schleife für die Modifikationen während der Nutzungsdauer 
        For nd = 0 To 1 Step 0.3 'Step definiert die Schrittweite der Schleife ist also das Intervall 
            
            'Wenn die das Modifikationsintervall größer 0 ist dann 
            If nd > 0 Then
                
                'gebe die Nutzungsdauer in Tabelle1 ab Zeile 5 in Spalte o aus (Spalte ergibt sich aus der Anzahl der Objekte) 
                Tabelle1.Cells(zz, o).Value = o + nd
                
                'Erhöhe den Wert für die Zielzeile um 1 
                zz = zz + 1
            
            'Ende der Prüfung 
            End If
        
        'Nächstes Intervall 
        Next nd
    
    '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

[IchBinIch]

Und ganz dynamisch

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	2,5	3,5	4,5
6	2	3	4	5
7	2,5	3,5	4,5	5,5
8	3	4	5	6

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

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

'Wenn der Wert in "A2" geändert wird 
If Target.Address = "$A$2" Then 'in Deinem Fall ist Target.Address = "$B$17" 

    'Aufsetzen der Scheife für die Anzahl der Objekte (Anzahl der Durchläufe = Wert in "A2") 
    For o = 1 To Tabelle1.Cells(2, 1).Value
        
        'Das Objekt wird in Zeile 4 Spalte (o) (für den ersten Duchlauf der Schleife ist o = 1) ausgegeben 
        Tabelle1.Cells(4, o).Value = "Objekt " & o
        
        zz = 5 'für die Ausgabe der Modifikationsintervalle 
        
        'Aufsetzen der Schleife für die Modifikationen während der Nutzungsdauer 
        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 die das Modifikationsintervall größer 0 ist dann 
            If nd > 0 Then
                
                'gebe die Nutzungsdauer in Tabelle1 ab Zeile 5 in Spalte o aus (Spalte ergibt sich aus der Anzahl der Objekte) 
                Tabelle1.Cells(zz, o).Value = o + nd
                
                'Erhöhe den Wert für die Zielzeile um 1 
                zz = zz + 1
            
            'Ende der Prüfung 
            End If
        
        'Nächstes Intervall 
        Next nd
    
    '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

[LeibnizCasio]

Vielen Dank, 
ich Kennzeichne mal die Sachen die ich nicht verstehe und passe es an mein Dokument an (gekennzeichnet durch )

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

'Wenn der Wert in "A2" geändert wird  Alles klar verstehe ich
If Target.Address = "$B$17" Then 'in Deinem Fall ist Target.Address = "$B$17"  

    'Aufsetzen der Scheife für die Anzahl der Objekte (Anzahl der Durchläufe = Wert in "A2")
    For o = 1 To Tabelle1.Cells(17, 2).Value   Modifikation zu Wert 17,2
       
        'Das Objekt wird in Zeile 100 Spalte (o) (für den ersten Duchlauf der Schleife ist o = 1) ausgegeben
        Tabelle1.Cells(100, o).Value = "Objekt " & o
       
        zz = 5 'für die Ausgabe der Modifikationsintervalle  Das Verstehe ich nicht
       
        'Aufsetzen der Schleife für die Modifikationen während der Nutzungsdauer
        For nd = 0 To 1 Step 0.3 'Step definiert die Schrittweite der Schleife ist also das Intervall Das Modifikationsintervall möchte ich variabel gestalten
           
            'Wenn die das Modifikationsintervall größer 0 ist dann
            If nd > 0 Then  Wo wird geprüft ob ein neues Objekt gekauft werden musste?
               
                'gebe die Nutzungsdauer in Tabelle1 ab Zeile 5 in Spalte o aus (Spalte ergibt sich aus der Anzahl der Objekte)
                Tabelle1.Cells(zz, o).Value = o + nd
               
                'Erhöhe den Wert für die Zielzeile um 1
                zz = zz + 1
           
            'Ende der Prüfung
            End If
       
        'Nächstes Intervall
        Next nd
   
    'Nächtes Objekt
    Next o

End If
End Sub

[LeibnizCasio]

Ich sehe gerade deine zweite Antwort.

Wenn in dem Jahr ein neues Objekt gekauft werden muss, ist keine Modifikation notwendig.
Auf dein Beispiel bezogen, sollen die Zeitpunkte der Modifikation wie folgt ausgegeben werden:


1,5          3,5          4,5
2             4             5
2,5           4,5          5,5



Vielen Dank für deine geduldige Hilfe.

[IchBinIch]

Zunächst mal hierzu:

zz = 5 'für die Ausgabe der Modifikationsintervalle  Das Verstehe ich nicht

Ich gebe die erste Zeile in der die Intervalle ausgegeben werden statisch vor.
zz = Zielzeile
Wenn ich Dich richtig verstehe muss das bei Dir 101 sein.

If nd > 0 Then  Wo wird geprüft ob ein neues Objekt gekauft werden musste?

Das ergibt sich aus der Nutzungsdauer. Also hieraus

Code:

For nd = 0 To Tabelle1.Cells(2, 3).Value

siehe mein letztes Posting.

Und schließlich

Tabelle1

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

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

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

'Wenn der Wert in "A2" geändert wird 
If Target.Address = "$A$2" Then 'in Deinem Fall ist Target.Address = "$B$17" 

    'Aufsetzen der Scheife für die Anzahl der Objekte (Anzahl der Durchläufe = Wert in "A2") 
    For o = 1 To Tabelle1.Cells(2, 1).Value
        
        'Das Objekt wird in Zeile 4 Spalte (o) (für den ersten Duchlauf der Schleife ist o = 1) ausgegeben 
        Tabelle1.Cells(4, o).Value = "Objekt " & o
        
        zz = 5 'für die Ausgabe der Modifikationsintervalle 
        
        'Aufsetzen der Schleife für die Modifikationen während der Nutzungsdauer 
        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 die das Modifikationsintervall größer 0 und kleiner oder gleich Nutzungsdauer ist dann 
            If nd > 0 And nd <= o Then
                
                'gebe die Nutzungsdauer in Tabelle1 ab Zeile 5 in Spalte o aus (Spalte ergibt sich aus der Anzahl der Objekte) 
                Tabelle1.Cells(zz, o).Value = o + nd
                
                'Erhöhe den Wert für die Zielzeile um 1 
                zz = zz + 1
            
            'Ende der Prüfung 
            End If
        
        'Nächstes Intervall 
        Next nd
    
    '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

Gruß
Ich

[LeibnizCasio]

Tut mir leid das ich so schwer von Begriff bin.

Aber deine Tabelle stimmt Meineserachtens nicht.

Zu den Zeitpunkten 3, 5 ,7  wird keine Modifikation vorgenommen.

Außerdem lassen sich bei dir ja Werte doppelt finden, das geht ja auch nicht.


Danke.

[LeibnizCasio]

Ich verstehe nicht. Das muss doch einfach mit zwei ineinanderlaufenden Schleifen abgehandelt werden.

In c kriege ich das hin aber in VBA einfach nicht....


Ich versuche es einfach nochmal in Worten zu beschreiben.

Der Nutzer gibt folgende Parameter ein:

Lebensdauer: LD
Modifikationsintervall: MI
Objekte de er nacheinander Nutzen will: ON

Erste for Schleife: Soll angeben bei welchem Objekt wir uns befinden. Nutzung beginnt bei Jahr 1. Objekte eins beginnt bei Zählvariable 0.

Solange wie noch Objekte folgen wird die Schleife hoch gezählt.

Innere Schleife: Prüft wie viele Modifikationsvorgänge wahrgenommen werden müssen bis ein neues Objekt gekauft wird

Wenn der nächste Modifikationsvorang gleich oder außerhalb der Nutzungsdauer liegt , wird diese for Schleife abgebrochen, die erste Schleife hochgezählt und dann diese wieder begonnen.

Die Zahlen sollen dann in der Form ausgeben werden

Erster Kauf ->n-ter Kaufe 
Modifikationszeitpunkte zu dem jeweiligen Kauf gehörend

[IchBinIch]

Ich glaube ich hab's  

Hatte gerade auch einen Knoten im Kopf.
Trifft das Deine Vorstellungen?

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	0,5	2,5	4,5	6,5
6	1	3	5	7
7	1,5	3,5	5,5	7,5

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8