Frage an Onur bezüglich Trimfunktion

Hallo Onur,
ich konnte auf deine damalige Frage (siehe unten Zitate) nicht mehr antworten deswegen antworte ich dir nochmal so. Du wolltest wissen wie die Fehlermeldungen importiert werden. Diese importiere ich aus CSV Dateien über einen Button den ich in der unten angehängten Datei hinzugefügt habe.
Also mein Problem besteht nach wie vor ich importiere eine CSV Datei, dein Code arbeitet alles durch doch manchmal kommt es vor das der Code unterbrochen wird weil ihm irgend ein Fehlercode nicht passt.
Was ich noch sagen muss meine Zellen haben alle das Format Text aber wenn ich die CSV Dateien importieren ist bei den Zellen in denen nur Zahlen vor kommen kein grünes Dreieck. Ich habe auch schon versucht die importierten Werte Mal 1 zunehmen aber das geht auch nicht. Kannst du mir da vielleicht helfen?
Ich habe auch alle Stammdaten komplett neu händisch eingegeben und auch die Zellen als Text formatiert. Da sollte es also keine Probleme mehr geben, wenn dann liegt es vielleicht am Import.
Beispieldatei:
https://www.herber.de/bbs/user/118193.xlsm
Die 3 Funktionen NrMet, NrFehl und NrAnl brauchen String bzw Long. Wenn du jedoch z.B. bei Stammdaten als Anlagennummer 500001 einträgst (also Zahl) und in _ Database "500001" (also String) oder schlimmer " 500001 " (mit Leerzeichen), dann kann der Code Probleme _ bekommen. Deswegen solltest du diese Spalten auch als Text bzw. Zahl formatieren und dich davon ü _ berzeugen, dass keine Leerzeichen beim Import hinzugefügt wurden. Leerzeichen vorne oder hinten kriegt man mit z.B. txt=Trim(txt) weg. Du siehst ja in jeder Zelle anhand der kleinen Dreiecke oben links sehen, ob sie z.B. eine Zahl enthält, obwohl als Text formatiert wurde. Wie werden denn die Fehlermeldungen importiert? Da müsste man ansetzen und mit der Trimfunktion Leerzeichen am Anfang bzw Ende von Strings löschen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Speichern_Click() With Sheets("Cache") loLetzte = .Cells(Rows.Count, 4).End(xlUp).Row + 1 If loLetzte 0 Then PosAt2 = InStr(PosAt1 + 1, sText, "@") End If If PosAt2 > 0 Then .Cells(zeile, 1).Value = "" & Mid(sText, PosAt2 + 1) End If Next 'nicht benötigte Spalten löschen von rechts nach links _ benötigt werden die Spalten 1, 3, 4, 6, 8, 9, 10, 12 und 13 lastCol = .UsedRange.Column + .UsedRange.Columns.Count - 1 If lastCol > 13 Then .Range(.Columns(14), .Columns(lastCol)).Delete End If .Columns(11).Delete .Columns(7).Delete .Columns(5).Delete .Columns(2).Delete 'Die Spalten sollten dann in meinem Tabellenblatt in der folgenden Reihenfolge _ aufgeführt sein: 1, 3, 6, 4, 13, 8, 9, 10, 12 'Spalte 13 verschieben .Columns(9).Cut .Columns(5).Insert '.Columns(7).Cut '.Columns(6).Insert 'Spalte 6 verschieben .Columns(4).Cut .Columns(3).Insert End With End Function

Morgen Onur und Entschuldigung das es so lang gedauert hat, aber ich musste so einiges rauslöschen und testen nicht das es wie beim letzten mal ist und du die CSV Datei nicht öffnen kannst.
Ich habe die Werte schon in das Tool geladen, aber zum ausprobieren auch die CSV Datei mit geschickt.
Anforderungen:
1. Stationsnamen können Zahlen, Buchstaben oder Zahlen mit Buchstaben gemischt sein (Funktioniert, das hast du damals so programmiert)
2. Materialnummern können Zahlen, Buchstaben oder Zahlen mit Buchstaben gemischt sein (Funktioniert auch, das hast du damals so programmiert)
3. Die Fehlermeldungen bestehen aus Zahlen, Buchstaben und Sonderzeichen gemischt (das funktioniert auch). Des Weiteren was neu für mich war, da ich noch nie so eine CSV Datei mit solch einem Inhalt hatte, die gleiche Fehlermeldung kann unterschiedlich geschrieben sein, sprich mit großen und/oder kleinen Buchstaben (Beispiel. result oder Result oder REsULT)
Wegen der Groß-/Kleinschreibung erhalte ich aktuelle immer eine Meldung das der Feldercode nicht gepflegt ist und dieser dann das Ergebnis verfälscht. Im Internet habe ich gelesen das man mit LCase das Problem beheben kann. Weil du aber den Code geschrieben hast und nicht ich weiß ich nicht wo und wie man diesen Befehl am besten einbaut.
Test-Datei: https://www.herber.de/bbs/user/118223.zip

Beliebteste Forumthreads (12 Monate)

Frage an Onur bezüglich Trimfunktion

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Frage an Onur bezüglich Trimfunktion

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread