Hallo Kollegen,
zuerst mal das CSV im Editor kopiert und eingefügt.
Ich hoffe das klappt.
JD,V-C,s1
2457909.3707176,-0.22331,0.00579
2457909.3712037,-0.22545,0.00582
2457909.3716898,-0.23886,0.00585
2457909.3721759,-0.21956,0.00581
2457909.3744560,-0.22515,0.00547
2457909.3749537,-0.22440,0.00537
2457909.3754282,-0.21573,0.00526
2457909.3759028,-0.21679,0.00530
2457909.3763889,-0.23060,0.00512
2457909.3768634,-0.22846,0.00528
2457909.3773495,-0.23202,0.00518
2457909.3778241,-0.22192,0.00519
2457909.3782986,-0.22454,0.00523
2457909.3787847,-0.22333,0.00521
2457909.3792593,-0.20636,0.00563
2457909.3797338,-0.21723,0.00621
2457909.3802199,-0.23514,0.00575
2457909.3806944,-0.22636,0.00560
2457909.3811806,-0.22865,0.00565
2457909.3816551,-0.22528,0.00536
2457909.3821296,-0.23922,0.00518
2457909.3826157,-0.24122,0.00501
2457909.3830903,-0.24654,0.00496
2457909.3840394,-0.26659,0.00484
2457909.3845255,-0.25642,0.00481
2457909.3859491,-0.28891,0.00465
2457909.3864236,-0.29555,0.00457
2457909.3964005,-0.53626,0.01615
2457909.3968866,-0.54948,0.01769
2457909.3973611,-0.61177,0.01267
2457909.3978356,-0.64907,0.01230
2457909.3983218,-0.66622,0.01278
2457909.3987963,-0.70219,0.01280
2457909.3992824,-0.72281,0.01162
2457909.3997569,-0.78161,0.00679
2457909.4002315,-0.83957,0.00780
2457909.4007176,-0.83541,0.01046
2457909.4011921,-0.87835,0.00745
2457909.4016782,-0.91081,0.00826
2457909.4021528,-0.92031,0.00893
2457909.4026273,-0.94643,0.00714
2457909.4031134,-0.98582,0.00619
2457909.4035880,-0.99713,0.00534
2457909.4069444,-1.01748,0.00574
2457909.4074306,-1.03259,0.00363
2457909.4103009,-1.00721,0.00443
2457909.4107870,-1.00441,0.00421
2457909.4131829,-0.99444,0.00368
2457909.4141435,-0.98985,0.00361
2457909.4146181,-0.96575,0.00346
2457909.4150926,-0.96239,0.00342
2457909.4155787,-0.96306,0.00338
2457909.4160532,-0.95421,0.00333
2457909.4179745,-0.92034,0.00353
2457909.4184491,-0.91997,0.00371
2457909.4189352,-0.90954,0.00388
2457909.4194097,-0.91561,0.00385
2457909.4198843,-0.90199,0.00358
2457909.4203704,-0.89300,0.00348
2457909.4208449,-0.88030,0.00336
2457909.4213194,-0.87937,0.00330
2457909.4218056,-0.86385,0.00334
2457909.4222801,-0.85244,0.00331
2457909.4227662,-0.85589,0.00326
2457909.4232407,-0.84465,0.00324
2457909.4237269,-0.82840,0.00324
2457909.4242014,-0.84728,0.00342
2457909.4246875,-0.81838,0.00348
2457909.4251620,-0.81011,0.00351
2457909.4256366,-0.80815,0.00357
2457909.4261227,-0.74439,0.00785
2457909.4270833,-0.55538,0.03474
2457909.4275579,-0.85733,0.00650
2457909.4280440,-0.75818,0.00405
2457909.4285185,-0.79400,0.00436
2457909.4289931,-0.77536,0.00603
2457909.4294792,-0.70399,0.00569
2457909.4299537,-0.74244,0.00407
2457909.4304398,-0.76520,0.00435
2457909.4309144,-0.70963,0.00468
2457909.4313889,-0.66747,0.00617
2457909.4318750,-0.70395,0.00371
2457909.4323495,-0.69028,0.00371
2457909.4328356,-0.71142,0.00444
2457909.4333102,-0.64014,0.00491
2457909.4337847,-0.68366,0.00429
2457909.4342708,-0.67372,0.00384
2457909.4347454,-0.67987,0.00379
2457909.4352315,-0.66193,0.00360
2457909.4357060,-0.64766,0.00366
2457909.4361806,-0.64662,0.00359
2457909.4366667,-0.64323,0.00353
2457909.4371412,-0.63060,0.00372
2457909.4376273,-0.64439,0.00365
2457909.4381019,-0.63308,0.00366
2457909.4385764,-0.62362,0.00355
2457909.4390625,-0.61143,0.00363
2457909.4395370,-0.61218,0.00349
2457909.4400231,-0.60860,0.00358
2457909.4404977,-0.60172,0.00348
2457909.4409838,-0.60355,0.00351
2457909.4414583,-0.60022,0.00355
2457909.4419329,-0.57976,0.00361
2457909.4424190,-0.58659,0.00361
2457909.4428935,-0.59029,0.00357
2457909.4433796,-0.58827,0.00369
2457909.4438542,-0.56216,0.00378
2457909.4443287,-0.55811,0.00377
2457909.4448148,-0.56023,0.00384
2457909.4452894,-0.56200,0.00375
2457909.4457639,-0.54729,0.00392
2457909.4462500,-0.55332,0.00376
2457909.4467245,-0.56123,0.00382
2457909.4472106,-0.54130,0.00368
2457909.4476852,-0.54914,0.00362
2457909.4481713,-0.53141,0.00390
2457909.4486458,-0.52954,0.00410
2457909.4491319,-0.52450,0.00370
2457909.4496065,-0.52345,0.00362
2457909.4500926,-0.51079,0.00371
2457909.4505671,-0.51860,0.00395
2457909.4510417,-0.51050,0.00384
2457909.4515278,-0.49785,0.00387
2457909.4520023,-0.49225,0.00388
2457909.4524884,-0.48905,0.00386
2457909.4529630,-0.48937,0.00396
2457909.4534491,-0.47596,0.00409
2457909.4539236,-0.47975,0.00411
2457909.4558449,-0.46639,0.00401
2457909.4563194,-0.46206,0.00399
2457909.4568056,-0.46118,0.00386
2457909.4572801,-0.45155,0.00385
2457909.4577662,-0.45569,0.00393
2457909.4582407,-0.44323,0.00397
2457909.4587269,-0.42806,0.00409
2457909.4592014,-0.44264,0.00404
2457909.4596759,-0.43517,0.00407
2457909.4601620,-0.40727,0.00447
2457909.4606366,-0.43126,0.00539
2457909.4611111,-0.42117,0.00628
2457909.4615972,-0.44519,0.00645
2457909.4620718,-0.40553,0.00488
2457909.4625463,-0.42416,0.00457
2457909.4630324,-0.41262,0.00431
2457909.4635069,-0.41196,0.00402
2457909.4639815,-0.41067,0.00413
2457909.4644676,-0.40974,0.00405
2457909.4649421,-0.39614,0.00401
2457909.4654282,-0.40508,0.00385
2457909.4659028,-0.38977,0.00390
2457909.4663773,-0.39370,0.00389
2457909.4668634,-0.39062,0.00389
2457909.4673380,-0.38311,0.00396
2457909.4678241,-0.38218,0.00386
2457909.4682986,-0.38338,0.00391
2457909.4687731,-0.37861,0.00414
2457909.4692593,-0.37343,0.00399
2457909.4697454,-0.37246,0.00409
2457909.4702199,-0.36562,0.00435
dann kommen die Makros
1. Text in Spalten
Sub Text_in_Spalten()
'
' Text_in_Spalten Makro
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("A3"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
End Sub
2. Punkt durch Komma ersetzen
Sub PunktErsetzen()
Dim rngZelle As Range, rngBereich As Range
Set rngBereich = ActiveSheet.Range("A3:C500") 'Bereich hier ändern
For Each rngZelle In rngBereich
rngZelle.Value = Application.WorksheetFunction.Substitute(rngZelle, ".", ",") 'Suchen und Ersetzen
Next
End Sub
3. Hochkomma weg
Sub Delete_HochKomma()
Dim rngCell As Range
For Each rngCell In ActiveSheet.UsedRange
rngCell.FormulaLocal = rngCell.FormulaLocal
Next rngCell
End Sub
4. Werte begrenzen
Sub Wertebegrenzung()
Dim rng As Range
For Each rng In Range("B3:C500")
If rng.Value > 1 Then rng.ClearContents
If rng.Value < -1 Then rng.ClearContents
Next
End Sub
Das CSV zerlegen Tool bringt eine Fehlermeldung. "Laufzeitfehler 6 Überlauf"
Soweit erst mal der Stand.
Werde jetzt noch etwas weiter machen.
Viele Grüße
Dietmar