Goedenamiddag allen,

Als genealoog-veteraan (ben er al 25 jaar mee bezig) en zelf al enkele gepersonaliseerde excel-bestanden te automatiseren met VBA voor mijn eigen genealogie trok deze topic meteen mijn aandacht .

Ik heb niet alle berichten in dit topic gelezen omdat ik zag dat er al meteen op een goede manier geholpen werd door SoftAid en Della en er ondertussen dus al een mooi resultaat bekomen is.
Ik kan aan dat bestand zelf dus totaal niets bijdragen  ...

Maar toen ik dit :

Ik heb ook Aldfaer eens bekeken, wordt niet meer ondersteund en is zeker geen aanrader.
Maar ik bewonder het voorbeeld en de energie dat je er al ingestoken hebt.
 

las, kriebelde het toch een beetje om te reageren hierop.

@Della,
Ik gebruik zelf ook al 25 jaar Aldfaer en vraag me dus af waar juist jij gezien/gelezen hebt dat Aldfaer niet meer ondersteund zou worden?
Aldfaer is echt één van de beste programma's voor genealogie en wordt zeker en vast nog steeds ondersteund en regelmatig komen er
nieuwe updates uit.
Wél is het zo dat één van de extra opties (samenwerking met MyHeritage) niet langer ondersteund wordt maar dat heb je ook niet perse nodig.
Toen ik 25 jaar geleden gestart ben met Aldfaer was die optie er ook niet en heb ze bij de inbreng ervan ook nooit gebruikt desondanks
ik wel een account heb bij MyHeritage.

Ik wou hier dus gewoon eventjes een kleine rechtzetting maken dat Aldfaer nog steeds ondersteund wordt en dus zeker nog steeds een
aanrader is 

groetjes,
Bieke

Hoi,

Klein vraagje, met deze macro haal ik een csv op in een bepaalde dircetory

hij zet deze neer in A1

maar als ik weer de zelfde csv ophalen zet hij die niet neer in A1 maar de cel ernaast
is het mogelijk voordat ik de csv ophalen dat A1:H150 leeg wordt gemaakt en dan de macro runt en de csv ophaald

en mss nog een vraagje is het mogelijk dat excel op een bepaalde tijd de csv automatisch ophaalt

ik gebruikt de volgende macro

Sub CSV_Import()
Dim ws As Worksheet, strFile As String
 
Set ws = ActiveWorkbook.Sheets("Blad1") 'set to current worksheet name
strFile = "C:\Test\test.csv"
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1"))
    .TextFileParseType = xlDelimited
    'geef de scheidingstekens op:
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = True
    .TextFileSpaceDelimiter = False
    .TextFileCommaDelimiter = False
    .Refresh
End With
End Sub
 
Private Sub Workbook_Open()
CSV_Import
End Sub
Alvast weer bedankt

@Della
Of
@ iemand... 

Doe ik hier iets fout Della?
0 pt;0 pt;40 pt;20 pt;65 pt;65 pt;0 pt;0 pt;0 pt;0 pt;45 pt;20 pt;40 pt
Dit is voor de postcode en plaat bij te voegen in LB03
Hier heb ik niks aan verandert...
Misschien ligt het hier aan..
Private Sub LB03_Click()
For i = 0 To 9
    Me("T_0" & i) = LB03.Column(i)
Next
For i = 10 To 20
    Me("T_" & i) = LB03.Column(i)
Next
T_24 = LB03.Column(21)
T_25 = LB03.Column(22)
T_26 = LB03.Column(23)
T_27 = LB03.Column(24)
T_28 = LB03.Column(25)
T_29 = LB03.Column(26)
T_30 = LB03.Column(27)
T_31 = LB03.Column(28)
T_32 = LB03.Column(29)
T_33 = LB03.Column(30)
T_34 = LB03.Column(31)
T_35 = LB03.Column(32)
LB02.ListIndex = -1
On Error Resume Next
Img00.Picture = LoadPicture(ThisWorkbook.Path & "\plaatjes\" & T_20.Value)
End Sub

Ik krijg nu tot aan datum in de listbox..
0 pt;0 pt;40 pt;20 pt;65 pt;65 pt;0 pt;0 pt;0 pt;0 pt;45
de laatste twee worden niet opgenomen.

Once again
Bedankt al bij voorhand

Vervang die JA in de formule dan voor een verwijzing naar cel C2? Ook al zal deze niet helemaal goed werken als je geen filter op je tabel hebt. Maar doe een poging zou ik zeggen. 

mvdlist, ook deze weer een leuk speledingetje.