Thema Datum  Von Nutzer Rating
Antwort
08.10.2012 15:54:58 Benedikt
NotSolved
Blau Zähler Hilfe
 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:
Till		 Datum:
08.10.2012 16:36:10		 Views:
1899		 Rating:
     
Antwort:
  Ja
Thema:
Zähler Hilfe

Hi,

hab das mal ein wenig übersichtlicher gestaltet:

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.Copy
            
            i = (i - 1)
            k = (k - 2)
            b = (b - 1)
            
            Range("A" & i).PasteSpecial
            Range("B" & b).Value = "HEEEEELP"
            
            Exit For
        End If
    Next
    
    'Reinigung der Zellen
    c = (i - t)
    m = (i + c)
    
    Range("C" & i, "X" & m).ClearContents
    Range("A" & 1).Select
    
End Sub

Jetzt stellt sich da natürlich die Frage, wo da was in welche Zellen geschrieben werden soll. Das sich die Werte nicht erhöhen ist klar, sie werden ja auch nirgendwo bis über das Ende der Prozedur hinaus gespeichert.

 

Gruß
Till

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
08.10.2012 15:54:58 Benedikt
NotSolved
Blau Zähler Hilfe
 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