Herbers Excel-Forum - das Archiv

letzte Zahl in Spalte WernerB

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


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.

Ciao MikeS

 nach oben

Excel-Beispiele zum Thema "letzte Zahl in Spalte WernerB"
Letzte nichtleere Zelle ermitteln Letzter Wert in Zeile
Letztes Speicherdatum eintragen Letzter Wert aus einem Bereich
Letztes Speicherdatum in die Fußzeile aller Tabellenblätter Formel bis zur letzten Zeile der Nebenspalte kopieren
Letzte Zelle mit Inhalt suchen Letzte Zelle einer Spalte mit Inhalt aus geschlossener Arbeitsmappe
Letzte Verknüpfung in einem Tabellenblatt löschen Letztes Zeichen der Werte einer Zellauswahl hoch-/tiefstellen