Clever-Excel-Forum

Hallo,

wie kann ich den Word-Makrorecorder dazu bewegen, Mausaktionen (bspw. Ändern einer Spaltenbreite in einer Tabelle) aufzuzeichnen?

Nach dem Starten der Aufzeichnung wird das Kassettensymbol am Mauszeiger angezeigt, aber es sind keine Mausaktionen möglich.

In Excel funktioniert das ganze ja recht gut.

VG!

Hallöchen,

da sehe ich was anderes ...

Code:
Option Explicit

Sub Makro1()

'

' Makro1 Makro

'

'

  ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _

    3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _

    wdAutoFitFixed

  With Selection.Tables(1)

    If .Style <> "Tabellenraster" Then

      .Style = "Tabellenraster"

    End If

    .ApplyStyleHeadingRows = True

    .ApplyStyleLastRow = False

    .ApplyStyleFirstColumn = True

    .ApplyStyleLastColumn = False

    .ApplyStyleRowBands = True

    .ApplyStyleColumnBands = False

  End With

  Selection.Tables(1).Columns(1).SetWidth ColumnWidth:=151, RulerStyle:= _

    wdAdjustNone

 End Sub

Hallo André,

danke für die Rückmeldung. Ich taste mich langsam heran. Smile

Hast du evtl. eine Übersicht über die Befehle? Auf der MS-Seite (https://docs.microsoft.com/de-de/office/...dwidthtype) wird es eher unübersichtlich gelistet ...

VG!

Hallöchen,

eine Übersicht habe ich nicht. Du kannst aber neben dem Internet sicher auch in der Überwachung einiges herausfinden.
Der Code ist aufgezeichnet, falls das so nicht rüber gekommen ist.

Wanderfalke

schauan

Wanderfalke

schauan