letzte zahl in spalte

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


Excel-Version: 97
nach unten

Betrifft: letzte zahl in spalte
von: Antonia
Geschrieben am: 11.05.2002 - 17:16:18

Wenn ich in Spalte A Zahlen und Text habe wie finde ich die letzte Zahl in Spalte A (VBA UserForm)

nach oben   nach unten

Re: letzte zahl in spalte
von: Arnim
Geschrieben am: 11.05.2002 - 17:26:02

Hallo Antonia,

in VBA weiß ich es nicht. Aber nimm diese:
http://www.excelformeln.de/formeln.html?welcher=48

Gruß Arnim

nach oben   nach unten

Re:Noch offen: letzte zahl in spalte
von: Antonia
Geschrieben am: 11.05.2002 - 17:28:38

Mit einer Formel ist mir dies schon klar
aber in VBA hab ich noch Schwierigkeiten

nach oben   nach unten

Re: letzte zahl in spalte
von: WernerB.
Geschrieben am: 11.05.2002 - 18:54:03

Hallo Antonia,

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 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 "Der letzte Zahlenwert steht in Zeile " & laN, _
        vbExclamation, "Hinweis für " & Application.UserName & ":"
    End If
End Sub

Viel Erfolg wünscht
WernerB.

nach oben   nach unten

Re: letzte zahl in spalte
von: Rolf, Lgh.
Geschrieben am: 11.05.2002 - 19:09:27

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 Step -1
    If Application.CountA(Rows(intRow)) = 0 Then
      intLastRow = intLastRow - 1
    Else
      Exit For
    End If
  Next intRow
  For intRow = intLastRow To Step -1
    If IsNumeric(Cells(intRow, 1)) Then
      MsgBox "Zeile " & intRow
      Exit Sub
    End If
  Next intRow
End Sub

Gruss Rolf
nach oben   nach unten

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


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "letzte zahl in spalte"