kann mir jemand sagen was ich im folgenden Code ändern muss, das die Zeitschritte von 1 Minute auf einen variablen Wert, einen Parameter geändert wird, den der Benutzer eingeben kann?
Es geht darum das bei einem Klick auf ein CommandButton, das Makro gestartet wird und bis jetzt Von einer zahl die in einer bestimmten zelle steht in den darunterfolgenden Zellen in 1minuten schritten aufgezählt wird bis diese erreicht ist.
Bsp.:
U377 = 9 ==> diese zahl ist entscheidend
U378 = 1
U379 = 2... usw bis 9
Nun würde ich gerne per Abfrage bei klicken des Buttons einen wert eingeben zb. 0.5 welcher dann stattdessen benutzt wird, also 0.5; 1;0.5... usw.
Sub Diagramm_erzeugen_Te()
Dim I As Long
Const myRow = 377
Const myCol = 21
Const startWert = 0
With Cells(myRow, myCol)
If IsNumeric(.Value) Then
If .Value > 0 And CLng(.Value) = .Value Then
With Range(Cells(myRow + 1, myCol), _
Cells(Application.Min(Rows.Count, myRow + _
Cells(myRow, myCol).Value), myCol))
Range(Cells(378, 21), Cells(Rows.Count, 21).End(xlUp)).ClearContents
.Formula = "=Row()-1-" & myRow & "+" & startWert
.Value = .Value
End With
End If
End If
End With
End Sub
mit freundlichen grüßenDaniel