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

Hi,

Sub New_Step()
    
    With Sheets(2)
        i = .Cells(1, 1)
        t = .Cells(2, 1)
        b = .Cells(3, 1)
        k = .Cells(4, 1)
        l = .Cells(5, 1)
    End With
     
    ' 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
    
    With Sheets(2)
        .Cells(1, 1) = i
        .Cells(2, 1) = t
        .Cells(3, 1) = b
        .Cells(4, 1) = k
        .Cells(5, 1) = l
    End With
    
End Sub

 

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
08.10.2012 16:36:10 Till
NotSolved
08.10.2012 17:44:25 Benedikt
NotSolved
Blau Zähler Hilfe
 08.10.2012 23:32:43 Till
NotSolved
09.10.2012 09:43:36 Benedikt
NotSolved