Zellen unterhalb einfügen wenn...
28.01.2019 20:10:41
Janosch
ich hänge etwas fest und benötige etwas Hilfe.
Ich versuche es verständlich zu erklären.
wenn ich meine Excel-Vorlage Datei öffne, wird mir nur ein Tabellenblatt Namens Selection angezeigt, auf diesem stehen mir verschiedenen CommandButtons Ding1,Ding2,...,Ding12 zu Verfügung um weitere gleichnamige Tabellenblätter Ding1,...,usw. einzublenden.
Jetzt sollen nur von den eingeblendeten Blättern definierte Zellen z.B. für Ding1 z.B.:A1,B1,S49, kopiert werden und ab Zeile 12 eingefügt werden. In eine Zeile, A1 in A12, B1 in B12, S49 in C12.
Wenn jetzt z.b. das Blatt Ding2 nicht eingeblendet ist, aber dafür Ding3 sollen die Zellen A1,B1,S55 kopiert und in die Zeile darunter eingefügt werden, usw.
If Sheets("Ding1").Visible=True Then ?
Könnt Ihr mir hierzu bitte auf die Sprünge helfen?
Grüße
Janosch