Microsoft Excel

Herbers Excel/VBA-Archiv

Do Until

Betrifft: Do Until von: Frank
Geschrieben am: 25.08.2004 17:50:09

Hallo,

was ist daran falsch??

Do Until Data.Cells(NumberRows, 1).Value = 0
Data.Cells(NumberRows, 1).Select
NumberRows = NumberRows + 1
Exit Do
Loop

Soll folgendes machen. Die Reihen runter gehen bis kein Wert mehr darin steht. Und mir dann irgendwo die Zahl ausgeben. ABer er meckert in der ersten Zeile...

Wäre Dankbar für jeden Hinweis,

Frank

  


Betrifft: AW: Do Until von: Ulf
Geschrieben am: 25.08.2004 17:55:01

Was soll data sein?

Ulf


  


Betrifft: AW: Do Until von: Frank
Geschrieben am: 25.08.2004 17:56:05

Hi,

Data ist ein vorher definiertes Worksheet. Ist halt nur ein Ausschnitt aus dem Code


  


Betrifft: AW: Do Until von: Ulf
Geschrieben am: 25.08.2004 18:08:53

Dann poste mal alles Relevante.

Ulf


  


Betrifft: AW: Do Until von: GerdZ
Geschrieben am: 25.08.2004 18:09:54

Hallo Frank,

hat NumberRows in dieser Zeile schon einen Wert?

Gruß
Gerd


  


Betrifft: AW: Do Until von: Frank
Geschrieben am: 25.08.2004 18:16:17

Hier alles relevante...


Dim NumberRows as Integer
Dim Data as Worksheet

Set Data = Sheets("Data")


NumberRows = 1

Do Until Data.Cells(NumberRows, 1).Value = 0
Data.Cells(NumberRows, 1).Select
NumberRows = NumberRows + 1
Exit Do
Loop


  


Betrifft: AW: Do Until von: Ulf
Geschrieben am: 25.08.2004 18:22:12

Dim NumberRows as Integer
Dim Data as Worksheet

Set Data = Sheets("Data")


NumberRows = 1

Do While Not IsEmpty(Data.Cells(NumberRows, 1))
Data.Cells(NumberRows, 1).Select
NumberRows = NumberRows + 1
Loop

Ulf