Letzte aktivierte Zeile in Spalte B

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

Betrifft: Letzte aktivierte Zeile in Spalte B von: Erich M.
Geschrieben am: 06.02.2005 17:34:06

Hallo EXCEL-Freunde,

mit folgendem Code wird in einer MsgBox die letzte benutzte Zeile in Spalte B
angezeigt:


Sub letztezelle()
   MsgBox ("Die letzte Zeile der Spalte B ist: ") & Range("B65536").End(xlUp).Row
End Sub


Wie kann ich das Ergebnis statt in einer MsgBox in die Zelle K3 einer Tabelle
eintragen lassen?
Komfortabel wäre es noch, wenn eine neue Zeile beschrieben wird, dass dann
K3 aktualisiert wird.

Besten Dank für eine Hilfe!

mfg
Erich
http://www.toolex.de
Bild


Betrifft: AW: Letzte aktivierte Zeile in Spalte B von: Ulf
Geschrieben am: 06.02.2005 17:50:24

Den Code ins Modul des betreffenden Blatts kopieren:


Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
[k3] = Range("B" & Rows.Count).End(xlUp).Row
Application.EnableEvents = True
End Sub


Ulf


Bild


Betrifft: ...was gefunden: von: Erich M.
Geschrieben am: 06.02.2005 17:51:10

http://www.excelformeln.de/formeln.html?welcher=48

damit geht es auch!
(für VBA-Lösung wäre ich trotzdem noch dankbar)

mfg
Erich
http://www.toolex.de


Bild


Betrifft: AW: Letzte aktivierte Zeile in Spalte B von: Klaus-Dieter
Geschrieben am: 06.02.2005 17:52:21

Hallo Erich,

so geht es:

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
    Cells(3, 11) = Range("B65536").End(xlUp).Row
End If
End Sub


Das Makro kommt in das Modul des Tabellenblattes.


Gruß Klaus-Dieter




Bild


Betrifft: Danke - Klaus-Dieter; jetzt alles gelöst; o.T. von: Erich M.
Geschrieben am: 06.02.2005 18:54:27

.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Letzte aktivierte Zeile in Spalte B"