Microsoft Excel

Herbers Excel/VBA-Archiv

Zeile finden

    Betrifft: Zeile finden von: Erich M.
    Geschrieben am: 05.10.2003 10:25:06

    Hallo zusammen,

    ich muss per Makro eine Zeile finden, ab der bestimmte Daten
    hineinkopiert werden sollen (und evtl. auch alte Daten überschrieben werden).
    Dabei ist in Spalte "D" die Jahreszahl immer aufsteigend sortiert.
    Sobald die letzte Zeile mit "2002" erreicht ist, sollen in die nächsten zeilen
    ab Spalte A Daten hineinkopiert werden; so sieht die Tabelle aus:

    Tabelle1
     ABCD
    1KundeOrtGruppeJahr
    2AlleAneu2002
    3NummerBalt2002
    4NeuCalt2002
    5AltDneu2002
    6WunschEalt2002
    7GehtAneu2003
    8KommtBneu2003
    Excel Tabellen einfach im Web darstellen   Excel Jeanie HTML  2.0    Download   In diesem Fall suche ich per makro nun "A7". Besten Dank für eine Hilfe! mfg Erich
      


    Betrifft: Habs gefunden: von: Erich M.
    Geschrieben am: 05.10.2003 11:00:52

    Sub aasuchen()
       Dim LRowA As Integer, LRowG As Integer, i As Integer
       Dim rgAnf As String
        
    LRowA = Cells(Rows.Count, 4).End(xlUp).Row
    LRowG = Cells(Rows.Count, 4).End(xlUp).Row
    For i = LRowA To 1
       If Cells(i, 4).Value = "2002" Then
          rgAnf = Cells(i, 4)
          Exit For
       End If
    Next i
    Range(Cells(i - 1, 1), Cells(LRowG, 4)).Select
    
    End Sub
    


    Besten Dank!


      


    Betrifft: AW: Zeile finden von: Beni
    Geschrieben am: 05.10.2003 11:49:22

    Hallo Erich,
    Du bist Heute nicht zum erstenmal hier und rechnete damit, dass Du dich nochmals melden wirst, in der Zwischenzeit habe das herausgeknobelt.
    Gruss Beni

    Sub von_unten_nach_oben_suchen()
       Dim LRowA As Integer, LRowG As Integer, i As Integer
       Dim rgAnf As String
    LRowA = Cells(Rows.Count, 4).End(xlUp).Row
    LRowG = Cells(Rows.Count, 4).End(xlUp).Row
    For i = LRowA To 1 Step -1
    'For i = LRowA To 1
       If Cells(i, 4).Value = "2002" Then
         Range(Cells(i + 1, 1), Cells(LRowG, 4)).Select
          Exit For
       End If
    Next i
    End Sub
    



      


    Betrifft: AW: Zeile finden von: Beni
    Geschrieben am: 05.10.2003 11:52:43

    Hallo Erich,
    Du bist Heute nicht zum erstenmal hier und rechnete damit, dass Du dich nochmals melden wirst, in der Zwischenzeit habe das herausgeknobelt.
    Gruss Beni


    Sub von_unten_nach_oben_suchen()
       Dim LRowA As Integer, LRowG As Integer, i As Integer
       Dim rgAnf As String
    LRowA = Cells(Rows.Count, 4).End(xlUp).Row
    LRowG = Cells(Rows.Count, 4).End(xlUp).Row
    For i = LRowA To 1 Step -1
    'For i = LRowA To 1
       If Cells(i, 4).Value = "2002" Then
         Range(Cells(i + 1, 1), Cells(LRowG, 4)).Select
          Exit For
       End If
    Next i
    End Sub
    



      


    Betrifft: DANKE - Beni!! o.T. von: Erich M.
    Geschrieben am: 05.10.2003 12:11:07

    .


     

    Beiträge aus den Excel-Beispielen zum Thema " Zeile finden"