Substring in variablen String suchen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ok, Boris,
ich setz mal mein Problem mit den echten Werten hier rein:
Normalerweise sieht die Spalte A ab Zelle 6754 (jede Woche steigt die Zellennummer) so aus:
(A:6752) JAPANESE YEN - CHICAGO MERCANTILE EXCHANGE
(A:6753) JAPANESE YEN - CHICAGO MERCANTILE EXCHANGE
(A:6754) U.S. DOLLAR INDEX - ICE FUTURES U.S.
(A:6755) U.S. DOLLAR INDEX - ICE FUTURES U.S.
(A:6756) U.S. DOLLAR INDEX - ICE FUTURES U.S.
(A:6757) U.S. DOLLAR INDEX - ICE FUTURES U.S.
(A:6758) U.S. DOLLAR INDEX - ICE FUTURES U.S.
(A:6759) U.S. DOLLAR INDEX - ICE FUTURES U.S.
(A:6760) U.S. DOLLAR INDEX - ICE FUTURES U.S.
(A:6761) EURO FX - CHICAGO MERCANTILE EXCHANGE
usw
In allen folgenden Spalten stehen die entsprechenden Werte zum Dollar-Index, angefangen Spalte C mit dem jeweiligen Datum.
Ich möchte nun die Zellen A zum Dollar-Index und die jeweils entsprechenden Zellen C, L, M usw auf ein anderes Arbeitsblatt innerhalb der selben Mappe übertragen.
Dazu brauche ich die erste Row, hier also 6754 und die letzte Row, also 6760 ich kopiere dann aus genau diesem Bereich die Zellen C, L, M usw auf das andere Blatt.
Die erste Row bekomme ich mit
Cells.Find(U.S. DOLLAR INDEX").Row
Die letzte Row (6760) hole ich mir mit einer Schleife:
XDollarRW = Cells.Find(U.S. DOLLAR INDEX")
VarSTRT = Cells.Find(U.S. DOLLAR INDEX").Row
LetzteA = Columns("A:A").End(xlDown).Row
For Each c In Range("A" & VarSTRT, "A" & LetzteA)
Set rngFind = Sheets("annual").Columns("A:A").Find(what:= XDollarRW)
If c.Value = rngFind.Value Then
c.Interior.ColorIndex = 19
ElseIf c.Value rngFind.Value Then
Exit For
End If
Next c
Die Schleife färbt mir den Bereich ein und am Ende habe ich mit
VarEND = c.Row - 1
die letzte Row
Das Kopieren aufs andere Blatt mache ich dann so:
' Datum
Range("C" & VarSTRT, "C" & VarEND).Interior.ColorIndex = 15
Sheets("EURUSD").Range("C" & Variable + 1, "C" & Variable + 1 + DatenL - 1).Value = _
Range("C" & VarSTRT, "C" & VarEND).Value
usw...
Klappt alles bestens.
Das Problem ist nur, dass auf manchen Quellblättern die Auflistung plötzlich so ist:
(A:6752) JAPANESE YEN - CHICAGO MERCANTILE EXCHANGE
(A:6753) JAPANESE YEN - CHICAGO MERCANTILE EXCHANGE
(A:6754) U.S. DOLLAR INDEX - ICE FUTURES U.S.
(A:6755) U.S. DOLLAR INDEX - ICE FUTURES U.S.
(A:6756) U.S. DOLLAR INDEX - ICE FUTURES U.S.
(A:6757) U.S. DOLLAR INDEX - ICE FUTURES U.S.
(A:6758) U.S. DOLLAR INDEX - NEW YORK BOARD OF TRADE
(A:6759) U.S. DOLLAR INDEX - NEW YORK BOARD OF TRADE
(A:6760) U.S. DOLLAR INDEX - NEW YORK BOARD OF TRADE
(A:6761) EURO FX - CHICAGO MERCANTILE EXCHANGE
Die Zellen A:6758:A6760 brauche ich auch, die werden aber zum Kopieren nicht mehr berücksichtigt.
Anders kann ichs nicht erklären.
Gruß Dirk

Hallo Adis,
nochmal Danke für deinen Sportsgeist!
Das mit dem Exit hatte ich gemacht, weil mir der Loop zu lange dauerte - das Exit kürzt die Sache ziemlich ab.
Andererseits würde es auch am schlechten Ergebnis nix ändern, auch ohne Exit erweitert der Loop mir meinen Kopierbereich nicht um die leicht verändert geschriebenen Titel in den A-Zellen.
Das einzige mit schlagender Wirkung war die hier von den Oberprofis so läppisch behandelte Lösung von Uwe. Was mir noch fehlt, wäre die Anzahl der Loopdurchläufe (Uwes Loop), die einen Treffer generiert haben. Dann hätte ich die Anzahl der Zellen, so eine Art Selection.Rows.Count für einen Bereich, der nur durchlaufen, aber nicht selektiert wurde. Wenn ich wüsste, wie das geht, bräuchte ich nicht im Leerlauf Zellen selektieren zu lassen.
Aber wie auch immer, läuft alles sehr schnell und klappt wunderbar. Und der Witz ist, Uwe hatte mir mit seiner Lösung ja bloß exakt meine Ausgangsfrage beantwortet, nämlich wie ich die integrierte Suchfunktion per VBA simmulieren, bzw nachbilden kann. Und da die Antwort auf meine Ausgangsfrage mein Problem gelöst hat, kann auch die Ausgangsfrage ja keine dumme gewesen sein. *Freu*
Grüße Dirk

Sub such: g = 3 'Anfangs Zeile 3 'Do Loop bis Suchlauf 1. Spalte Do Until ActiveCell.Column Spa1 Adr = ActiveCell.Address 'Schleife zum Dollar auflisten (max 1000) For i = 1 To 1000 Txt = Range(Adr).Offset(i, 0).Value If InStr(Txt, SuchName) Then Else Exit For Cells(g, "I") = Range(Adr).Offset(i, 0).Value g = g + 1 'naechste Zeile Next i 'Weitersuche ab letzter gelistete Adresse Range(Adr).Offset(i, 0).Activate Cells.FindNext(After:=ActiveCell).Activate Loop [a1].Select Exit Sub such: Range("B3", Edr).Select 'sucht 1. Zelle mit "DOLLAR" Selection.Find(What:=SuchName, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _ SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate Spa1 = ActiveCell.Column Return End Sub Gruss Adis

Sub Dollar_Blockweise_suchen() Dim Adr, Edr, Spa1, Txt Sheets("Tabelle1").Select Range("I3:I1000").ClearContents Application.ScreenUpdating = False Edr = Range("B65500").End(xlUp).Address GoSuub such: g = 3 'Anfangs Zeile 3 'Do Loop bis Suchlauf 1. Spalte Do Until ActiveCell.Column Spa1 Adr = ActiveCell.Address 'Schleife zum Dollar auflisten (max 1000) For i = 1 To 1000 Txt = Range(Adr).Offset(i, 0).Value If InStr(Txt, SuchName) Then Else Exit For Cells(g, "I") = Range(Adr).Offset(i, 0).Value g = g + 1 'naechste Zeile Next i 'Weitersuche ab letzter gelistete Adresse Range(Adr).Offset(i, 0).Activate Cells.FindNext(After:=ActiveCell).Activate Loop [a1].Select Exit Sub such: Range("B3", Edr).Select 'sucht 1. Zelle mit "DOLLAR" Selection.Find(What:=SuchName, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _ SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate Spa1 = ActiveCell.Column Return End Sub

Sub olaf() Dim i As Integer Dim Such As String Dim Zellinhalt As String Such = "Olaf" With ActiveSheet For i = 1 To 4 Zellinhalt = .Cells(i, 1) If InStr(Zellinhalt, Such) > 0 Then MsgBox "''" & Such & "'' gefunden in ''" & Zellinhalt & "''" Else MsgBox "In ''" & Zellinhalt & "'' nichts gefunden" End If Next End With End Sub

SP = 1 'Spalte A Such = "Olaf" With ActiveSheet LetzteA = .Cells(Rows.Count, SP).End(xlUp).Row For i = 1 To LetzteA Zellinhalt = .Cells(i, SP) If InStr(Zellinhalt, Such) > 0 Then .Cells(i, SP).Interior.ColorIndex = 19 End If Next .Cells(LetzteA, SP).Select ' wenn es denn unbedingt sein muss End With

SP = 1 'Spalte A Such = "Olaf" With ActiveSheet LetzteA = .Cells(Rows.Count, SP).End(xlUp).Row For i = 1 To LetzteA Zellinhalt = .Cells(i, SP) If InStr(Zellinhalt, Such) > 0 Then .Cells(i, SP).Interior.ColorIndex = 19 Lastfind = i End If Next If LastFind>0 Then .Cells(Lastfind, SP).Select ' wenn es denn unbedingt sein muss End With

Beliebteste Forumthreads (12 Monate)

	E	F
7	gibt es ->	Olaf
8	Olaf hat Husten	WAHR
9	Hat Olaf Husten?	WAHR
10	Wo ist Olaf ?	WAHR
11	Hier fehlt er ja ;-)
12	Und hier ist er wieder da, der Olaf ;-)	WAHR

	A
1	Olaf hat Husten
2	Olaf hat Hustensaft genommen
3	Bernd hatte gestern Husten
4	Der Olaf hat nie Husten
5	Olaf hatte gestern Husten

Substring in variablen String suchen

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Substring in variablen String suchen

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread