Word weitere Spalte in Tabelle einfügen, oder Inhalte verschieben

[Spoony]

Also ich habe folgendes Problem:

Ich habe in Word eine Tabelle erstellt: 5 x 5

In fast jedem Feld steht etwas, nur im letzten nicht.

Nun möchte ich dass der Inhalt aller Felder eins weiter rutscht, so dass das erste Feld frei wird und das letzte belegt wird.

Von mir aus kann man auch ein weiteres Feld einfügen, so dass das dann 5 x 6 wird, ist mir völlig wurscht. Ich möchte einfach ab einer gewissen position alles eins weiter verschieben können.

Hoffe ich konnte mich verständlich genug ausdrücken. Hat irgendjemand eine Idee?

(Das ganze MUSS in Word lösbar sein -> wenn jemand trotzallem nur eine Lösung in einem anderen Programm kennt, darf er mir das trotzdem gerne mitteilen )

Edit: Es gibt ja die Funktion "Zellen einfügen" -> "Zellen nach rechts verschieben" ... das macht ja schon fast das was ich will, dummerweise verschiebt sich das ganze nur in einer einzigen Zeile, ich möchte aber, dass diese nach unten rutscht. Vielleicht weiß ja auch jemand wie man aus 6 Zellen, 5 Zellen macht und die 6te nach unten rutscht )
_________________
The Cake Is A Lie

[Rasmus]

Spalte markieren, rechtclick, Spalte einfügen
_________________
Brother Sword of Enlightenment of the Unitarian Jihad
If you ask the wrong questions you get answers like '42' or 'God'.
"Glaubst Du noch oder hüpfst Du schon?"
Sylvia Browne - Wahrsager oder Scharlatan?

[Kramer]

[Spoony]

[Spoony]

[esme]

[Spoony]

Also das mit mehreren makieren und ausschneiden und weiter unten einfügen, erleichtert mir schonmal ein wenig die Arbeit, zumind. ist das schneller als alles einzeln mit der Maus zu verschieben.

Vielleicht weiß ja noch jemand eine Lösung die nur 1 - 2 Klicks dauert ^^
_________________
The Cake Is A Lie

[Spoony]

[Kramer]

[Spoony]

[Kramer]

Jetzt kapiere ich erst, was Du meinst. Keine Ahnung, wie das geht und ob das geht.
_________________
Dieser Beitrag verwendet Cookies, um Dein Surferlebnis zu verbessern.

[Rasmus]

[Nani]

[Heike J]

[Rasmus]

Welchen Zweck soll das ganze denn eigentlich haben? Normalerweise kann mit tabelarischen Daten so nicht wirklich umgehen, oder?
_________________
Brother Sword of Enlightenment of the Unitarian Jihad
If you ask the wrong questions you get answers like '42' or 'God'.
"Glaubst Du noch oder hüpfst Du schon?"
Sylvia Browne - Wahrsager oder Scharlatan?

[vrolijke]

[neinguar]

Unten eine Zeile anhängen, und dann 24x Drag&Drop. Dürfte höchstens 2 Minuten dauern.

EDIT: Ich meine mit Drag&Drop: Den Inhalt jeder Zelle einzeln markieren und eine Zelle weiter ziehen. Mit dem letzten beschriebenen Feld anfangen, damit immer die Zelle frei wird, die als nächstes neu belegt werden soll. Eine Funktion, mit der man das insgesamt erledigen könnte, dürfte es nicht geben, da das der üblichen Logik einer Tabelle mit Zeilen und Spalten als "Koordinatensystem" widerspricht.
_________________
Woran du dein Herz hängest, das ist dein Gott - Martin Luther -

Wenn ich Gott wäre, würde ich mich nicht von jedem anbeten lassen wollen - Hilde Ziegler -

[esme]

Wenn man es so wie Nani macht, ist es doch mit zwei Operationen gemacht, das ist doch nicht so schlimm, oder?
_________________
Gunkl über Intelligent Design:
Da hat sich die Kirche beim Rückzugsgefecht noch einmal grandios verstolpert und jetzt wollen sie auch noch Haltungsnoten für die argumentative Brez'n, die sie da gerissen haben.

[Spoony]

[Spoony]

[Heike J]

[Heike J]

Und wenn du unbedingt denn nur einen Klick haben willst (brauchst du das öfter?), musst du das ganze halt als Makro aufzeichenen.

Sub verschieben()
Selection.Tables(1).Select
Selection.Rows.ConvertToText Separator:=wdSeparateByParagraphs, _
NestedTables:=True
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.TypeText Text:=" "
Selection.TypeParagraph
Selection.WholeStory
Selection.ConvertToTable Separator:=wdSeparateByParagraphs, NumColumns:=3, _
NumRows:=5, AutoFitBehavior:=wdAutoFitFixed
With Selection.Tables(1)
.Style = "Tabellengitternetz"
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With
End Sub


Wobei das Fette dann entsprechend deinen Bedürfnissen anzupassen ist.

[Spoony]