Letzte aktive Zeile Spalte A

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim inSchalter As Integer ' Schleifenvariable ' bezieht sich auf die Symbolleiste With Application.CommandBars("Benutzerdefinierte AddIns") ' Schleife über alle Schalter der Symbolleiste For inSchalter = 1 To .Controls.Count ' der Schalter hat den ToolTiptext If .Controls(inSchalter).TooltipText = "Active Tabelle" Then ' Name der aktiven Tabelle auf die Caption des Schalters schreiben .Controls(inSchalter).Caption = ActiveSheet.Name Exit For End If Next inSchalter End With End Sub

Private Sub Workbook_Open() Dim i% i = Application.CommandBars(1).Controls.Count With Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:= _ msoControlButton, before:=i + 1, Temporary:=True) .Caption = "&IV zurück" .OnAction = "IV_zurück" .Style = msoButtonIconAndCaption End With End Sub

Option Explicit Private Sub Workbook_Open() Dim i% i = Application.CommandBars("Worksheet Menu Bar").Controls.Count With Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:= _ msoControlButton, before:=i + 1, Temporary:=True) .Caption = "&IV zurück" .OnAction = "IV_zurück" .Style = msoButtonIconAndCaption End With With Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:= _ msoControlButton, before:=i + 2, Temporary:=True) .Caption = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _ Count) .TooltipText = "Letzte Zeile" .Style = msoButtonCaption End With End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) button_anzeige End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Column 1 Then Exit Sub button_anzeige End Sub

Option Explicit Public inSchalter As Integer Sub button_anzeige() With Application.CommandBars("Worksheet Menu Bar") For inSchalter = 1 To .Controls.Count If .Controls(inSchalter).TooltipText = "Letzte Zeile" Then .Controls(inSchalter).Caption = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows. _ Count, 1).End(xlUp).Row, Rows.Count) Exit For End If Next inSchalter End With End Sub

Hallo Karin,
GENIAL - Danke!
Noch eine abschließende Frage:
Meinen Code für die Erzeugung der Buttons Menüleiste habe ich in der personl.xls Datei (also wird
der Button erzeugt, wenn EXCEL startet).
Die Ermittlung der letzten Zeile erfolgt jetzt nur, wenn die Codes


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
button_anzeige
End Sub


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column  1 Then Exit Sub
button_anzeige
End Sub

in der Datei/DieseArbeitsmappe eingetragen werden, in der die Tabellen sind. Ist zwar nicht weiter schlimm,
weil ich halt in jede Datei diesen Code kopiere. Aber wenns hier auch noch einen Trick gäbe,
dies in der zentralen peronl.xls zu verankern wärs optimal.
Auf alle Fälle ists super, weil ich sehr oft mit "letzter Zeile" arbeite.
Besten Dank!
mfg
Erich

HI
wenn das nur für bestimmte Excel-Dateien gelten soll, dann würde ich für diese Anzeige die Statuszeile nutzen und folgende Makro-Gruppe verwenden (einzutragen in das Modul "DieseArbeitsmappe")
die aktuell letze Zeile der Spalte A im aktuellen Blatt wird angezeigt, wenn
- die Datei geöffnet wird
- innerhalb der Datei das Tabellenblatt gewechselt wird
- wenn die die Datei aktiviert wird (dh. von einer anderen Exceldatei gewechselt wird)
die Statuszeile wird wieder freigegeben wenn
- die Datei geschlossen wird
- in eine andere Exceldatei gewechselt wird:


Private Sub Letzte_Zeile_anzeigen()
Application.StatusBar = "Letzte Zeile in Spalte A: " & ActiveSheet.Cells(Rows.Count, 1).End( _
xlUp).Row
End Sub


Private Sub Workbook_Activate()
Call Letzte_Zeile_anzeigen
End Sub


Private Sub Workbook_Open()
Call Letzte_Zeile_anzeigen
End Sub


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call Letzte_Zeile_anzeigen
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.StatusBar = False
End Sub


Private Sub Workbook_Deactivate()
Application.StatusBar = False
End Sub

ich denke, das ist etwas weniger kompliziert als ne anzeige in der Menüleiste, aber ich lass die Frage mal offen, falls es nicht das ist was du haben willst.
Gruß, Daniel
ps. mit folgendem Zusatzmakro (im gleichen Modul) kannst du die Anzeige immer akutell halten, wenn du in einem Tabellenblatt Zeilen einfügst oder löschst:


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call Letzte_Zeile_anzeigen
End Sub

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread