selcet case anstatt for/next
hotzi
wie kann ich die folg. for/next-schleife durch eine select/case anweisung ersetzen. wichtig ist das in der spalte 10 und 12 die zahl 0 und nicht "-" steht.
freue mich auf eine antwort klaus
Sub test
Dim i as Integer, start as Integer
start=12
For i = 2 To 14
With Cells(start, i)
If i = 10 Or i = 12 Then
.Value = 0
.NumberFormat = "#,##0.00 $"
' .Style = "currency"
Else
.Value = "-"
End If
End With
Next i
End Sub