Zeile finden

Bild

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
Bild


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!


Bild


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



Bild


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



Bild


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

.


 Bild

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