Möchte in Excel 2000 einen Teil eines Code auslesen und wenn dieser richtig ist eine Antwort in eine andere Zelle ausgeben. Angefangen habe ich das ,glaube ich, auch schon?
Sub Zelleauslesen()
If Range("A1") = "*io*" Then
' (in der obigen Zeile ist das Problem. Wiso funktioniert hier mein Asterisk nicht. ("A1") enthält 20 Zeichen, und zwar '(owejalskiodfmn/&%$§$). Wiso funktioniert ein Asterisk in einer If-Prozedur nicht???
Range("A5:A10").Interior.Color = vbRed
ElseIf Range("A1") = "ao" And Range("A2") = "ai" Then
Range("B5:B10").Interior.Color = vbGreen
End If
End Sub
Nochmal fürs Verständnis: Wenn in Zelle ("A1") der Ausdruck "io" vorhanden ist, dann soll Range("A5:A10") rot ausgegeben werden.
Ich bin am verzweifeln.
Ich denke nicht, dass ich dieses Problem ohne professoneller Hilfe innerhalb dieses Jahrhunderts noch lösen könnte.
Deshalb helft mir, bitte.
Sub Zelleauslesen()
If Range("A1") = "*io*" Then
' (in der obigen Zeile ist das Problem. Wiso funktioniert hier mein Asterisk nicht. ("A1") enthält 20 Zeichen, und zwar '(owejalskiodfmn/&%$§$). Wiso funktioniert ein Asterisk in einer If-Prozedur nicht???
Range("A5:A10").Interior.Color = vbRed
ElseIf Range("A1") = "ao" And Range("A2") = "ai" Then
Range("B5:B10").Interior.Color = vbGreen
End If
End Sub
Nochmal fürs Verständnis: Wenn in Zelle ("A1") der Ausdruck "io" vorhanden ist, dann soll Range("A5:A10") rot ausgegeben werden.
Ich bin am verzweifeln.
Ich denke nicht, dass ich dieses Problem ohne professoneller Hilfe innerhalb dieses Jahrhunderts noch lösen könnte.
Deshalb helft mir, bitte.