Ich habs jetzt selber rausgefunden,
ist ja ziemlich easy.
einfach rechtsclick auf den Button und code anzeigen lassen klicken und schon wird die Sub funktion angelegt. musste dann nur noch meinen code an die richtige stelle kopieren!
Private Sub Start_Click()
Dim Abschnitt, S, Zeile, Zeile2, Spalte2, Zelle1, Zelle2 As Integer
CommandButton1_Click
Abschnitt = 0
S = 1
Do
Zeile = S + Abschnitt
Zeile2 = S + 1 + Abschnitt
If Application.WorksheetFunction.CountA(Cells(Zeile, 16)) = 0 Or Application.WorksheetFunction.CountA(Cells(Zeile2, 16)) = 0 Then
'Anweisungen
Cells(Zeile, 17) = ""
Else
'Anweisungen
Cells(Zeile, 17) = Cells(Zeile, 16) + Cells(Zeile2, 16)
End If
Abschnitt = Abschnitt + 12
S = S + 1
Loop Until S > 3
End Sub
|