Immer nächste Zelle auswählen und beschreiben
11.06.2007 18:01:51
pbm
wähle mittels eines Makros die letzte Spalte einer Tabelle aus, die dann beschrieben wird. So weit so gut, aber nun möchte ich immer die nächste Zelle beschreiben- soll heißen in die erste Zeile die Überschrift und darunter eine Formel.
Habe bis dato folgendes:
Sub formeln_eingeben()
Dim Spaltenanzahl%
Spaltenanzahl = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column 'letzte Spalte in 1 suchen
Cells(1, Spaltenanzahl + 1).Activate 'und aktiviert
ActiveCell.Select
ActiveCell.FormulaR1C1 = "year"
Nun soll in die in die Zelle darunter eine Formel kommen, in die Zelle daneben eine andere Überschrift und darunter wieder eine Formel. Das ganze ca. 7 ma.
Hat jemand eine Idee?
Danke,
Philipp