Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Befehlszeile flexibel machen

Forumthread: Befehlszeile flexibel machen

Befehlszeile flexibel machen
23.10.2018 14:45:58
Burak
Die Datei:
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")
Daraus soll dann grob folgendes werden:
.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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
sorry doppelt
23.10.2018 14:46:26
Burak
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige