Einfügen per Makro
31.08.2003 15:10:46
Rolf
Dort aber muss ich erst die nächste freie Zelle ermitteln.
Wie geht das mit VBA6.0 ?
Hier der Code, soweit bin ich gekommen.
Sub Test_kopieren()
' Test_kopieren Makro
' Makro am 31.08.2003 von Rolf aufgezeichnet
Selection.Copy
'Zunächst befinde ich mich im Tabellenblatt("Mitglieder alle")
'Hier markiere ich eine Zelle
'Der Inhalt soll nach("Mitglieder Aktuell")kopiert werden
'Dieses möchte ich mit diesem Makro durchführen
'Jetzt aktiviere ich das Makro
Sheets("Mitglieder Aktuell").Select
'An dieser Stelle findet man Zellen von C2:C145 vor.
'Eingefügt werden soll aber an die letzte, freie Zelle
'Es muss also die Zelle gesucht werden, in der nichts steht
'Erst dort darf eingefügt werden.
ActiveSheet.Paste
Sheets("Mitglieder alle").Select
End Sub