Werte spliten und Zelle aktivieren, no. eine Frage
Search
ich komme irgendwie nicht mehr in den Ursprungsthread. Kann meine neue Frage also nicht mehr hinten dran hängen.sorry.
Der beigefügte Code von mpb funktioniert so einwandfrei. Er splitet die Werte in Spalte A mit Hilfe eines neuen Tabellenblattes auf und gibt die Zelle, wo sich der Bereich findet wieder. Nur habe ich noch ein Problem was mich ohne bisherige Lösungsfindung beschäftigt: Wenn ein Wertebereich doppelt auftritt, so soll über eine Msgbox ausgegeben werden, dass dieser doppelt vorhanden ist. Zum Beispiel steht in Zelle A1: "100-200;300-300;450-500" und in Zelle A2 "150-180;700-800". Es gibt also einen doppelten Wertebereich: "150-180".
Kann das realisiert werden. Hier der Code von mpb:
Sub In_Bereichen_suchen()
Dim Suchwert As Double
Dim i As Double
Dim j As Integer
Dim k As Integer
Dim z As Double
Dim s As Integer
Dim anz As Integer
Dim Quelle As Worksheet
Dim Zwi As Worksheet
Dim Treffer As Boolean
On Error GoTo errorhandler
Suchwert = CDbl(InputBox("Bitte Suchwert eingeben!"))
Treffer = False
Set Quelle = ActiveSheet
Worksheets.Add
Set Zwi = ActiveSheet
Quelle.Columns("A:A").Copy Destination:=Zwi.Range("A1")
Zwi.Columns("A:A").TextToColumns Destination:=Zwi.Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=True, OtherChar:="-"
s = Zwi.UsedRange.Columns.Count
z = Zwi.Range("A65356").End(xlUp).Row
anz = 0
For i = 1 To z
For j = 1 To s - 1 Step 2
If Suchwert >= Zwi.Cells(i, j) And Suchwert