Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
912to916
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
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige