ich verwende folgendes Script um daten aus Excel in eine .doc Datei zu exportieren.
Sub Markierter_Bereich_in_Textdatei2()
Dim strFileName As String
Dim objWord As Object, objDocument As Object
Application.ScreenUpdating = False
Application.EnableEvents = False
Set objWord = CreateObject(Class:="Word.Application")
Set objDocument = objWord.Documents.Add
strFileName = Selection.Offset(0, 4).Value
Selection.Offset(0, 5).Copy
objWord.Selection.Paste
objDocument.SaveAs2 "C:\Google Drive\Export\" & _
strFileName & ".doc", 0
objWord.Quit
Application.EnableEvents = True
End Sub
Nach export bleibt die Zelle aktiv aus welcher der wert exportiert wurde.
Nun möchte ich das nicht diese Zelle anch export markiert ist sondern eine Zelle 7 Zellen links daneben.
Ich habe es mit folgen Makro und per "call" versucht, leider hat es nicht funktioniert.
Sub linksMarkieren()
Range(ActiveCell.Offset(0, -7), ActiveCell.Offset(0, -7)).Select
End Sub
Kann mir jemand zeigen wie diese Funktion in das obere script integriert wird?
Vielen Dank + einen schönen Feiertag.