|
Hallo zusammen,
ich habe folgendes Problem: In meiner Firma benutzen wir für Statistiken UserFormen und die Eingabe zu erleichtern und bestimmt Eingaben zu beschränken um Fehler zu vermeiden. Meine Aufgabe ist es seit kurzem diese Datein zu optimieren und zu bearbeiten. Als Beispiel folgender Code:
With frm
ActiveCell.Value = .Datum.Value
ActiveCell.Offset(0, 1).Value = .ComboBox1.Value
ActiveCell.Offset(0, 2).Value = .ComboBox2.Value
'Protokoll
ActiveCell.Offset(0, 6).Value = .TextBox1.Value
ActiveCell.Offset(0, 36).Value = .TextBox2.Value
ActiveCell.Offset(0, 35).Value = .ComboBox3.Value
ActiveCell.Offset(0, 82).Value = .TextBox3.Value
ActiveCell.Offset(0, 83).Value = .TextBox4.Value
ActiveCell.Offset(0, 84).Value = .TextBox5.Value
Dieser Code geht ca. über 30-40 Zeilen immer so weiter. Da im Moment einige Spalten eingefügt und gelöscht werden sollen (und nicht einfach hinten angehängt werden sollen), stelle ich mir die Frage ob man die ActiveCell.Offset Objekt in etwas dynamisches umwandeln kann.
Ziel wäre es also, dass ich den Code und die Anzahl der Spalten bei der Bedingung nicht bei jedem Einfügen/Löschen von Spalten ändern muss.
Gibt es dort eine Möglichkeit?
Danke im Vorraus
Pascal
|