zeile einfügen wenn
11.06.2003 19:05:57
akim123
ich versuche eine neue zeile einzufügen falls der wert von Spalte A zeile x mit dem kürzel <$an beginnt
kann mir da jemand weiterhelfen???
mein code der nicht funktioniert lautet:
'#####################################################
Dim MyVar5 = objExOut.Range("A65000").End(Excel.XlDirection.xlUp).Row
For Count = 1 To MyVar5 Step 1
If objExOut.WorksheetFunction.CountIf(objExOut.Range("A1"), "<$an*") > 0 Then
MsgBox("ja")
objExOut.Rows().Insert()
End If
Count = Count + 1
Next End If
Count = Count + 1
Next
'#########################################
Danke
Akim123
Anzeige