eerst volgende lege rij in excel...

[tomwerf]

Hallo allemaal,

Ik wil graag in een vb script in excel de eerst volgende lege cel selecteren...

    Range("A1").Select
    temp = 1
    Do While Range("B1")(temp, 1) <> ""
    temp = temp + 1
    Loop

als ik dit script uitvoer krijg ik fout 2023 te zien...

Weet iemand hoe ik dit werkende kan krijgen???

Alvast bedankt :thumb:

 

[Ellasar]

Hmmz, kleine aanpassing qua range gedaan in de do while loop en een check of hij de juiste cell kan vullen
maar verder draaide jou script hoor

Option Explicit

Public Sub zoek_lege_cell()
Dim temp As Integer

    Range("A1").Select
    temp = 1

    Do While Range("A1")(temp, 1) <> ""
    temp = temp + 1
    Loop

Cells(temp, 1) = "deze cell was leeg"
End Sub

 

[tomwerf]

Hartstikke bedankt...

Weer wat geleerd in visual basic...
van je eigen fouten leer je altijd het meest

groeten van Tom