saveas =filename aus drei zelleninhalten zusammen

mit range("A1" & "A2" & "A3") speichert ermir das ganze in drei files ab.

und mit diesem system...
Sub MultipleRange()
Dim r1, r2, myMultipleRange As Range
Set r1 = Sheets("Sheet1").Range("A1:B2")
Set r2 = Sheets("Sheet1").Range("C3:D4")
Set myMultipleRange = Union(r1, r2)
myMultipleRange.Font.Bold = True
End Sub
gehts auch noch nicht weil ich nicht weißwas dann als object stehn muß.

mit bestem dank schonmal...

henning