Re: VBA Worksheets
28.01.2003 12:09:05
Wolfgang
Hallo Steffen,
hier der Code:
Dieser funktioniert wie gesagt allgemein für die Arbeitsmappe. An den anschließenden beiden Subs siehst Du die Differenzierung in der Sprungadresse die ich gerne hätte.
Danke und Gruß WolfgangSub MsgBoxMitarbeiter()
'
' Erfassungshinweise Makro
' Makro am 26.01.2003 von User aufgezeichnet
If MsgBox("1. Hinweise zur Erfassung der einzelnen Spalten erhalten Sie durch SCHNELLES doppelklicken im Kopfbereich der Tabelle mit der rechten Maustaste" + Chr(13) + Chr(13) + "2. Um die einzelnen Spalten zu selektieren klicken Sie im Kopfbereich der Tabelle mit der linken Maustaste" + Chr(13) + Chr(13) + "3. Für weitere Hilfethemen bestätigen Sie mit 'Ja'", 4, "Hinweise zur Erfassung") = vbYes Then AufrufWordMitarbeiterdatei
End Sub
Sub AufrufWordMitarbeiterdatei()
Dim wordObj As Word.Application
Set wordObj = CreateObject("Word.Application")
wordObj.Visible = True
wordObj.Documents.Open "D:\Dokumente und Einstellungen\Administrator\Eigene Dateien\TopplanHilfe"
wordObj.Selection.Goto What:=wdGoToBookmark, Name:=("Kundendatei")
End Sub
____________________________________________________________
Sub MsgBoxGrundseminar()
'
' Erfassungshinweise Makro
' Makro am 26.01.2003 von User aufgezeichnet
If MsgBox("1. Hinweise zur Erfassung der einzelnen Spalten erhalten Sie durch SCHNELLES doppelklicken im Kopfbereich der Tabelle mit der rechten Maustaste" + Chr(13) + Chr(13) + "2. Um die einzelnen Spalten zu selektieren klicken Sie im Kopfbereich der Tabelle mit der linken Maustaste" + Chr(13) + Chr(13) + "3. Für weitere Hilfethemen bestätigen Sie mit 'Ja'", 4, "Hinweise zur Erfassung") = vbYes Then AufrufWordGrundseminar
End Sub
Sub AufrufWordGrundseminar()
Dim wordObj As Word.Application
Set wordObj = CreateObject("Word.Application")
wordObj.Visible = True
wordObj.Documents.Open "D:\Dokumente und Einstellungen\Administrator\Eigene Dateien\TopplanHilfe"
wordObj.Selection.Goto What:=wdGoToBookmark, Name:=("Grundseminardatei")
End Sub