VBA: in erste Zeile mit "" springen

Hallo,

ich habe mir verschiedene kleine Makros gebastelt. Folgendes möchte ich nun ändern und komme nicht drauf:

Sub letztezelleaktuellespalte()
Cells(Rows.Count, ActiveCell.Column).End(xlUp).offset(1, 0).Select
End Sub

Mit dem Makro springt der Cursor immer ans Ende der aktiven Spalte (egal ob in der Spalte Werte oder Formeln stehen).

Ich habe viele Formeln mit WENNFEHLER, z.B. in Zelle Z2000:

~=WENNFEHLER(SVERWEIS(Y2000;hoch!$A$5:$C$18;3);"")~

Wenn jetzt in Z1999 noch ein Wert ermittelt wird und in Zelle Z2000 ein "" eingetragen wird, dann soll mit dem Makro der Cursor in die Zelle Z2000 springen, also die erste Zeile der Spalte mit "".

Wie muss ich den Code anpassen?

Vielen Dank für eine Hilfe.

mfg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub letztezelleaktuellespalte() Dim Offs As Single Dim lz As Range Set lz = Cells(Rows.Count, ActiveCell.Column).End(xlUp) If lz > "" Then Offs = 1 lz.Offset(Offs, 0).Select End Sub

Sub Unit() Dim C As Range If Not TypeOf Selection Is Range Then Exit Sub Set C = ActiveSheet.Cells(ActiveSheet.Rows.Count, ActiveCell.Column).End(xlUp) Do While C = "" And (C.HasFormula Or C.HasArray) If C.Row > 1 Then Set C = C.Offset(-1) Loop C.Offset(1).Select End Sub

Hi
für die Spungfunktion End(xlup) ist es unterheblich, was die Formel ausgibt. in der Zelle steht eine Formel, damit ist die Zelle gefüllt und die erste Zelle mit Formel ist das Sprungziel.
Im Prinzip ist auch der Text "" für Excel und VBA keine Leerzelle, sondern eine Zelle mit Textinhalt, weil "" auch ein Text ist und Zellen mit Formel nicht leer sein können, egal was die Formel ausgibt.

Hier könnte helfen, die erste Zelle zu suchen, die mindestens ein Zeichen enthält:

ActiveCell.EntireColum.Find(What:="?*", lookat:=xlwhole, lookin:=xlvalues, searchdirection:=xlprevious).Select

? ist der Joker für ein beliebiges Zeichen und * der Joker für beliebige Zeichen. Es wird also die nächste Zelle gefunden, die mindestens ein Zeichen enthält.
die Suche beginnt normalerweise in der ersten Zelle des Zellbereichs und das Searchdirection:=xlprevious gibt an, dass nicht von oben nach unten, sondern von unten nach oben gesucht wird.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

VBA: in erste Zeile mit "" springen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: in erste Zeile mit "" springen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread