Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Hilfe bei VBA-Formel
#1
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,
Antwortento top
#2
Hier sind auch noch die Excel Datei'en


Angehängte Dateien
.xlsx   Ticketing - All Agents.xlsx (Größe: 689,97 KB / Downloads: 0)
.xlsm   Ticketing_empty.xlsm (Größe: 485,36 KB / Downloads: 0)
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste