Format übertragen per Makro
Wilhelm
ich erhalte täglich eine Textdatei mit Datensätzen, die ich über ein Query meiner Excel-Tabelle hinzufüge.
Die Anzahl der Datensätze variiert täglich (ca. zwischen 50 und 200).
In der Excel-Tabelle sind die bereits vorhandenen Datensätze formatiert (Rahmen etc.). Mit dem untenstehenden Makro übertrage ich das Format der Vorgängerzeile auf die neu eingespielten Datensätze, wobei ich leider die Anzahl nie so genau treffe, d.h. es ist Nacharbeit erforderlich.
Meine Frage: Wie müsste ich mein Makro verändern, dass nicht mehr und nicht weniger der neu eingespielten Zeilen (also alle neuen Datensätze unterhalb der formatgebenden Zeile) formatiert werden, also jeweils genau die richtige Anzahl neuer Datensätze?
Hier mein Makro:
Sub FormatÜbertragen()
ActiveCell.Offset(0, 0).Range("A1:K1").Select
Selection.Copy
ActiveCell.Offset(0, 0).Range("A2:K100").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Vielen Dank für Eure Unterstützung!
Willi