Letzte beschriebene Zelle im Zellbereich

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo zusammen,

ja, letzte in Spalte ... End(xlUp)
Eigentlich genau das gleich, nur ein paar Schritte mehr:
_ letzte Zelle im Bereich nehmen, wenn nicht leer, that's it
_ wenn leer, dann die erste nicht leer nach oben mit End(xlUp) finden

Function Letztebefüllte(rng As Range) As Range

Dim Z

    Set Z = rng.Cells(rng.Cells.Count) 'Letzte Zelle vom Bereich

    If Z.Value = "" Then Set Z = Z.End(xlUp)

    Set Letztebefüllte = Z

End Function



Sub test()

    Debug.Print Letztebefüllte(ActiveSheet.Range("C22:C83")).Address

End Sub

der Haken dabei: wenn der gesamte getestete Bereich C22:C83 leer ist, bekommt man eine Zelle ausserhalb des Bereiches. Das muss man testen und dementsprechend agieren:

Sub test()

Dim Z

    

    Set Z = Letztebefüllte(ActiveSheet.Range("C22:C83"))

    If Intersect(ActiveSheet.Range("C22:C83"), Z) Is Nothing Then

        'Ausserhalb, was nun?

    Else

        'ist drin also ...

        MsgBox Z.Address

    End

End Sub

Alternativ wäre in der Function "LetzteBefüllte" Nothing zu zurückgeben (Du musst abwegen, ob Du trotzdem die Zelle wissen willst, auch ausserhalb des Bereiches):

Function Letztebefüllte(rng As Range) As Range

Dim Z

    Set Z = rng.Cells(rng.Cells.Count) 'Letzte Zelle vom Bereich

    If Z.Value = "" Then Set Z = Z.End(xlUp)

    Set Letztebefüllte = Intersect(Z, rng) 'Z selbst, wenn drin, nothing sonst

End Function



Sub test()

Dim Z

    

    Set Z = Letztebefüllte(ActiveSheet.Range("C22:C83"))

    If Z Is Nothing Then

        'Ausserhalb, was nun?

    Else

        'ist drin also ...

        MsgBox Z.Address

    End

End Sub

VG
Yal

Moin,

"Weiterhin ist mir aufgefallen je öfter man es durchlaufen lässt desto mehr Fehlfunktionen treten auf."

vielleicht muss man hier was klarstellen: Computer machen, was man den sagt, und nicht "ich mache es einmal so, dann danach anders". Es sind daher keine "Fehlfunktion", sondern "Fehlanleitung" (daher der klassische Spruch "das Problem sitzt vor dem Computer").

Das Problem liegt in der Daten, die der Computer bewerten muss, um etwas zu machen: wenn diese sich im Lauf der Behandlung ändern, dann macht der Rechner immer noch, was man im gesagt hat: negative Werte rot, positive grün. Alles klar. Oh: jetzt sind alle Werte null und ich habe keine Anweisung, wie ich damit umgehen soll, dann bleibt alles grün oder rot trotz null.

Zweitens: Du gibt uns ein sehr eingeschränkte Teil des Gesamtes und redet von Sachverhalt ausserhalb von was Du gesprochen hatte. Es ging um "C22:C83" und jetzt spinnt es bei "C88:C113". Hmm... woher sollten wir das wissen?

Drittens: wir wissen gar nicht, was nach dem Prüfung passiert, auch auch nicht wie. Wenn Zelleninhalt per Code geändert werden und ein Worksheet_Change-Ereignis gibt, die nicht Ereignis-blockierend aggiert (Application.EnableEvents = False), dann hat man den Salat. Sehr wahrscheinlich ist es auch die Ursache deines Performance-Problem.

Kurzum, ohne eine von kritische Daten bereinigte, aber troztdem aussagekräftige Datei deinerseits ist es nur "ich sehe was, was Du nicht siehst"-Spiel.

VG
Yal

Beliebteste Forumthreads (12 Monate)

Letzte beschriebene Zelle im Zellbereich

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread