letzte zahl in spalte

mit diesem Makro kannst Du Dir Deinen Wunsch erfüllen; wie Du es aber mit einer Userform verknüpfen kannst, kann ich Dir leider nicht sagen:

Option Explicit
Sub LetzteZahl()
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 "Eine Zelle mit Zahlenwert wurde nicht gefunden !", _
        vbExclamation, "Hinweis für " & Application.UserName & ":"
    Else
      MsgBox "Der letzte Zahlenwert steht in Zeile " & laN, _
        vbExclamation, "Hinweis für " & Application.UserName & ":"
    End If
End Sub

Hallo Antonia,
schau Dir das mal an:

Sub Letze_Zeile_mit_Zahl()
  Dim intRow As Integer, intLastRow As Integer
  intLastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
  For intRow = intLastRow To 1 Step -1
    If Application.CountA(Rows(intRow)) = 0 Then
      intLastRow = intLastRow - 1
    Else
      Exit For
    End If
  Next intRow
  For intRow = intLastRow To 1 Step -1
    If IsNumeric(Cells(intRow, 1)) Then
      MsgBox "Zeile " & intRow
      Exit Sub
    End If
  Next intRow
End Sub

Gruss Rolf

Re: letzte zahl in spalte
von: Antonia
Geschrieben am: 11.05.2002 - 19:26:40

Vielen Dank an euch beide
werde hoffentlich jetzt auch klarkommen

Antonia