Hilfe bei VBA-Formel

[Joshualito]

Guten Tag,



Ich hab eine Excel-Datei erstelle damit es als einfaches Ticketing-Programm für ein paar Anwender genutzt werden soll. In einer Datei werden die Daten eingegeben und später auf eine andere Datei geschrieben mittels folgendem VBA-Code:

Code:

Sub Copy_Paste_New_Ticket()
Dim destSht As Worksheet
'copy
    Windows("DATEINAME.xlsm").Activate
    ActiveWindow.SmallScroll Down:=33
    Range("B51:O51").Select
    Selection.Copy
'Open other workbook
Workbooks.Open ("\\ZIELDATEI")
[color=#333333][size=small][font=Tahoma, Verdana, Arial, sans-serif]Workbooks.Open ("\\inprod.ept.lu\SC\VOL1\Operations_Front_Office\CSC Courrier\Ticketing\Ticketing - All Agents.xlsx")
Set destSht = ActiveWorkbook.Worksheets("All Agents")[/font][/size][/color]

'Paste
    Range("D10001").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'Sort
    Columns("D:Q").Select
    Range("Q1").Activate
    ActiveWorkbook.Worksheets("All Agents").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("All Agents").Sort.SortFields.Add2 Key:=Range( _
        "Q2:Q10007"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("All Agents").Sort.SortFields.Add2 Key:=Range( _
        "O2:O10007"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("All Agents").Sort
        .SetRange Range("D1:Q10007")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
   
'Goto Ticketing Workbook
    Windows("Ticketing.xlsm").Activate
    ActiveWindow.SmallScroll Down:=-69
    Range("C4").Select
destSht.Parent.Close True
End Sub

Ich brauch aber Hilfe da ich wenn eine Zeile überschrieben werden soll also Zeile ist variabel.




Habt Ihr da Tipps wie Ich das bewerkstelligen kann ?





Danke im Voraus,

[Joshualito]

Hier sind auch noch die Excel Datei'en