|
Ich in Neuling in VBA brauche eine VBA das folgendes Problem löst. Ich habe aber jahrelange BASIC Erfahrung
Ich habe Excel mit vielen Arbeislättern A1…………………An, C, D, Fehler die mit Daten aus sequentiellen Textdateien (groß) (Daten gefüllt werden. Ein Arbeitsblatt Z enthält die verweise auf diese Arbeisblätter A1…… An und Funktionen auf diese. Muss das aktiviert werden um die Daten zu erhalten oder nur um die Funktionen auzuführen.
Ich beschreibe Verarbeitung für eine Datei, die andern sind dann anölognadern sind dann malk die verarbeitung für aten ikn excel
VBA
Schleife
Initialisiere neuen alle Felder in Satz Im Initialisiere Arbeitsblatt Z mit und blank
Lesen Textdatei 1 sequentiell
Feld 1 bis Feld 25
Formatiere Text und numerische Felder
Beginn Verarbeitung Gruppe 2
Beginn Verarbeitung Gruppe2
Lese nächsten Satz
Wenn kein Satz vorhanden gehe zur Endverarbeitung Gruppe 2
Wenn vorhanden Feld 1 >0 und neues Feld 1 ungleich vorhandener Feld! VSNR dann gehe zur Endverarbeitung für Gruppe1 pro Versicherungsnummer.
Schreibe Feld 1 bis Feld5 in ArbeitsBlatt A1 und aktiviere Arbeitsblatt Z (notwendig um Felder 1 bis 5 in Z zu bringen?)
wenn Feld 2= 10
schreibe Feld 3 bis 10 in Arbeitsblatt A2 und aktiviere Arbeitsblatt Z (um Funktionen auszuführen) )
IF DifferenzA2 (Feld in Z ) gleich falsch Schreibe Feld 1 in Blatt Fehler und setze DifferenzA2 auf 1
wenn Feld 2= 20
schreibe Feld 5 bis 20 in Arbeitsblatt A3und aktiviere Arbeitsblatt Z (um Funktionen auszuführen) )
IF DifferenzA3 (Feld in Z ) gleich falsch Schreibe Feld 1 in Blatt Fehler und setze DifferenzA3 auf 1
.
.
.
.
Endverabeitung Gruppe1
Mach einen neuen Eintrag in Arbeitsblatt mit Feldern aus Feldern aus Arbeitsblaltt Z
Gehe zur Verarbeitung Gruppe 2
Endverarbeitung Gruppe 1
Lese Textdatei 2
Mit Feldern 100…….n
Schriebe Felder in C
Aktiviere C
IF DifferenzC (Feld in C ) gleich falsch Schreibe C in Feld 01 Blatt Fehler und setze DifferenzC auf 1
Lese Textdatei 3
Mit Feldern 200…….n
Schriebe Felder in D
Aktiviere D
IF DifferenzD (Feld in D ) gleich falsch Schreibe D in Feld 01 in Blatt Fehler und setze DifferenzD (C auf 1
|