Thema Datum  Von Nutzer Rating
Antwort
Rot Code
 16.08.2013 12:53:05 hornbach
NotSolved

Ansicht des Beitrags:
Von:
hornbach		 Datum:
16.08.2013 12:53:05		 Views:
1385		 Rating:
     
Antwort:
  Ja
Thema:
Code

hallo zusammen,

ich habe eine bitte: kann mir jmd. diesen code kurz erläutern was in jeder zeile passiert.

das wäre echt super DANKE!

Private Sub CommandButton1_Click()
        With Sheets(1).UsedRange

        With .Columns(.Columns.Count).Offset(6, 1).Resize(.Rows.Count - 1)
        .FormulaR1C1 = "=IF(CountIf(R1C1:RC1,RC1)=1,(RC2),True)"
        .Formula = .Value
        .Offset(0, 2 - .Column).Value = .Value
        .SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
        .ClearContents

    End With
    End With

 

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 Code
 16.08.2013 12:53:05 hornbach
NotSolved