Gibt es eine Möglichkeit Variable zu verbinden
Sub UEAuflisten()
Dim i As Integer
Dim T As Integer
Dim Zeit As Date
Dim x as Integer
X=1
T = ActiveSheet.Index
For i = 6 To Sheets(T).Cells(Rows.Count, 4).End(xlUp).Row - 1
If Sheets(T).Cells(i, 9) <> "" Then
Zeit & x = Zeit & x + Sheets(T).Cells(i, 10) - Sheets(T).Cells(i, 9)
x=x+1
End If
Next i
MsgBox Zeit1 & vbCr & _
Zeit2 & vbCr & _
Zeit3 & vbCr & _
Zeit4 & vbCr & _
Zeit10
End Sub
im voraus vielen Dank
mfg Ulf