Da mein VBA-Knowhow bescheiden ist, hoffe ich auf eure Inputs. Folgendes Problem: In der angehängten Datei sind diverse Feuerwehrfahrzeuge aufgeführt. Ich möchte per CommandButton ein neues Fahrzeug oder ein neuer Anhänger einfügen können. Die nötigen Informationen werde ich per UserForm eingeben (Anhänger/Fahrzeug, Kurzzeichen Fahrzeug für Caption, etc).
Das finden von freien Zellen, kann ich mit xlDown etc. realisieren und auch das Versetzen der Zellen kann ich mit Offset machen. Ich würde dann die Spalte mit "Anzahl" suchen. Wo ich nicht weiter komme, ist, ich möchte irgendwie folgendes detektieren:
Wenn Fahrzeug, dann suche im Bereich xx:xx und suche die erste letzte benutzte Zelle in Spalte A. Wenn aber in Spalte A ein Wert vorhanden ist, such in der Spalte E, wenn dort nichts steht, soll in der zweiten Spalte eingefügt werden.
Als Ansatz habe ich mit überlegt, ein CountA über den Bereich laufen zu lassen und wenn die Anzahl nicht gerade ist, muss die Zelle der Spalte E genommen werden.
https://www.herber.de/bbs/user/117635.xlsx
Der Einfachheit halber, würde ich die Zellen des ersten Fahrzeugs (Anzahl inkl. Rahmen) kopieren und dann in der selektieren Zelle einfügen.
Könnt ihr mir Ideenanstösse geben, wie ich das automatisieren kann?
Vielen Dank!
Marcel