Thema Datum  Von Nutzer Rating
Antwort
09.03.2017 11:04:29 DerPraktikant
NotSolved
Blau Excel leere Zeile einfügen nach Zellenabfrage
 09.03.2017 13:05:52 Peter
NotSolved
09.03.2017 14:22:35 Peter
NotSolved

Ansicht des Beitrags:
Von:
Peter		 Datum:
09.03.2017 13:05:52		 Views:
544		 Rating:
     
Antwort:
  Ja
Thema:
Excel leere Zeile einfügen nach Zellenabfrage		 
Sub leereZeile()
Dim x as Integer
lz = .Cells(Rows.Count, "A").End(xlUp).Row

For x to lz
  If .Cells(n, 1).Value = "***" Then
      Rows("n").Select
     Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  End If
next x

End Sub

Versuch mal das:)

Betrifft das nur die Spalte A oder mehrere Spalten?

Peter

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
09.03.2017 11:04:29 DerPraktikant
NotSolved
Blau Excel leere Zeile einfügen nach Zellenabfrage
 09.03.2017 13:05:52 Peter
NotSolved
09.03.2017 14:22:35 Peter
NotSolved