VBA / Excel 2000 / Find første tomme celle i kolonne

Worksheet("Ark1").Range("A" & Worksheet("Ark1").Range("A1").End(xlDown).Row)

Fungerer ikke... - min vba kan ikke genkende syntaksen og den fejler også, hvis der kun står noget i første række (Det var ca. det samme jeg selv nåede frem til ved at optage en makro)

Det kan være det er fordi det hedder WorksheetS og ikke worksheet som jeg har skrevet i begge tilfælde.

Worksheets("Ark1").Range("A" & Worksheets("Ark1").Range("A1").End(xlDown).Row)

Eller du kan loope igennem rækkerne

Sub Makro1()
  Dim Rækkenr As Long
  Do While Rækkenr < 65536
    Rækkenr = Rækkenr + 1
    If Worksheets("Ark1").Cells(Rækkenr, 1).Value <> "" Then
      MsgBox "I rækken " & Rækkenr & " er indholdet af cellen " & Worksheets("Ark1").Cells(Rækkenr, 1).Value
      Exit Sub
    End If
  Loop
  MsgBox "Alle celler er tomme"
End Sub

Ja - jeg er altså fan af .Cells(i,j)  ;o)))

Følgende funktion returnere din tomme celle som range:

Public Function FindTomCelle(kolonne As Range) As Range
    Dim celle As Range
    For Each celle In kolonne
        If celle.Value = "" Then
            Set FindTomCelle = celle
            Exit Function
        End If
    Next
End Function

Funktionens parameter kan sagtens være et range over flere kolonner.

Mange tak for forslagene - jeg endte op med et helt andet alternativ, som måske ikke er så oplagt i forhold til formuleringen af mit spørgsmål, men alligevel virker fint i mit tilfælde.

ThisWorkbook.Worksheets("arknavn").Activate
Worksheets("arknavn").Range("A1").Activate
Set TmpCell = ActiveCell.Offset(ActiveCell.CurrentRegion.Rows.Count, 0)