Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

variablen Bereich auslesen

Forumthread: variablen Bereich auslesen

variablen Bereich auslesen
11.10.2007 13:29:00
Ralf
Hallo Zusammen,
hier nochmal mein Problem von gestern. Ich habe die Datei mal hochgeladen.
https://www.herber.de/bbs/user/46687.xls
Wie gesagt der Bereich in Spalte B auf Blatt "TRAIN_KOMALOG" ist variablel. Es kann mal B2:B5 oder B2:B20 oder was auch immer sein. Wie kann man das machen?
Gruß Ralf

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: variablen Bereich auslesen
11.10.2007 13:31:00
Ralf
Ups,
in der Datei muss man das Makro "Suche TRAIN Werte" ausführen....

AW: variablen Bereich auslesen
13.10.2007 11:47:17
Gerd
Hallo Ralf,
guck mal, ob Du damit hinkommst.

Sub test()
Dim lngSuchbegriffZeile As Long, lngGefundenZeile As Long
Dim wsTrain As Worksheet, wsAuftrag As Worksheet, rngLfdeNummern
Set wsTrain = Worksheets("TRAIN_KOMALOG")
Set wsAuftrag = Worksheets("Aufträge")
With wsAuftrag
Set rngLfdeNummern = .Range(wsAuftrag.Cells(2, 1), .Cells(Rows.Count, 2).End(xlUp))
For lngSuchbegriffZeile = 2 To wsTrain.Cells(Rows.Count, 1).End(xlUp).Row
If Not IsEmpty(wsTrain.Cells(lngSuchbegriffZeile, 2).Value) Then
lngGefundenZeile = 0
On Error Resume Next
lngGefundenZeile = rngLfdeNummern. _
Find(CLng(wsTrain.Cells(lngSuchbegriffZeile, 2).Value), _
lookat:=xlWhole, LookIn:=xlValues).Row
On Error GoTo 0
If lngGefundenZeile > 0 Then .Cells(lngGefundenZeile, 6).Value = "e"
End If
Next
End With
End Sub


Gruß Gerd

Anzeige
AW: variablen Bereich auslesen
22.10.2007 14:22:30
Ralf
Hallo Gerd,
hat prima geklappt.
Vielen Dank dafür
Gruß Ralf
;

Beliebteste Forumthreads (12 Monate)

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