Wieder mal gesucht: Rangebereich mit Kriterium

Hallo und Guten Morgen Forum,
letzte Woche wurde mir sehr geholfen mit der Definition eines Rangebereiches,
der Zellen beinhaltet, welche ein Blank haben (SpecialCells TypeBlank).
Nun habe ich die VB Hilfe durchgelesen und mir die anderen SpecialCells Eigenschaften
durchgelesen. Leider entdeckte ich nichts in der Art eines Strings sowie alle Zellen,
die als WERT FORUM enthalten.
Gibt es eine Möglichkeit einen Rangebereich so zu definieren, dass nur Zellen enthalten sind,
die als Wert FORUM enthalten?
Falls nicht, wäre meine zweite Idee, nicht die letzte Zelle zu ermitteln, sondern die letzte
Zelle, die Forum enthält und so den Rangebereich einzuschränken.
Leider kenne ich nur SpecialCellsTypeLastCell und weß nicht wie ich die letzte Zelle
anhand eines Strings ermitteln kann.
Ich habe ein Datenblatt mit ungefähr 40,000 Zeilen und ungefähr die ersten 5000
enthalten das FORUM. Daher möchte ich das einschränken.
Kann mir da jemand bitte helfen?
Gruß
Holger

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub BereicheZusammenfassen() Dim rngZelle As Range Dim rngBereich As Range For Each rngZelle In ActiveSheet.UsedRange.SpecialCells(xlConstants) If rngZelle = "FORUM" Then If rngBereich Is Nothing Then Set rngBereich = rngZelle Else Set rngBereich = Union(rngBereich, rngZelle) End If End If Next rngZelle MsgBox rngBereich.Address Set rngZelle = Nothing Set rngBereich = Nothing End Sub

Hi Holger,
ich würde einfach beide Methoden mal testen und für beide die Zeit ermitteln die sie benötigen. Dazu kannst du an den Anfang des Codes die Zeile Range("A1") = Now und ans Ende Range("A2") = Now schreiben (Zelladressen natürlich anpassen) - die Differenz aus beiden Zellen ergibt die Dauer.
Über eins musst du dir jedoch im Klaren sein: bei einer derart umfangreichen Datenmenge musst du schon generell gesehen etwas Zeit einplanen.
Es ist aber auch die Frage, was du überhaupt machen willst und wie dein Tabellenblatt aufgebaut ist. Steht z.B. bis ca. Zeile 5.000 in jeder Zeile der Suchbegriff mindestens 1 mal oder nicht, kann man vielleicht irgendwie anders feststellen, ab welcher Zeile die Zellen ohne Suchbegriff beginnen, wie sieht dein derzeitiger Code aus usw. Möglicherweise kann man das Ganze ja insgesamt irgendwie schneller machen. Aber - ohne die Arbeitsmappe zu kennen und ohne zu wissen was du erreichen willst, kann man nichts Konkretes dazu sagen.

Beliebteste Forumthreads (12 Monate)

Wieder mal gesucht: Rangebereich mit Kriterium

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread