Moin,
ich stehe vor einem eigentlich trivialen Problem. Ich habe eine Tabelle (http://www.img-host.de/bild.php/33719,unbenanntRKS81.jpg).
Es können wenn Zeilen benötigt welche hinzugefügt werden aber auch entfernt werden.
Bei dem betätigen des Buttons: "Neuer Prozesstep" wird einfach der erste Prozessstep kopiert (alle Zeile die zu ihm gehören )und in das erste leere Feld unter der Tabelle eingefügt.
Danach wird der Inhalt gelöscht.
Nun zu meinem Problem. Ich habe komme es einfach nicht hin die Zahl (im Bild 1) pro Markoausführung um einen Wert zu erhören.
Also Wenn ich jetzt das Makro ausführe soll dann im neu hinzugefügten Bereich als nächstes 2 stehen und so weiter.
Danke für eure Hilfe
Sub New_Step()
i = 13
t = 13
b = 14
k = 14
l = -1
' Anlegen neuer Zeile
Dim x As Range
Set x = Worksheets("Overview").Range("c13:c100")
For Each Zelle In x
i = (i + 1)
j = (j + 1)
b = (b + 1)
k = (k + 1)
l = (l + 1)
If IsEmpty(Zelle) Then
Set y = Worksheets("Overview").Range("A13:X19")
y.Select
y.Copy
Range("C" & i).Select
i = (i - 1)
k = (k - 2)
b = (b - 1)
Range("A" & i).Select
ActiveSheet.Paste
Range("B" & b).Select
Selection.Value = "HEEEEELP"
Exit For
End If
Next
'Reinigung der Zellen
c = (i - t)
m = (i + c)
Range("C" & i, "X" & m).Select
Selection.ClearContents
Range("A" & 1).Select
End Sub
|