und auf dem selben Tabellenblatt einfügen.
Dabei werden Word von Excel Text-Teile übergeben.
Manchmal funktioniert es und machmal kommt der Fehler 462
-Der Remote-Server existiert nicht oder ist nicht verfügbar.-
Sub BeschreibungHinzufügen()
' On Error Resume Next
ActiveCell.Select
ActiveSheet.Unprotect
'Formatiert das Icon und setzt es nach rechtsunten in die aktive Zelle
ActiveSheet.Shapes("Object 77").Copy
ActiveSheet.Paste
a = ActiveSheet.Shapes.Count
With ActiveSheet.Shapes(a)
.IncrementLeft 105
.IncrementTop 53
End With
'Fügt den Prod.-Titel, LV-Nr., und Pos.-Nr. in Word ein.
Prod = Sheets("Leistungsverzeichnis").Range("O8").Text
LVNR = Sheets("Leistungsverzeichnis").Range("O11").Text
Posi = Sheets("Leistungsverzeichnis").Cells(ActiveCell.Row, 3).Text
Gesamt = " " & Prod & " / LV-Nr.: " & LVNR & " / Pos.: " & Posi
Selection.Activate
Word.ActiveDocument.Range(98, 98).Text = Gesamt -An dieser Stelle bleibt es hängen-
Word.Selection.GoTo What:=wdGoToLine, Which:=wdGoToRelative, Count:=5
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
ActiveCell.Select
End Sub
Was mache ich falsch???
Danke, matzemalzbier.