Microsoft Excel

Herbers Excel/VBA-Archiv

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

Letzte Zelle mit Wert finden | Herbers Excel-Forum


Betrifft: Letzte Zelle mit Wert finden von: Lissa
Geschrieben am: 22.11.2009 15:17:19

Hallo,
Ich möchte in Spalte A in allen Zellen die Werte eintragen, aber in leeren Zellen die Formeln stehen lassen.
Es muss nur die letzte Zelle nichtleere Zelle gefunden werden und ab A2 markiert werden.
Ich habe nur Codes, mit denen der letzte Formeleintrag gefunden wird.
Vielen
Danke für jede Hilfe.
Gruß, Larissa

  

Betrifft: Letzte Zelle mit Wert finden mit Find-Methode von: Uwe Küstner
Geschrieben am: 22.11.2009 16:11:40

Hallo Larissa,

z.B. so:

Sub AAA()
  Dim rngB As Range
  On Error Resume Next
  Set rngB = Columns("A").Find(What:="*", LookIn:=xlValues, LookAt:=xlWhole, _
          SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
  If Not rngB Is Nothing Then
    If rngB.Row < 2 Then
      MsgBox "Nix gefunden"
    Else
      Set rngB = Range(Cells(2, rngB.Column), rngB)
      rngB.Select
    End If
  End If
End Sub

Gruß Uwe


  

Betrifft: Letzte Zelle mit Wert finden mit VERGLEICH von: Erich G.
Geschrieben am: 22.11.2009 18:32:19

Hi Larissa,
hier eine Umsetzung der Formel von http://www.excelformeln.de/formeln.html?welcher=48

Sub test()
   Dim lngZA As Long

   On Error Resume Next
   lngZA = Evaluate("=LOOKUP(2,1/(A1:A" & Rows.Count - 1 & "<>""""),ROW(A:A))")
   On Error GoTo 0
   
   If lngZA > 1 Then Cells(2, 1).Resize(lngZA - 1).Select
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort


  

Betrifft: Super, Danke!! von: Lissa
Geschrieben am: 22.11.2009 22:35:08

Hallo,
Vielen Dank,funktioniert super ;-)
Gruß, Lisssa


Beiträge aus den Excel-Beispielen zum Thema "Letzte Zelle mit Wert finden"