weiss jemand von Euch, wie ich dieses Makro abkürzen könnte, indem ich einen Bereich anspreche, statt jede Zeile einzeln aufzuführen. Das wäre echt toll !
Sub Springe_zu_VU()
AktivesFenster.ZeilenBildlauf NachUnten:=9
Bereich("A1").Auswählen
BlattListe("VERT00").ZelleListe(34; 1).Wert = BlattListe("Hilfsfelder").ZelleListe(21; 1).Wert
BlattListe("VERT00").ZelleListe(34; 3).Wert = BlattListe("Hilfsfelder").ZelleListe(21; 2).Wert
BlattListe("VERT00").ZelleListe(35; 3).Wert = BlattListe("Hilfsfelder").ZelleListe(22; 2).Wert
BlattListe("VERT00").ZelleListe(36; 3).Wert = BlattListe("Hilfsfelder").ZelleListe(23; 2).Wert
BlattListe("VERT00").ZelleListe(37; 3).Wert = BlattListe("Hilfsfelder").ZelleListe(24; 2).Wert
BlattListe("VERT00").ZelleListe(38; 3).Wert = BlattListe("Hilfsfelder").ZelleListe(25; 2).Wert
BlattListe("VERT00").ZelleListe(39; 3).Wert = BlattListe("Hilfsfelder").ZelleListe(26; 2).Wert
BlattListe("VERT00").ZelleListe(40; 3).Wert = BlattListe("Hilfsfelder").ZelleListe(27; 2).Wert
BlattListe("VERT00").ZelleListe(41; 3).Wert = BlattListe("Hilfsfelder").ZelleListe(28; 2).Wert
BlattListe("VERT00").ZelleListe(42; 3).Wert = BlattListe("Hilfsfelder").ZelleListe(29; 2).Wert
BlattListe("VERT00").ZelleListe(43; 3).Wert = BlattListe("Hilfsfelder").ZelleListe(30; 2).Wert
BlattListe("VERT00").ZelleListe(44; 3).Wert = BlattListe("Hilfsfelder").ZelleListe(31; 2).Wert
BlattListe("VERT00").ZelleListe(45; 3).Wert = BlattListe("Hilfsfelder").ZelleListe(32; 2).Wert
BlattListe("VERT00").ZelleListe(46; 3).Wert = BlattListe("Hilfsfelder").ZelleListe(33; 2).Wert
BlattListe("VERT00").ZelleListe(47; 3).Wert = BlattListe("Hilfsfelder").ZelleListe(34; 2).Wert
BlattListe("VERT00").ZelleListe(48; 3).Wert = BlattListe("Hilfsfelder").ZelleListe(35; 2).Wert
BlattListe("VERT00").ZelleListe(49; 3).Wert = BlattListe("Hilfsfelder").ZelleListe(36; 2).Wert
BlattListe("VERT00").ZelleListe(50; 3).Wert = BlattListe("Hilfsfelder").ZelleListe(37; 2).Wert
BlattListe("VERT00").ZelleListe(51; 3).Wert = BlattListe("Hilfsfelder").ZelleListe(38; 2).Wert
BlattListe("VERT00").ZelleListe(52; 3).Wert = BlattListe("Hilfsfelder").ZelleListe(39; 2).Wert
BlattListe("VERT00").ZelleListe(53; 3).Wert = BlattListe("Hilfsfelder").ZelleListe(40; 2).Wert
Ende Sub