Tabellen invoegen voor de komende x dagen
Heb je spreadsheets nodig met namen die een datum hebben? Dit is bijvoorbeeld handig als u gegevens tot op de dag van vandaag vastlegt en voor elke invoer een apart werkblad gebruikt.
Als u uzelf de moeite wilt besparen om zelf de werkbladen te maken en de gewenste datumwaarden toe te voegen, kan een macro u helpen. De volgende macro definieert een aantal werkbladen die volgen op de huidige datum op basis van de huidige datum:
Sub FuegeTabellenEin ()
Dim nummer Als geheel getal
Dim ik als geheel getal
Nummer = InputBox ("Hoeveel vellen invoegen?")
Voor i = 1 Naar nummer
Worksheets.Toevoegen na: = Worksheets (Worksheets.Count)
Werkbladen (Worksheets.Count) .Name = Datum + i
volgende i
Einde sub
Na het starten van de macro toont Excel u een invoervenster. In dit venster kunt u het aantal werkbladen invoeren dat u wilt aanmaken. De volgende afbeelding laat zien hoe dit venster eruitziet:
Vul hier het gewenste aantal werkbladen in. Beginnend met de huidige datum maakt Excel vervolgens het gewenste aantal spreadsheets en geeft ze de huidige datum, de datum van de volgende dag enzovoort. De volgende afbeelding laat zien hoe het resultaat eruit kan zien:
Tip: Als u wilt weten hoe u macro's in Excel invoert en start, vindt u hier een korte beschrijving: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
