Microsoft Excel

Herbers Excel/VBA-Archiv

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

Letzte Zeile mit Wert??

Betrifft: Letzte Zeile mit Wert?? von: Timo
Geschrieben am: 20.09.2004 09:21:27

Guten Morgen alle miteinander,

ich habe eine Frage. Ich möchte ein paar Daten per Makro sortieren lassen. Da sich der Bereich der Daten, in denen Werte stehen ändern kann, ermittle ich die letzte Zeile über:
Cells(Rows.Count, 3).End(xlUp).Row

Mein Problem ist jedoch, dass ich 30 Zeilen mit Formeln belegt habe. Wenn in der Nachbarzelle kein Wert steht, schreibt die Formel mir in Ihre Zelle einbfach nur "", also eine leere Zelle. Für den Befehl
Cells(Rows.Count, 3).End(xlUp).Row
ist sie damit aber nicht leer und wird mit sortiert, genau das möchte ich aber nicht. Es sollen nur die Zellen sortiert werden, in denen wirklich ein Wert zu sehen ist.

Ich hoffe Ihr könnt mir helfen.

Gruß,

Timo

  


Betrifft: AW: Letzte Zeile mit Wert?? von: nosub
Geschrieben am: 20.09.2004 09:34:35

Range("B1").Select
p = Selection.CurrentRegion.Rows.Count


  


Betrifft: AW: Letzte Zeile mit Wert?? von: Timo
Geschrieben am: 20.09.2004 10:07:58

Danke nosub,

läuft aber nicht. Er sortiert weiterhin auch die Bereiche mit nur Formeln.

Wer kann mir helfen??

Gruß,

Timo


  


Betrifft: AW: Letzte Zeile mit Wert?? von: ypsilon
Geschrieben am: 20.09.2004 10:32:31

hi Timo,
probier mal:

Sub Letzte_Zelle_mit_Wert()
Dim zeile As Long
    For zeile = Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1
        If Cells(zeile, 3) <> "" Then
            MsgBox "Die letzte Zeile mit Wert ist Zeile " & Cells(zeile, 3).Row
            Exit For
        End If
    Next zeile
End Sub


cu Micha


  


Betrifft: Danke Euch allen für die Hilfe. Es funktioniert!! von: Timo
Geschrieben am: 20.09.2004 13:42:18




  


Betrifft: AW: Letzte Zeile mit Wert?? von: Ulf
Geschrieben am: 20.09.2004 10:31:35

Zuvor nach nichtleeren Zellen filtern.

Ulf


 

Beiträge aus den Excel-Beispielen zum Thema "Letzte Zeile mit Wert??"