VB sætter en, streng sammen når men trykker på en celle

Du kunne for eksempel bruge denne makro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D11")) Is Nothing Then
Target.Offset(0, 1).Formula = "=text(C8,""0,0"") & "" Time X ""&text(D8,""0,00"") & "" = ""&text(E8,""0,00"")"
Target.Offset(0, 1) = Target.Offset(0, 1).Value
End If
End Sub

Men hvis du nu sørgede for altid at have samme afstand mellem den grønne celle og cellerne du henter data fra kan du bruge noget i stil med dette, som virker generalt, så længe anden linje rettes til

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D11, D17, D27, D35")) Is Nothing Then
x = Target.Offset(-2, -1)
y = Target.Offset(-2, 0)
Z = Target.Offset(-2, 1)
Target.Offset(0, 1) = WorksheetFunction.Text(x, ".0") & " Time X " & WorksheetFunction.Text(y, ".00") & " = " & WorksheetFunction.Text(Z, ".00")
Target.Offset(0, 1) = WorksheetFunction.Substitute(Target.Offset(0, 1), ".", ",")
End If
End Sub

#jens48 se med her:
https://www.computerworld.dk/eksperten/spm/1040397

#2. Enig, det bliver rodet ,når der oprettes 2 spørgsmål om samme emne