kopieeren naar juiste tabblad

[popipipo]

Maandelijks download ik knmi gegevens.
Hierin staan weergegevens van 35 stations onder elkaar in een bestand.
Ik wil dit opgesplitst hebben, elk station een apart tabblad.
Hoe kan ik nu de nieuwe gegevens onderaan bijschrijven bij de gegevens die ik al heb.

Ik heb al 2 bestandjes één die onderaan bestaande gegevens bijschrijft en één die gegevens uit een tabblad juist opsplitst naar nieuwe tabbladen.

Ik wil dus een combinatie van die twee en dat lukt mij dus niet:
Één handeling: onderaan bijschrijven op het juiste tabblad

 

[Wigi]

Waarom niet gewoon:

    Dim c As Range
    Dim ws As Worksheet
    Dim ws1 As Worksheet
    
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    
    For Each c In ws1.Range("A1", ws1.Range("A" & Rows.Count).End(xlUp))
        
        If WksExists(c.Text) Then
        
            Set ws = ThisWorkbook.Worksheets(c.Text)
            
        Else
        
            Set ws = ThisWorkbook.Worksheets.Add
            ws.Name = c.Text
        
        End If
        
        c.Resize(, 26).Copy ws.Range("A" & Rows.Count).End(xlUp).Offset(1)
        
    Next

Wigi

 

[popipipo]

Bedankt het werkt

Waarom niet gewoon:

Met mijn VBA kennis kon ik het niet verzinnen.

 

[Wigi]

Met mijn VBA kennis kon ik het niet verzinnen.

Wat geen oneer is Goed dat het nu werkt :thumb: