Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
352to356
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einzelne Zeile auslesen

Einzelne Zeile auslesen
17.12.2003 11:36:14
Jörg
Hallo,

wie kann ich einzelne zeilen aus einer Excel Datei auslesen? Die Liste ist nach Artikelnummern georgnet. Wenn jetzt ein Artikel mehrmals untereinander steht, d.h. dieselbe Artikelnummer steht auch mehrmals untereinander, möchte ich nur die unterste Zeile auslesen.
Vielleicht kann mir ja jemand dabei helfen.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einzelne Zeile auslesen
17.12.2003 11:46:07
Boris
Hi Jörg,

per VBA oder Formel? Per VBA:

Option Explicit


Sub finden()
Dim Such As Variant
Such = 5
Rows(Range("A:A").Find(Such, LookIn:=xlWhole, XlSearchDirection:=xlPrevious).Row).Select
End Sub


Grüße Boris
Korrektur: Ein "Xl" zuviel:
17.12.2003 11:48:32
Boris
Option Explicit


Sub finden()
Dim Such As Variant
Such = 5
Rows(Range("A:A").Find(Such, LookIn:=xlWhole, SearchDirection:=xlPrevious).Row).Select
End Sub

AW: Einzelne Zeile auslesen
17.12.2003 11:55:52
Michael Brueggemann
Hallo Joerg,

dieser Code liest die erste Spalte von 2 bis zur letzten Zeile und "verarbeitet" die jeweils letzte Zeile fuer eine Artikelnummer, indem er die naechste Zeile auf Ungleichheit ueberprueft.


Sub LetzteZeile_verarbeiten()
' Zeilenzaehler
Dim i As Integer
' Zeiger auf Blatt
Dim wks As Worksheet
' Zeiger auf zu verarbeitendes Blatt setzen (hier Blatt 1)
Set wks = ThisWorkbook.Sheets(1)
' von Zeile 2 bis Ende des benutzten Bereiches
For i = 2 To wks.UsedRange.Rows.Count
' Verarbeiten, wenn naechste Zeile andere Artikelnummer enthaelt
If wks.Cells(i + 1, 1).Value <> wks.Cells(i, 1).Value Then
' diese Zeile verarbeiten
MsgBox wks.Cells(i, 1).Value
End If  ' If wks.Cells(i + 1, 1).Value <> wks.Cells(i, 1).Value
Next i  ' For i = 2 To wks.UsedRange.Rows.Count
End 


Sub ' LetzteZeile_verarbeiten()
CIAO
Michael
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige