Excel Makro für einen autom.Zeilensprung

Hi,
ich möchte folgendes mit Excel2000 erreichen:

o In der ersten Zeile der Mappe sollen Überschriften stehen (fix)
o In der zweiten Zeile stehen Platzhalter, die Daten aus einem
anderen (Nicht-MS-Programm) an Excel übergeben (realisiert)
o Nun soll ein Macro auf Knopfdruck die zweite Zeile komplett
markieren und in die n ä c h s t e freie Zeile kopieren (mit
dem Befehl "Inhalte einfügen" - "Werte") und speichern und
schliessen
o Beim erneuten öffenen der Mappe sollen die Daten aus Zeile 2
wie oben markiert, kopiert und in nun in Zeile 4 geschrieben
werden

Frage: Wie lautet der Befehl "suche die nächste freie Zeile" und kopiere dort per "Inhalte einfügen" - "Werte" die Daten aus Zeile 2??

Vielen Dank,

Gruss aus Aachen

Sascha

 

Hi Geert!!

Suuuuuppppi- funktioniert wunderbar!!! Herzlichen Dank und viele Grüsse aus Aachen

Sascha

 

Hi

Wenn es eine Spalte gibt, die immer Inhalt hat ( zur Not eine
unbenutzte Hilfsspalte:

Sub transfer()
anzahl = Worksheets("Tabelle1").Cells(1, 7).Value
Rows("2:2").Select
Selection.Copy
Worksheets("Tabelle1").Cells(anzahl, 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

In der Zelle 1,7 steht die Formel =Anzahl2(A:A)+2

Die Formel kann in einer beliebigen unbenutzten Zelle stehen -
die Referenz im Makro ist dann anzupassen.

A:A steht für die niemals leere (Hilfs)Spalte.

Gruß Geert