Private Sub C346_Button_Orthogonal_Click()
Static i As Integer
For i = 1 to 11 in
Worksheets("C346_Exp.Data (Orthogonal_Pos)").Cells(4 + i, 3).Value = Worksheets(" _
C346_Scaled normal vector").Range("G11").Value
Worksheets("C346_Exp.Data (Orthogonal_Pos)").Cells(4 + i, 4).Value = Worksheets(" _
C346_Scaled normal vector").Range("G12").Value
Worksheets("C346_Exp.Data (Orthogonal_Pos)").Cells(4 + i, 5).Value = Worksheets(" _
C346_Scaled normal vector").Range("G13").Value
Worksheets("C346_Exp.Data (Orthogonal_Pos)").Cells(4 + i, 6).Value = Worksheets(" _
C346_Scaled normal vector").Range("H11").Value
Worksheets("C346_Exp.Data (Orthogonal_Pos)").Cells(4 + i, 7).Value = Worksheets(" _
C346_Scaled normal vector").Range("I11").Value
i = i + 1
If i = 11 Then
Set balNew = Assistant.NewBalloon
balNew.Heading = "End of test record!"
balNew.Show
End If
End Sub
Ich möchte die Bedingung einbauen, dass das Programm beim Durchlaufen erkennt, ob die Zelle leer ist und dann Werte reinschreiben. Und nach 11 Durchläufen, soll dann der Abbruch kommen, sofern alle Zellen gefüllt sind.
Tut mir leid, wenn ich das etwas umstänldich erkläre, aber stehe etwas unter Zeitdruck. Hoffe aber es geht.
Gruß
diggler
Sub test()
Dim myRange As Range
Dim myCell As Object
Set myRange = ActiveSheet.Range("a1:d10")
For Each myCell In myRange
If myCell.Value = "" Then myCell.Value = 2
Next myCell
End Sub
Helmut