Schleife



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Schleife
von: Nick
Geschrieben am: 05.07.2002 - 10:24:14

Hallo
Könnt ihr mir sagen wie ein Makro heißen muss das die Spalte B durchsucht solange bis der Wert < 0 ist und dan in der Zelle bleibt in der letzte Wert >0 steht.
Danke schon im Voraus.

nach oben   nach unten

Re: Schleife
von: Hajo_Zi
Geschrieben am: 05.07.2002 - 10:29:12

Hallo Nick

eigentlch kann in VBA auf Select und ähnliches verzichtet werden


Sub Suchen()
    Dim Letzte As Long
    Dim As Long
    If [B65536] = "" Then
        Letzte = [B65536].End(xlUp).Row
    Else
        Letzte = 65536
    End If
    For I = 1 To Letzte
        If IsNumeric(Cells(I, 2)) And Cells(I, 2) < 0 Then
            Cells(I, 2).Select
            Exit For
        End If
    Next I
End Sub

Gruß Hajo


nach oben   nach unten

Re: Schleife
von: andreas e
Geschrieben am: 05.07.2002 - 10:31:33

hallo nick,
versuchs mal so

Sub kleiner()
Dim z
z = 1
Do Until Cells(z, 2) < 0
z = z + 1
Loop
Cells(z - 1, 2).Select
End Sub

gruß
andreas e


nach oben   nach unten

Re: Schleife
von: Jens Huthmann
Geschrieben am: 05.07.2002 - 10:33:15

Hallo Nick,

Sub Suche()
Do Until [b1].Offset(i, 0) < 0
i = i + 1
Loop
If i < 1 Then i = i + 1
[b1].Offset(i - 1, 0).Select
End Sub

Gruß
Jens


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Schleife"