Thema Datum  Von Nutzer Rating
Antwort
24.01.2017 10:03:47 Edgar Wallace
NotSolved
24.01.2017 13:10:37 Werner
NotSolved
24.01.2017 13:35:58 Edgar Wallace
NotSolved
Blau 2 Zeilen einfügen falls oberer Wert ungleich unterer Wert
 24.01.2017 13:41:12 Werner
Solved
24.01.2017 14:07:23 Gast64356
Solved
24.01.2017 14:13:15 Werner
Solved

Ansicht des Beitrags:
Von:
Werner		 Datum:
24.01.2017 13:41:12		 Views:
676		 Rating:
     
Antwort:
 Nein
Thema:
2 Zeilen einfügen falls oberer Wert ungleich unterer Wert

Hallo,

na dann eifach <> statt =

Public Sub Einfügen()
Dim i As Long
Dim loLetzte As Long

With Worksheets("Tabelle1") 'Blatt anpassen
    loLetzte = .Cells(.Rows.Count, 4).End(xlUp).Row
        For i = loLetzte To 2 Step -1
            If .Cells(i, 4) <> .Cells(i, 4).Offset(-1, 0) Then
                .Cells(i, 4).Resize(2).EntireRow.Insert
            End If
        Next i
End With
End Sub

 

Gruß Werner

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
24.01.2017 10:03:47 Edgar Wallace
NotSolved
24.01.2017 13:10:37 Werner
NotSolved
24.01.2017 13:35:58 Edgar Wallace
NotSolved
Blau 2 Zeilen einfügen falls oberer Wert ungleich unterer Wert
 24.01.2017 13:41:12 Werner
Solved
24.01.2017 14:07:23 Gast64356
Solved
24.01.2017 14:13:15 Werner
Solved