select case anweisung verändern

hallo VBAler,
ich habe ein Problem und komme nicht weiter.Hoffe wiedre einmal auf eure Hilfe.
Ich habe eine select case anweisung in meinem Code(siehe unten)
ich möchte nun gerne diese um bauen so das ich nach dem case nicht die nummern habe sondern diese nummern "4700600700", "4710603200" stehen in einer Zelle nebeneinander.
es müsste also verglichen werden ob der wert in der zelle gleich mit dem wert in cells(x,3) ist.
So ist der code:
Select Case Cells(x, 3)
Case "4700600700", "4710603200"
Case Else
Rows(x).Delete
End Select
so in etwa stell ich mir vor das er sein soll klappt aber nicht.
Select Case Cells(x, 3)
Case like *cells(5,1)*
Case Else
Rows(x).Delete
End Select
Vielen dank für eure Hilfe Christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Cells(6, 1).Value = "'4700600700,4710603200,4710603201" Cells(7, 1).value = "'" & CStr(Split(Cells(6, 1), ",")(0)) Cells(8, 1).value = "'" & CStr(Split(Cells(6, 1), ",")(1)) Cells(9, 1).value = "'" & CStr(Split(Cells(6, 1), ",")(2)) End Sub

Sub test1() Dim s As String, ok As Boolean s1 = ActiveSheet.Range("C3").Value s1 = "*" & Replace(s1, " ", "*", 1, -1, vbTextCompare) & "*" s2 = "4700600700" ''MsgBox s1 & vbCrLf & s2 Select Case InStr(1, s1, "*" & s2 & "*", vbTextCompare) Case 0: ok = False Case Else: ok = True End Select MsgBox "Der Wert " & Chr(34) & s2 & Chr(34) & " ist " & IIf(ok, "", "nicht") & " vorhanden!" End Sub

Hallo Christian,
ich habe mir dein erstes Codebeispiel noch mal angeschaut u.den Code von Sepp
dahingehend ergänzt.
Die x - Zeilen sollten unterhalb der Vergleichszelle stehen,
sonst würde sich diese beim Zeilenlöschen verschieben.
For x = ... to ... kannst Du natürlich anpassen.


Sub Egal()
Dim vValues As Variant
Dim intIndex As Integer
Dim blnPrüfung As Boolean
Dim x As Long
'Testdaten
Cells(1, 1) = "4700600700" & ",""" & "4710603200" & """," & "45693434,42524305,009988,12345678"
Cells(3, 3) = 12345678
Cells(4, 3) = "9900600700"
vValues = Split(Cells(1, 1).Text, ",")
For x = 3 To 4
blnPrüfung = False
For intIndex = 0 To UBound(vValues)
If Trim$(Cells(x, 3).Text) = Trim$(Replace(vValues(intIndex), Chr(34), "")) Then
blnPrüfung = True
Exit For
End If
Next intIndex
Select Case blnPrüfung
Case True
Case Else
Rows(x).Delete
End Select
Next x
End Sub

Gruß
Gerd

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread