Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeile finden

Zeile finden
05.10.2003 10:25:06
Erich M.
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:

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Habs gefunden:
05.10.2003 11:00:52
Erich M.

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!
AW: Zeile finden
05.10.2003 11:49:22
Beni
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

Anzeige
AW: Zeile finden
05.10.2003 11:52:43
Beni
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

DANKE - Beni!! o.T.
05.10.2003 12:11:07
Erich M.
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige