Thema Datum  Von Nutzer Rating
Antwort
Rot Zähler Hilfe
 08.10.2012 15:54:58 Benedikt
NotSolved
08.10.2012 16:36:10 Till
NotSolved
08.10.2012 17:44:25 Benedikt
NotSolved
08.10.2012 23:32:43 Till
NotSolved
09.10.2012 09:43:36 Benedikt
NotSolved

Ansicht des Beitrags:
Von:
Benedikt		 Datum:
08.10.2012 15:54:58		 Views:
2651		 Rating:
     
Antwort:
  Ja
Thema:
Zähler Hilfe

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zähler Hilfe
 08.10.2012 15:54:58 Benedikt
NotSolved
08.10.2012 16:36:10 Till
NotSolved
08.10.2012 17:44:25 Benedikt
NotSolved
08.10.2012 23:32:43 Till
NotSolved
09.10.2012 09:43:36 Benedikt
NotSolved