Wegschrijven naar Excel

[gbvdh]

Goedenmorgen,

Ik heb net als gisteren een probleempje met het wegschrijven van gegevens, maar dit keer niet naar een text bestand maar naar een excel file.
Ik wil graag de datum en de waarde uit een textbox wegschrijven naar de eerste lege rij in een excel bestand. Had ik zelf bedacht (gehoopt eigenlijk) dat dit zou werken:

    For xx = 2 To 100
        If Range("A" & xx) = Empty Then
            Range("A" & xx) = dDate
            Range("B" & xx) = TextBox8.Value
       Else
            Next xx
       End If

Maar helaas werkt dit niet, aangegeven fout is: Next zonder For. Als ik de Next xx na de end if zet wordt vanzelfsprekend meteen t/m rij 100 beschreven met de informatie. Is er een manier waarop ik deze informatie slechts in 1 rij weggeschreven wordt?

Bij voorbaat dank,

Barry

 

[Wigi]

Dim rij As Long
rij = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & rij + 1) = dDate
Range("B" & rij + 1) = TextBox8.Value

 

[gbvdh]

Dat werk inderdaad prima, dank u.
Het limiet hieraan is ook gewoon de maximale rijlengte van Excel of niet?

 

[Wigi]

Ja, 2^16 (65536) rijen. In Excel 2007 is dat veel ruimer.