AW: Auf Spalten beziehen!!!
Nadi
Hallöchen,
hier ist er! Aber das Problem ist dass das Grundgerüst so auf jeden Fall bestehen bleiben muss! Mir geht es im Moment wirklich nur um die Sache mit den Spalten und der Formel!!
Sub Test_Gewichte()
'Nach der Spalte "Gross weight" suchen und anschließend diese selektieren
'und eine neue Spalte einfügen
Cells.Find(what:="Gross weight", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Selection.EntireColumn.Insert
'Nach der Spalte "Gross weight" suchen und anschließen diese selektieren
'und das Format von dieser in die neu eingefügte übertragen
Cells.Find(what:="Gross weight", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.EntireColumn.Select
Selection.Copy
If Not ActiveCell.Column = 1 Then ActiveCell.Offset(0, -1).Columns(1).EntireColumn.Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
'Neuer Spalte eine Überschrift geben
ActiveCell.FormulaR1C1 = "Diff. Gross Net"
ActiveCell.Select
'Farbe der Spaltenüberschrift ändern
Selection.Font.ColorIndex = 7
'In die 2. Zeile in dieser Spalte springen
ActiveCell.Rows(2).Select
'Berechnung durchführen: Gross weight - Net weight
ActiveCell.FormulaR1C1 = "=RC[1]-RC[2]"
'Aktive Zelle (Formel) wird soweit nach unten kopiert, wie die Spalte rechts daneben gefüllt ist.
'Da in der rechten Spalte manchmal auch leere Zellen auftauchen, wird außerdem noch nach der
'letzten beschriebenen Zell von unten gesucht. Denn sonst würde das Kopieren der Formel
'bei jeder leeren Zelle stoppen.
Selection.AutoFill Destination:=Range(Selection, Cells(65536, Selection.Column + 1).End(xlUp).Offset(0, -1))
End Sub
Ciao, Nadi