Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Wenn die aktive Zelle in letzter Zeile dann Makro | Herbers Excel-Forum


Betrifft: Wenn die aktive Zelle in letzter Zeile dann Makro von: Karsten
Geschrieben am: 11.11.2009 14:49:14

Hallo,

Kann mir jemand bei folgeden Befehl helfen:

Wenn die aktive Zelle in der letzten Zeile (also unten, über dem Tabellennamen) des sichtbaren Bereichs steht, soll Makro1 ausgeführt werden. Wenn nicht, dann weiter.

Danke für eure Hilfe.

Gruß
Karsten

  

Betrifft: Aktive Zelle in letzter sichtbarer Zeile? von: Erich G.
Geschrieben am: 11.11.2009 15:07:54

Hi Karsten,
probier mal

Sub aa()
   Dim rngVis As Range
   Set rngVis = Windows(1).VisibleRange
   If ActiveCell.Row = rngVis.Row + rngVis.Rows.Count - 1 Then
      MsgBox "Makro starten"
   End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort


  

Betrifft: AW: Aktive Zelle in letzter sichtbarer Zeile? von: Karsten
Geschrieben am: 11.11.2009 20:00:22

Hallo Erich,

besten Dank. Genau das meinte ich.

Gruß
Karsten


Beiträge aus den Excel-Beispielen zum Thema "Wenn die aktive Zelle in letzter Zeile dann Makro"