Hallo WernerB.
26.04.2002 10:02:34
Wilhelm
du hast mir die schöne Geschichte:
Option Explicit
Sub LetzteZelleB()
Dim i As Integer
For i = 20 To 1 Step -1
If Cells(i, 2).Value > 0 Then
Cells(i, 2).Select
Exit For
End If
Next i
End Sub
zum finden des letzten Wertes in einer Spalte geschickt.
Das klappt in einem nackten Datenblatt (Tabelle1) wunderbar.
Ich kann durch verändern der Ziffer 2 in der Klammer die durchsuchten Spalten verändern, läuft also.
Wenn ich das Teil nun in meine eigentliche Datei einbaue, und hier spielt die Musik in Spalte E (E17:E52) verändere ich demenstprechend 2 mal die 2 in cells(i, 2) in eine 5 und dann hängts.
Es wird regelmässig Zelle 20 in Spalte 5 aktiviert. Ende
Verändere ich die i = 20 in I= 52 dann hängts halt auch auf 52 rum.
Was mache ich falsch?
Wilhlem