Zellenwert ändern
06.10.2006 17:04:11
frank
bräuchte bei folgender Anweisung wieder mal Eure Hilfe.
Habe mir das versucht selber zu erstellen aber irgendwo hängts.
Es passiert folgendes.
wenn in zelle (irow,8) ein Wert steht und in zelle (irow,11) ebenfalls so soll bitte in Zelle(irow,10) der Wert von Zelle(irow,8)nur bis zum @ Zeichen übernommen werden.
Bekomme immer die Fehlermeldung "Die Methode Range für das Objekt Global ist Fehlgeschlagen!!!?
Danke fürs drüberschauen
Frank
If Not IsNumeric(Cells(irow, 8).Value) Then
Cells(irow, 10) = Cells(irow, 8)
Cells(irow, 11).Value = DateValue(Date)
Cells(irow, 10) = Left(Range(irow, 8).Value, InStr(Range(irow, _ 8).Value, "@") - 1)
End if