Befehlszeile flexibel machen
23.10.2018 14:45:58
Burak
https://www.herber.de/bbs/user/124836.xlsx
Hi Leute,
also ich habe ein Tabellenblatt mit allen Informationen über Strukturen und Pfade für alle vorliegenden Makros.
In einem der Makros, schreibe ich auf ein Tabellenblatt die Überschriften mit Hilfe von folgendem Befehl:
.Cells(1, 1).Resize(, 16) = Array("Barcode", "Masterbarcode", "anzPanel", "DatumREHM", "DiffTsec_zu_ECU_vorher", "Schicht", "BTname", "LP-Nr", "irepcode", "crepcode", "PIN", "AnalyseTyp", "LIBname", "Prüfplan", "REHM Datum", "REHM Uhrzeit")
.Cells(1, 1).Resize(, bis zur ersten Leerzeile von "Grunddaten" - 1) = Array(Zellinhalt aus "A2", Zellinhalt aus "A3", Zellinhalt aus "A4",..., Zellinhalt aus letzter beschriebenen Zelle vor erster Leerzeile)
Diese Begriffe stehen ebenfalls untereinander auf dem Tabellenblatt "Grunddaten" ab Zelle A2.
Also A2 = Barcode, A3 = Masterbarcode, ..., A17 = Rehmuhrzeit.
Um die Flexibilität reinzubringen, also falls mehr Spalten benötigt werden, soll die zugehörige Überschrift auf dem Tabellenblatt "Grunddaten" unter die anderen geschrieben werden. Dafür müsste ich den oben erwähnten Befehl umbauen dass die Länge des Arrays immer 1 weniger ist, als die Länge der beshriebenen Zeilen (bis zur ersten Leerzeile, ab A19 steht wieder was drin, was hierfür ignoriert werden soll). Und die Überschriftenbezeichnungen sollen auch aus diesen Zellen entnommen werden.
Wahrscheinlich hab ich es komplizierter beschrieben als es ist. Guckt euch einfach die Datei an. Hoffe das ist deutlicher.
Danke im Voraus
Liebe Grüße
Anzeige