Sorry kleiner Nachtrag:
Nach Dim mailmeURL1 musst Du das Blatt selektieren wo der Code hinläuft, also:
Sub SendEmail()
Dim mailmeURL1
Sheets("TB1").Select
Range("C1").Select
ActiveCell.FormulaR1C1 = "mailto:"
Range("C2").Select
ActiveCell.FormulaR1C1 = "?Cc="
Range("C3").Select
ActiveCell.FormulaR1C1 = "?subject="
Range("D1").Select
ActiveCell.FormulaR1C1 = "?Body="
Range("G1").Select
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(RC[-4],RC[-5],R[1]C[-4],R[1]C[-5],R[2]C[-4],R[2]C[-5],RC[-3],RC[-6])"
Range("G1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
mailmeURL1 = Worksheets("TB1").Range("G1").Value
ActiveWorkbook.FollowHyperlink Address:=mailmeURL1, NewWindow:=True
End Sub
|