Hallo zusammen
irgendwie kann ich diese 2 schleifen nicht zusammen kombinieren, kann mal bitte jemand schauen:
Private Sub CommandButton1_Click()
Dim ze As Integer
Dim ze2 As Integer
With Worksheets("Outdoor")
For ze = 15 To 21 Step 3
For ze2 = 14 To 20 Step 3
If .Cells(ze, 9) = "" Then
.Cells(ze, 9) = TextBox6.Value
Exit For
End If
Next ze
If .Cells(ze2, 8) = "" Then
.Cells(ze2, 8) = TextBox7.Value
Exit For
End If
Next ze2
End With
Unload Me
End Sub
Danke im vorraus.
Liebe Grüße
|