Thema Datum  Von Nutzer Rating
Antwort
Rot vba löschen durch +1 ersetzen
 24.10.2016 13:24:25 Gast96099
NotSolved
24.10.2016 13:31:27 Gast60389
NotSolved
24.10.2016 14:16:59 Gast45758
NotSolved

Ansicht des Beitrags:
Von:
Gast96099		 Datum:
24.10.2016 13:24:25		 Views:
1019		 Rating:
     
Antwort:
  Ja
Thema:
vba löschen durch +1 ersetzen

Hi habe folgendes Programmiert.

Ich habe eine Spalte in der Einträge farblich markiert sind. Nun habe ich es soweit programmiert das mein Makro die farbliche Spalte durchgeht und immer wenn zwei gleiche Einträge vorhanden sind den zweiten Eitnrag entfert bzw erstezt durch "". 

Nun würde ich den Eintrag nicht löschen sondern ein - und eine fortlaufende nummer anhängen sprich so

 

115

116

117

117-1

117-2

aa

aa-1

ab

ac

ac-2

ac-3 usw......

 

kann ich das irgendwie programmiern? Muss ich eifnach das "" durch -1+1 esetzen ? 

Option Explicit

Sub farbelöschen()

Dim z As Long
Dim a As Integer
Dim b As Integer


For z = 155 To 337176

    If Cells(z, 6).Interior.ColorIndex = 7 Then
    If Cells(z, 6).Value = Cells(z - 1, 6).Value And Cells(z, 2).Value = Cells(z - 1, 2).Value Then
    
    Cells(z, 6).Value = ""
    
    
    
    End If
    
    
    End If
    
    Debug.Print z
    
    
Next

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 vba löschen durch +1 ersetzen
 24.10.2016 13:24:25 Gast96099
NotSolved
24.10.2016 13:31:27 Gast60389
NotSolved
24.10.2016 14:16:59 Gast45758
NotSolved