ich bitte um Hilfe. Folgendes versuche ich, komme aber nicht auf die Lösung. Ich vermute, dass es selbsterklärend ist. Ich bedanke mir sehr für die Hilfe. Gruß Klaus
Sub Varitogether()
Dim S_1 As Variant, S_2 As Variant, S_3 As Variant, S_4 As Variant
S_1 = Null
S_2 = Null
S_3 = 5
S_4 = Null
MsgBox Nz(S_1) '> liefert Null
MsgBox Nz(S_3) '> liefert 5
For i = 1 To 4
MsgBox Nz("S_" & i) '> liefert "S_1" bis "S_4" aber nicht > Null, Null, 5, Null
Next
End Sub