fuchsi schrieb am 02.June.2010, 11:08:56 in der Kategorie pc.sw.office
iCellValue = Cells(1, i).Value
if iCellValue LIKE \"AZ *\" or iCellValue LIKE \"I[a-z] *\" then
\'Mach irgendwas
end if
Damit betriffts alle Values die mit \"AZ \" oder mit \"Ia \" \"Ib \" \"Ic \" ... \"Iz \" beginnen