Hallo,

das mit der Eingabe funktioniert...aber er zieht mir die Infos nicht in die Email...

Hier mein Code:

Sub Senden()

 Dim zeile As Integer

zeile = InputBox("GEben Sie ihre Spalte an")



On Error Resume Next
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
strhtml = Range("A2").Value & " <br><br>" & "<br>"
strhtml = strhtml & "Info: &nbsp;" & "<br>" & Range("M7").Value & " <br>"
strhtml = strhtml & "Artikelnummer: &nbsp;" & Range("A7").Value & " <br>" & "<br>"
strhtml = strhtml & "Bezeichnung: &nbsp;" & Range("B7").Value & " <br>" & "<br>"
strhtml = strhtml & "Seriennummer: &nbsp;" & Range("C7").Value & " <br>" & "<br>"
strhtml = strhtml & "Besondere Merkmale: &nbsp;" & Range("D7").Value & " <br>" & "<br>"
strhtml = strhtml & "Geliefert an: &nbsp;" & Range("E7").Value & " <br>" & "<br>"
strhtml = strhtml & "Geliefert am: &nbsp;" & Range("F7").Value & " <br>" & "<br>"
strhtml = strhtml & "Aufgestellt bei: &nbsp;" & Range("G7").Value & " <br>" & "<br>"
strhtml = strhtml & "Aufgestellt am: &nbsp;" & Range("H7").Value & " <br>" & "<br>"
strhtml = strhtml & "Link zu Protokoll/Info: &nbsp;" & Range("I7").Value & " <br>" & "<br>"
strhtml = strhtml & "Angelegt von: &nbsp;" & Range("J7").Value & " <br>" & "<br>"
strhtml = strhtml & "Bemerkung: &nbsp;" & Range("K7").Value & " <br>" & "<br>"
strhtml = strhtml & ""
strhtml = strhtml & ""
.to = "" 'Empfänger
.Subject = "Seriennummerinformation"
' .cc = "kopie@an.de" 'Optional Kopie an
' .bcc = "bliendkopie@an.de" 'Optional Bliendkopie
.htmlbody = strhtml
.display 'Zeigt die Mail an
' .send 'Optional Mail sofort senden.
End With
Set olApp = Nothing
End Sub