Schleife
18.05.2005 08:30:34
Klaus
Ich habe mir folgendes Makro gebastelt:
Range("P2").Select
Dim A As Integer
For A = 1 To 30000
If ActiveCell.Offset(0, 0).Value = "Clariant" _
And ActiveCell.Offset(0, -11).Value = "SIR1" Then
ActiveCell.Offset(0, -11) = "SIR1C"
End If
If ActiveCell.Offset(0, 0).Value = "Clariant" _
And ActiveCell.Offset(0, -11).Value = "SIR2 Then
ActiveCell.Offset(0, -11) = "SIR2C"
End If
If ActiveCell.Offset(0, 0).Value = "Clariant" _
And ActiveCell.Offset(0, -11).Value = "SIR3 Then
ActiveCell.Offset(0, -11) = "SIR3C"
End If
Selection.Offset(1, 0).Select
Next A
Meine Fragen:
Geht das auch einfacher?
Geht es irgendwie, dass die Schleife nur bis zum letzten Eintrag ausgeführt wird?
Vielen Dank im Voraus
Gruss Klaus