SheetNamen nicht komplett auslesen in Überschrift
28.05.2018 10:55:35
Franz
ich habe folgenden Code. Problem ist nun, dass ich nun doch nicht den gesamten Sheetnamen als Überschrift in Word haben möchte, sondern die ersten drei Zeichen weglassen möchte. Sheetnamen sind bspsweise: "12_Test Alpha", "13_Test Beta", "LO_Frieda", "HI_Mirko"
Sub CopyRangetoWord()
Dim objword As Object
Dim ws As Worksheet
Set ws = ActiveWorkbook.Sheets("Stats")
Set objword = CreateObject("Word.Application")
objword.Visible = True
objword.Documents.Open "C:\Users\Me\Desktop\MacroTest.docx"
With objword.ActiveDocument
.Bookmarks("grid1test").Range.Text = sheet.Name
End With
End Sub
Wie bekomme ich es nun jetzt hin, dass ich (Pseudocode)
.Bookmarks("grid1test").Range.Text = sheet.Name - "12_"
bekomme?
Gruß
Anzeige