Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

SheetNamen nicht komplett auslesen in Überschrift

SheetNamen nicht komplett auslesen in Überschrift
28.05.2018 10:55:41
Franz
Hallo zusammen,
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ß

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
doppelt..
28.05.2018 10:57:02
UweD
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige