mittels diesem kleinen VBA möchte ich erreichen, dass in Spalte "D" nach "Teilprojekt" gesucht wird.
Wird dieses gefunden, so wird der Text in der Spalte "F" um 2 Einzüge nach rechts verschoben.
Das funktioniert auch soweit.
Private Sub CommandButton2_Click()
For i = 4 To ActiveSheet.UsedRange.Rows.Count
If (Cells(i, 4)) = "Teilprojekt" Then
Cells(i, 6).InsertIndent 2
End If
Next i
End Sub
Problem an der Sache ist, wie verhindere ich denn jetzt, sollte ich das nochmal drüber laufen lassen, dass er dies auf bereits schon geänderte Zellen nochmal drüber laufen lässt.
Also mach ich das 2 mal hintereinander, so werden alle Zellen in Spalte "F" gleich 4 mal eingerückt, sofern in "D" Teilprojekt steht.
Ich müsste also irgendwie verhindern, dass bereits eingerückte Zellen in der Spalte "F" nochmals eingerückt werden.
Ich hatte es mit
If (Cells(i, 6).InsertIndent 2) Then
probiert, aber das mag vba so nicht.
Jemand einen Vorschlag wie ich das testen kann ?
Der Tom