Microsoft Excel

Herbers Excel/VBA-Archiv

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

Suchen nach oben

Betrifft: Suchen nach oben von: Horst
Geschrieben am: 16.08.2004 08:31:21

Hallo,
mit folgendem Code will ich in einer Spalte die erste nicht leere Zelle suchen.
Es wird mir jedoch die erste nicht leere Zelle weiter unten zurückgeliefert.
Ich habe Tests mit SearchDirection:=XlUP und xLDown gemacht, es kommt immer das gleiche Ergebnis.


Cells.Find(What:="*", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlUP, MatchCase:= _
False).Activate

Vielen Dank im Voraus
Horst

  


Betrifft: AW: Suchen nach oben von: Nike
Geschrieben am: 16.08.2004 08:39:36

Hi,
in der Recherche mal nach erster leeren Zelle suchen:

MsgBox Cells(Rows.Count, 1).End(xlUp).Row "Spalte A - Reihe der ersten freien Zelle"

Bye

Nike


  


Betrifft: Gehe zu: Unterste benutzte Zelle von: Beate Schmitz
Geschrieben am: 16.08.2004 08:43:36

Hallo Horst,

dieser Code springt zur letzten benutzten Zelle in Spalte A, gegebenenfalls anpassen):

Sub Letzte_nicht_leere_Zeile()
  ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Select
End Sub


Gruß,
Beate


  


Betrifft: Gehe zu: Oberste benutzte Zelle von: Beate Schmitz
Geschrieben am: 16.08.2004 08:46:03

Sorry, hatte Frage falschrum verstanden, muss sein für Spalte A:

Sub Letzte__leere_Zeile()
  Range("A1").End(xlDown).Offset(0, 0).Select
End Sub



 

Beiträge aus den Excel-Beispielen zum Thema "Suchen nach oben"