Zellbereich mit Formatierungen kopieren
31.08.2007 13:12:51
chsarto
ich habe ein paar Probleme!
Ich kopiere mit folgendem Code einen definierten zellbereich in die 2.freie Zeile im gleichen Tabellenblatt, das funktioniert auch recht gut.
Sub Zeilen_kopieren_Kalkulation()
Range("A23:R42").Copy
Range("A" & Range("A15000").End(xlUp).Row + 2).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("D27").Select
End Sub
Nun zu meinen Problemen.
-Die Zelle D23 aus dem Kopierbereich (A23:R42) beinhaltet den Wert aus Zelle D14 der Tabelle 2, bei jeder weiteren Kopie soll sich die Zelle D 23 mit dem Wert um eine Zeile erhöhen ( D15,D16,D17,D18...)
-wie kann ich die Anzahl der Kopien im Vorfeld angeben ( der Wert könnte aus Tabelle 2 Zelle B1 ausgelesen werden)
-wie muss ich den Code umstellen,damit auch die Formatierungen übernommen werden? ( Farbe und Rahmenlinien
wie gesagt VBA nur mit Macrorecorder sorry:-((
Hoffentlich waren das nicht zuviele Fragen
Danke schon jetzt für Eure Antworten