Microsoft Excel

Herbers Excel/VBA-Archiv

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

Zetzte Zelle (ohne Formel) anzeigen) | Herbers Excel-Forum


Betrifft: Zetzte Zelle (ohne Formel) anzeigen) von: Sergej
Geschrieben am: 07.02.2012 11:16:20

Hallo!

wie kann ich mir die letzte benutzte Zeile mit Inhalt im Tabellenblatt per VBA anzeigen lassen?
Die Ermittlung soll in der Spalte K stattfinden.
In der Spalte K habe ich Formeln stehen. Diese sollen bei der Ermittlung nicht berücksichtigt werden!

Danke vorab!

Gruß,
Sergej

  

Betrifft: AW: Zetzte Zelle (ohne Formel) anzeigen) von: Rudi Maintaire
Geschrieben am: 07.02.2012 12:25:10

Hallo,
als Ansatz:

Function LastCell(lngColumn As Long)
  Dim rng As Range, strRng
  On Error GoTo ErrHDL
  Set rng = Columns(lngColumn).SpecialCells(xlCellTypeConstants)
  strRng = rng.Address
  LastCell = Range(Split(strRng, ",")(UBound(Split(strRng, ",")))).Address
ErrHDL:
  If rng Is Nothing Then LastCell = "Fehler"
End Function

Sub xxx()
  MsgBox LastCell(11)
End Sub

Gruß
Rudi


  

Betrifft: AW: Zetzte Zelle (ohne Formel) anzeigen) von: mpb
Geschrieben am: 07.02.2012 18:52:20

Hallo Sergej,



meinst Du so:

Sub Letzte_Zelle_ohne_Formeln
MsgBox Columns("K:K").SpecialCells(xlCellTypeConstants, 23).SpecialCells(xlCellTypeLastCell). _
Address
End Sub

Gruß

Martin


Beiträge aus den Excel-Beispielen zum Thema "Zetzte Zelle (ohne Formel) anzeigen)"