For i Schleife
23.02.2004 13:23:17
Frank
ich habe folgene Schleife in einem Makro:
Range("E2").Select
For i = 1 To 2500
If ActiveCell.Value = "Krankenschw./-Pfleger" And ActiveCell.Offset(0,1).Value = "weiblich" Then
ActiveCell.Value = "Krankenschwester"
Else
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "Krankenschw./-Pfleger" And ActiveCell.Offset(0, 1).Value = "männlich" Then
ActiveCell.Value = "Krankenpfleger"
ActiveCell.Offset(1, 0).Select
End If
End If
Next
Mit diesem Makro ändere ich in einer Tabelle bestimmte Berufsbezeichnungen z.B.
von Krankenschw./-Pfleger in Krankenschwester. Dieses Makro funktioniert auch,
es sind jedoch ein paar dabei, bei denen es nicht geändert wird. Ich weiß nicht
warum. Ich habe das Makro schon mal ein wenig umgestellt, aber es klappt nicht.
Ich weiß nicht warum-
Gruß
Frank