Spalte von unten nach oben durchsuchen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Spalte von unten nach oben durchsuchen
von: erich
Geschrieben am: 02.07.2002 - 14:57:46

Hallo Profis,
ich möchte in meiner Tabelle die Spalte von unten nach oben durchsuchen und nicht von oben nach unten, ist das möglich?
momentan verwende ich nachfolgenden code!

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Schrottkarossen").Activate
Dim As String
    Dim Zeile As Long
    Dim Bereich As Range
    Dim Letzte As Long
    If [e65536] = "" Then
        Letzte = [e65536].End(xlUp).Row
    Else
        Letzte = 65536
    End If
    Set Bereich = Sheets("Schrottkarossen").Range("e1:e" & Letzte) _
        .Find(TextBox1, lookat:=xlWhole)
    If Bereich Is Nothing Then
        MsgBox "Begriff " & TextBox1 & " konnte nicht gefunden werden!"
    Else
        Zeile = Bereich.Row
        Cells(Zeile, 16) = TextBox2
        Cells(Zeile, 17) = TextBox3
    End If
    TextBox3 = Now
    TextBox2 = ""
    TextBox1 = ""
Sheets("übersicht").Activate
Application.ScreenUpdating = False
End Sub

was mus ich ändern um von unten nach oben die spalte zu durchsuchen?

mfg
erich

nach oben   nach unten

Re: Spalte von unten nach oben durchsuchen
von: Hajo_Zi
Geschrieben am: 02.07.2002 - 15:17:17

Hallo Erich

von hinten nach vornen suchen habe ich noch keine Variante mit find gesehen. Ich Vermute das geht nur über eine Schleife.


Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Sheets("Schrottkarossen").Activate
    Dim As String
    Dim Zeile As Long
    Dim Bereich As Range
    Dim Letzte As Long
    Dim As Long
    If [e65536] = "" Then
        Letzte = [e65536].End(xlUp).Row
    Else
        Letzte = 65536
    End If
    For I = Letzte To Step -1
        If Cells(I, 5) = Textbox1 Then Exit For
    Next I
    If I = 0 Then
        MsgBox "Begriff " & Textbox1 & " konnte nicht gefunden werden!"
    Else
        Zeile = Bereich.Row
        Cells(Zeile, 16) = TextBox2
        Cells(Zeile, 17) = TextBox3
    End If
    TextBox3 = Now
    TextBox2 = ""
    Textbox1 = ""
    Sheets("übersicht").Activate
    Application.ScreenUpdating = True
End Sub

Application.ScreenUpdating habe ich am Ende wieder auf True gesetzt.

Gruß Hajo


nach oben   nach unten

Re: Spalte von unten nach oben durchsuchen
von: erich
Geschrieben am: 02.07.2002 - 15:27:07

hallo hajo,
danke für deine antwort, genügt mir vollkommen. danke

mfg
erich


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Spalte von unten nach oben durchsuchen"