Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.10.2025 15:11:39
Werte aus Zellen in Punktdiagramm, Beschriftung
10.10.2025 11:07:34
"Text in Spalten" ändert die Zahl von 21.1 in 45678
10.10.2025 10:11:05
geöffnete Excel-Datei mit variablen Namen finden
10.10.2025 09:38:53
Spalten aus 2 Tabellenblättern mit Array abgleichen
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
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
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