Anzeige
Archiv - Navigation
1476to1480
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

Excel-VBA nach Word-VBA

Excel-VBA nach Word-VBA
04.03.2016 13:38:48
Sebastel
Hallo allerseits,
wie kann ich folgendes kleines Excel-Makro nach Word 2010-VBA übersetzen? Statt der Zelladresse soll dort eine Textmarke "Anzahl" /(1) angesprochen werden.
Option Explicit
Private Sub Hochzaehlen()
Dim Wert As Integer
Wert = Range("A1")
Wert = (Wert + 1)
MsgBox Wert
Range("A1") = Wert
End Sub

Lieben Dank für Eure Hilfe!
Sebastel

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel-VBA nach Word-VBA
04.03.2016 16:42:55
JoWe
Hallo Sebastel,
meinst Du es so:

** Word-VBA **
Option Explicit
Sub vbaTM()
Dim strTBN As String, berTB As Range
strTBN = "Anzahl" 'Name der Textmarke
With ActiveDocument
If .Bookmarks.Exists(strTBN) Then
Set berTB = .Bookmarks(strTBN).Range
On Error Resume Next
berTB.Text = berTB.Text * 1 + 1
.Bookmarks.Add Name:=strTBN, Range:=berTB
Set berTB = Nothing
End If
End With
End Sub
Gruß
Jochen

Excel VBA - Zelle, nach Word VBA - Bookmark...
04.03.2016 16:45:42
Case
Hallo, :-)
in Word würde das Makro etwa so aussehen:
Option Explicit
Private Sub CommandButton1_Click()
Dim rngRange As Range
Dim lngTMP As Long
Const strMark As String = "Anzahl"
With ActiveDocument
If .Bookmarks.Exists(strMark) Then
Set rngRange = .Bookmarks(strMark).Range
lngTMP = CLng(ActiveDocument.Bookmarks(strMark).Range.text)
lngTMP = lngTMP + 1
rngRange.text = lngTMP
.Bookmarks.Add Name:=strMark, Range:=rngRange
End If
End With
End Sub
Servus
Case

Anzeige
AW: Excel-VBA nach Word-VBA
04.03.2016 19:10:21
snb

Sub M_snb()
On Error Resume Next
With ActiveDocument.Variables("snb")
x0 = .Value
If Err.Number  0 Then .Value = 0
Err.Clear
.Value = .Value + 1
MsgBox .Value
End With
End Sub

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige