Herbers Excel/VBA-Archiv

Do Until

• Do Until von Frank vom 25.08.2004 17:50:09
• AW: Do Until - von Ulf am 25.08.2004 17:55:01
  • AW: Do Until - von Frank am 25.08.2004 17:56:05
    • AW: Do Until - von Ulf am 25.08.2004 18:08:53
    • AW: Do Until - von GerdZ am 25.08.2004 18:09:54
• AW: Do Until - von Frank am 25.08.2004 18:16:17
  • AW: Do Until - von Ulf am 25.08.2004 18:22:12

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