Hallo,
eine 'strategische' Frage von einem unerfahrenen VBA-Programmierer:
Ich möchte ein Makro schreiben, welches von einer markierten Tabelle deren wesentliche Eigenschaften kopiert und diese anschließend auf eine andere Tabelle überträgt - ähnlich wie der Format-Kopierpinsel für Zeichenformatierungen.
Ich prüfe, ob eine Tabelle markiert ist und kopiere die bedeutsamen Eigenschaften in ein Array. Was mir jetzt fehlt, ist eine Idee, wie ich den Benutzer dazu bringen kann, anschließend die Zieltabelle zu markieren. Hat jemand eine Idee?
If Selection.Tables(1).Columns.count <= 0 Then
Result = MsgBox("Fehler: Keine Tabelle als Kopierquelle!",
vbOKOnly, "Fehler: Keine Tabelle als Kopierquelle!", , "")
Else
With Selection.Tables(1)
TableProps(1) = .AllowPageBreaks
TableProps(2) = .Borders
:
: |