|
Hallo,
ich verstehe überhaupt nicht was du erreichen willst (vielleicht stehe ich auch gerade auf dem Schlauch).
Würde man deinen Code richtig einrücken, würde er so aussehen (vielleicht hilft es dir zu erkennen, wo dein Logikfehler ist):
Private Sub CommandButton1_Click()
Dim ze As Integer
With Worksheets("Indoor")
For ze = 17 To 27 Step 3
If .Cells(ze, 6) = "" Then
.Cells(ze, 6) = TextBox6.Value
If .Cells(ze + 1, 5) = "" Then
.Cells(ze + 1, 5) = TextBox7.Value
If .Cells(ze, 6) = "" Then
.Cells(ze, 6) = TextBox9.Value
If .Cells(ze + 1, 5) = "" Then
.Cells(ze + 1, 5) = TextBox10.Value
If .Cells(ze, 6) = "" Then
.Cells(ze, 6) = TextBox12.Value
If .Cells(ze + 1, 5) = "" Then
.Cells(ze + 1, 5) = TextBox13.Value
Exit For
End If
End If
End If
End If
End If
End If
Next ze
End With
Unload Me
End Sub
Grüße
|