letzte Zahl in Spalte WernerB

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: letzte Zahl in Spalte WernerB
von: Antonia
Geschrieben am: 15.05.2002 - 08:00:39

Hatte ne Antwort von WernerB. vom 11.5/ 17.16
Dim i As Long, laR As Long, laN As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
For i = laR To 1 Step -1
If Not IsEmpty(Cells(i, 1)) Then
If IsNumeric(Cells(i, 1)) Then
laN = i
Exit For
End If
End If
Next i
If laN = 0 Then
MsgBox "Bitte eien Zahl eingeben"
Else
Textbox1.text = i
End If
Funktioniert auch soweit ganz gut nur soll er in Textbox1 die letzte gefundene Zahl ausgeben, was er aber nicht macht.
Was ist verkehrt oder fehlt ??

nach oben   nach unten

Re: letzte Zahl in Spalte WernerB
von: MikeS
Geschrieben am: 15.05.2002 - 10:45:10

Hallo Antonia,

ändere mal die Zeile ab:

Textbox1.text = Cells(i, 1).Value

Vielleicht klappt es. Hab den Code von WernerB abgeändert und da funktioniert es.


Sub LetzteZahl()
Dim As Long, laR As Long, laN As Long
    laR = Cells(Rows.Count, 1).End(xlUp).Row
    For i = laR To Step -1
      If Not IsEmpty(Cells(i, 1)) Then
        If IsNumeric(Cells(i, 1)) Then
          laN = i
          Exit For
        End If
      End If
    Next i
    If laN = 0 Then
      MsgBox "Eine Zelle mit Zahlenwert wurde nicht gefunden !", _
        vbExclamation, "Hinweis für " & Application.UserName & ":"
    Else
      MsgBox "Die letzte gefundene Zahl ist: " & Cells(i, 1), _
        vbExclamation, "Hinweis für " & Application.UserName & ":"
    End If
End Sub

Ciao MikeS

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "letzte Zahl in Spalte WernerB"