Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.05.2025 12:42:46
Zeilen löschen in Abhängigkeit
20.05.2025 09:37:18
Zellen-Name über alle Spalten bestimmen
20.05.2025 08:23:33
(Komplexe) PDF-Tabelle in Excel Tabelle konvertieren
19.05.2025 17:21:53
Kommentar als Kommentar in Nachbar-Zelle übertragen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile finden

Forumthread: 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:

Anzeige

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

Kategorie
Aufgabe
Tags
#datenmanagement #makros #vba
Relevante Fragen
Anzeige
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!
Anzeige
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

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

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige