Zeile in Makro einfügen
13.07.2005 13:50:34
Ander
Ich habe mir folgendes Makro zusammengebastelt.
Es soll die ersten 16 Zeilen aus einem anderen Makro
im Modul "test" in das "Modul1" kopieren.
Soweit so gut!
Nun möchte ich aber zwischen der 2. und 3. Zeile
des ins "Modul1" hineinkopierten eine neue Zeile einfügen
z.b. "zwischen 2 und 3".
Kann mir jemand nen Tipp geben?
Dürfte für Profis kein Problem sein!
Danke und Grüße
A.
Sub Makrokopieren()
With ThisWorkbook.VBProject.vbComponents("test").CodeModule
J = .Lines(1, 16)
End With
ThisWorkbook.VBProject.vbComponents("Modul1").CodeModule.AddFromString J
'füge nun zwischen der 2. und 3. Zeile im Modul1 den Satz "zwischen 2 und 3" ein
End Sub