VBA in Word

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub tabellenzelle() With ActiveDocument.Tables(1) Dim Ymax As Long Ymax = ActiveDocumentFunction.Max(Range.Columns(4) & Rows.Count.End(x1Up).Row) Range.Columns(4)(Ymax).Copy_Destination = ActiveDocument.Tables(1).Range.Columns(4).Cells(3) End With End Sub

With ActiveDocument.Tables(1) Dim Ymax As Long Ymax = ActiveDocumentFunction.Max(Range.Columns(4) & Rows.Count.End(x1Up).Row) Range.Columns(4)(Ymax).Copy_Destination = ActiveDocument.Tables(1).Range.Columns(4).Cells(3) End With End Sub

Hallo Jesus,
hier die Beispielmappe:
https://www.herber.de/bbs/user/73600.doc
Sie hat nachfolgende Codes.
Gruß
Reinhard
In ThisDocument:


Option Explicit
Private Sub Document_Open()
Call TabellenUeberwachungEin
End Sub

In Modul1:


Option Explicit
Dim X As New clsTabelle
Sub VersionErmitteln()
Dim Zei As Long
With ActiveDocument.Tables(1)
For Zei = 2 To .Rows.Count
If Replace(Replace(.Cell(Zei, 4).Range, Chr(13), ""), Chr(7), "") = "" Then Exit For
Next Zei
If Zei  2 Then
ActiveDocument.Tables(2).Cell(1, 1).Range = Replace(Replace(.Cell(Zei - 1, 4).Range.Text,  _
Chr(13), ""), Chr(7), "")
Else
ActiveDocument.Tables(2).Cell(1, 1).Range = ""
End If
End With
End Sub
Sub TabellenUeberwachungEin()
Set X.oApp = Word.Application
End Sub

In Klassenmodul clsTabelle:


Option Explicit
Public WithEvents oApp As Word.Application
Private Sub oApp_WindowSelectionChange(ByVal Sel As Selection)
If Sel.Information(wdWithInTable) = True Then
'MsgBox Sel.Information(wdStartOfRangeColumnNumber)
'MsgBox "In Tabelle geklickt"
Call VersionErmitteln
End If
End Sub

Hallo Jesus,
freut mich wenn es dir gefällt.
::::ich bin nicht wirklich gut in VBA, noch kann ich den Code nicht zu 100% entschlüsseln, aber ich werde
::::dahinter kommen.
Vielleicht hilft dir das dabei, ist für excel, aber das Prinzip ist in Word das Gleiche.
http://www.online-excel.de/excel/singsel_vba.php?f=50
Habe die Datei ausprobiert. Ich weiss nicht was ich sagen soll. Also du hast mir das genau so hingezaubert das es passt. Bin sehr froh darüber.
Mangels meiner Fähigkeiten oder denen von Word, aktualisiert sich die untere tabelle erst dann wenn du irgendwo in eine Tabelle klickst.
Bislang fand ich noch keinen Dreh damit sich das in der unteren Tabelle aktualisiert wenn ein Wert in Spalte 4 der oberen tabelle geändert wird.
What arals, wenns klappt :-)
Ich werde versuchen den Code für mein Verständniss zu entschlüsseln, falls ich nicht klar komme gebe ich bescheid.
Kannste gerne machen, ich werd dir da höchastwahrscheinlich nicht antworten können, bei Klassenmodulen befinde ich mich Wissensmäßig auf sehr dünnem Eis, aber es gibt ja andere hier ... :-)
Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA in Word

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread