Beste,
Ik ben voor de hobby een kalender aan het maken in excel aan de hand van een voorbeeld.
Youtube link naar voorbeeld: https://youtu.be/IWlCloFiWw4
Het voorbeeldbestand van wat ik aan het namaken was zit ook in de bijlage.
tldr: ik maak een activiteitenkalender waar er per jaar d.m.v. vba een extra tabblad gemaakt moet worden dat de naam van dat jaartal heeft. De functie van dat tabblad is om de activiteiten te bewaren die op die datum in de kalender worden gezet. Wanneer je dan weer op deze dag klikt dan haalt vba de gegevens vanuit de jaartal sheet en zet ze als samenvatting op de dag in de kalender.
De problemen:
1. Sub addnewheet() werkt niet naar behoren. De sub hernoemt de originele sheet waar de kalender op staat naar het jaartal ipv dat hij een nieuwe maakt met het desbetreffende jaartal. Ook moeten er in de 1e rij per kolom de datums worden geplakt, dat doet deze ook niet.
2. Sub loadmonth () geeft steeds de foutcode 1004, maar ik vermoed dat dat is omdat er niks te laden valt uit de andere sheet.
Ik hoor graag waar het fout gaat, ik heb echt gezocht maar ik kan het helaas nog niet vinden.
Bijlage:
1."IBKI planning" dit is waar de fouten in zitten.
2. "Kalender die ik namaak" dit is zoals het zou moeten zijn.
Ik ben voor de hobby een kalender aan het maken in excel aan de hand van een voorbeeld.
Youtube link naar voorbeeld: https://youtu.be/IWlCloFiWw4
Het voorbeeldbestand van wat ik aan het namaken was zit ook in de bijlage.
tldr: ik maak een activiteitenkalender waar er per jaar d.m.v. vba een extra tabblad gemaakt moet worden dat de naam van dat jaartal heeft. De functie van dat tabblad is om de activiteiten te bewaren die op die datum in de kalender worden gezet. Wanneer je dan weer op deze dag klikt dan haalt vba de gegevens vanuit de jaartal sheet en zet ze als samenvatting op de dag in de kalender.
De problemen:
1. Sub addnewheet() werkt niet naar behoren. De sub hernoemt de originele sheet waar de kalender op staat naar het jaartal ipv dat hij een nieuwe maakt met het desbetreffende jaartal. Ook moeten er in de 1e rij per kolom de datums worden geplakt, dat doet deze ook niet.
Code:
Sub AddNewSheet()
Dim ShtNm As String
ShtNm = Blad1.Range("ScYear").Value
Sheets.Add
ActiveSheet.Name = ShtNm
Sheets("2018").Range("A1:NB1").Copy
Sheets("" & ShtNm & "").Range("A1:NB1").PasteSpecial xlPasteAll
Sheets("" & ShtNm & "").Range("A1") = "1/1/" & ShtNm
Application.CutCopyMode = False
'Sheets("" & ShtNm & "").Visible = xlHidden
Blad1.Activate
End Sub
2. Sub loadmonth () geeft steeds de foutcode 1004, maar ik vermoed dat dat is omdat er niks te laden valt uit de andere sheet.
Code:
Sub LoadDay()
With Blad1
.Calculate
.Range("B2").Value = True
ShtNm = .Range("ScYear")
ScCol = .Range("M42").Value
.Range("M4:M40").ClearContents
.Range("M4:M40").Value = Range(Sheets("" & ShtNm & "").Cells(2, ScCol), Sheets("" & ShtNm & "").Cells(38, ScCol)).Value
.Range("B2").Value = False
End With
End Sub
Ik hoor graag waar het fout gaat, ik heb echt gezocht maar ik kan het helaas nog niet vinden.
Bijlage:
1."IBKI planning" dit is waar de fouten in zitten.
2. "Kalender die ik namaak" dit is zoals het zou moeten zijn.