Code verkürzen möglich?
12.03.2004 16:14:04
Franz W.
ich weiß nicht ob ich grad auf dem Schlauch steh und das selbst können müsste oder nicht :-))), also wag ich mal zu fragen: Lässt sich nachfolgender code verkürzen/zusammenfassen?
Sub TeilCode
If Cells(t, m + 2) = "" Then
With Cells(t, m + 2)
hier_kommt_immer_derselbe_Code_rein
End With
End If
If Cells(t, m + 3) = "" Then
With Cells(t, m + 3)
hier_kommt_immer_derselbe_Code_rein
End With
End If
If Cells(t, m + 4) = "" Then
With Cells(t, m + 4)
hier_kommt_immer_derselbe_Code_rein
End With
End If
If Cells(t, m + 10) = "" Then
With Cells(t, m + 10)
hier_kommt_immer_derselbe_Code_rein
End With
End If
End Sub
Vielen Dank schon mal für eure Hilfe und Grüße
Franz