MACSETTINGS Type=R Filecheck=N
WHILE TRUE
$FormExit = form($Form,"")
BEGINCASE
CASE $FormExit = "SystemExit"
CANCEL #Msg="Macro Canceled"
CASE $FormExit = "OK"
MACSETTINGS Type=S Vars=StartNum,Increment
GOSUB Name=Run
BREAK
CASE $FormExit = "Cancel"
CANCEL #Msg="Macro Canceled"
ENDCASE
ENDWHILE
BEGINSUB Name=Run
$CurrentNumber=Val($StartNum)
GOTO Position=Top
TRANSACTION Action=Begin
WHILE NOT($_EOL)
$d_User4=Right("0000" + NumToStr($CurrentNumber),4)
$CurrentNumber=$CurrentNumber + Val($Increment)
GOTO Position=Next
ENDWHILE
TRANSACTION Action=End
GOTO Position=Top
ENDSUB
<Data> VarName=$form
#********************************************************************
# Form generated by GSAK form designer on Fr 21-Feb-2014 15:44:16
#********************************************************************
Name = Form1
Type = Form
Caption = Fill User4 in grid order
Color = 16772063
Height = 201
Top = 362
Width = 256
Name = OK
Type = Button
Height = 25
Left = 23
Top = 126
Width = 75
Taborder = 0
Caption = OK
Name = Cancel
Type = Button
Height = 25
Left = 141
Top = 126
Width = 75
Taborder = 5
Caption = Cancel
Name = Label1
Type = Label
Height = 16
Left = 30
Size = 10
Top = 20
Width = 107
Caption = Starting Number:
Name = Label2
Type = Label
Height = 16
Left = 50
Size = 10
Top = 54
Width = 87
Caption = Increment by:
Name = StartNum
Type = Edit
Height = 21
Left = 136
Top = 18
Width = 25
Taborder = 2
Name = Increment
Type = Edit
Height = 21
Left = 136
Top = 52
Width = 25
Taborder = 1
<enddata>
In der Spalte Usersort sind einige Zahlen doppelt, wie bekomme ich das weg?Warum nimmst Du nicht einfach die Spalte "Usersort", die extra dafür vorgesehen ist? Dafür gäbe es auch fertige Makros.
Hans
Global Replace kennst Du?In der Spalte Usersort sind einige Zahlen doppelt, wie bekomme ich das weg?
Einfach noch einmal alles neu auffüllen?In der Spalte Usersort sind einige Zahlen doppelt, wie bekomme ich das weg?