Office: Excel 16; Neue Zeile mit bestimmter Formatierung einfügen

Ich habe das versucht und es ist schon fast so wie es sein sollte. Mein Makro sieht wie folgt aus:

Code:

Wenn ich nun das "6:6" wie vorgeschlagen durch ActiveCell.Row ersetze (ich nehme an, an beiden Stellen, wo es vorkommt), dann fügt das Makro zwar eine neue Zeile an gewünschter Stelle (basierend auf Position des Cursors) ein, aber die Formatierung von der ersten Zeile wird nicht auf die neue Zeile übertragen.

Ich denke, das liegt daran, dass beim zweiten Mal das ActiveCell.Row sich dann auf die erste Zeile bezieht. Gibt es einen Befehl, der die neu eingefügt Zeile ansteuert?

So sieht das Makro im Moment aus:

Code:

 

\@Ralf: Daran hatte ich auch sofort gedacht, aber soweit ich weiß kann ich bei diesen "intelligenten" Tabellen die einzelnen Spalten nicht nach Wunsch formatieren, nur die erste und letzte Spalte. Zumindest habe ich es nicht anders geschafft.

 

Hi Berni!
Ausgangsposition eine intelligente Tabelle mit nur 1 Zeile:

	A	B	C	D
1	A	B	C	D
2	1	2	3	4
3

Wenn ich in D2 bin und Tab drücke, erscheint:

	A	B	C	D
1	A	B	C	D
2	1	2	3	4
3

Offensichtlich exakt das, was der TE wünscht.

Gruß Ralf

 

Hmmm... da hast du wohl recht!
Dazu fällt mir nur ein:
Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Berni
*biggrin.gif* *biggrin.gif* *biggrin.gif*

 

Hätte der TS von Anfang formuliert, dass jede neue Zeile das Format der anderen Datenzeilen erhalten soll, dann wäre es auch von Anfang an klar gewesen, dass sich das Problem durch eine intelligente Tabelle ganz einfach lösen lässt.

Aber so wie der TS sein Anliegen formuliert hat, war ich nicht intelligent genug, um dies zu erkennen. Auch meine Nachfrage hatte ich wohl nicht richtig gestellt, um eine für mich verständliche Antwort zu erhalten.

 

Vielleicht bin ja auch ich nicht intelligent genug, den TE zu verstehen? *wink.gif*

 

Danke für die vielen Ideen und Hilfestellungen. Die Lösung mit der intelligenten Tabelle ist zwar prima, aber in meinem Fall geht das nicht, weil ich eine bestehende Tabelle weiterverwenden möchte und diese nicht verändert werden soll/darf.

Da anscheinend mein Anliegen falsch/nicht verstanden wurde, erlaube ich mir es noch einmal zu probieren:

Ich möchte in eine bestehende Tabelle "zwischendrinnen" (zum Beispiel zwischen Zeile 4 und Zeile 5) eine neue Zeile einfügen und die Zeile soll eine bestimmte vorher definierte Formatierung aufweisen (z.B. die gleiche Formatierung haben, wie die Zeile 1).

Das Makro von meinem vorhergehenden Beitrag funktioniert schon fast zuverlässig. Gerne bin ich auch an dieser VBA-Lösung interessiert.