18.08.2020, 14:37
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:
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,
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 SubIch 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,