Mein Problem:
Ich habe folgenden (vielleicht etwas "schlecht" Programierten Programmcode:
Frage = MsgBox("Möchten Sie gerne eine oder mehrere Kostenstellen ändern?", vbYesNo, "Ändern von Kostenstellen")
If Frage = vbYes Then
For i = 1 To AAA
Range("A5:A27,A29:A39,A41:A50,A52:A64,A66:A74").Select
Range("A66").Activate
Selection.Find(What:="x", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, 2).Select
Frage2 = InputBox("Geben Sie die Kostenstelle für den Artikel " & [ActiveCell] & "an!", "Kostenstelle")
ActiveCell.Offset(0, 2).Select
ActiveCell = Frage2
Next i
Dieser macht in etwa folgendes:;
Er sucht in einem Zellenbereich nach einem Eintrag mit x und ändert in der gleichen Zeile weiter hinten einen Eintrag den ich per Inputbox eingebe.
Meine Frage:
In dem Zellenberich sind mehrere x, die ich ändern muss. Mit diesem Code aber ändert mir die Schleife immer das gleiche x. Wie bekomme ich es hin, dass bei jedem neuen schleifendurchgang ein x mehr mit der suche übersprungen wird.
Etwa so:
x <-- Zuerst dieses
x
x
x
x
x <-- Dann dieses
x
x
und so weiter, bis zum Wert der Variable AAA
Danke für einen Vorschlag!
Rolf