Thema Datum  Von Nutzer Rating
Antwort
24.05.2016 10:42:28 Max
Solved
Blau 3 spezifische Zeilen suchen und kopieren
 24.05.2016 21:24:01 Gast133
NotSolved
24.05.2016 22:13:01 Max
NotSolved
24.05.2016 22:15:58 Max
NotSolved
24.05.2016 22:48:27 Gast3338
NotSolved
25.05.2016 08:43:42 Max
NotSolved
25.05.2016 08:52:58 Max
Solved

Ansicht des Beitrags:
Von:
Gast133		 Datum:
24.05.2016 21:24:01		 Views:
694		 Rating:
     
Antwort:
  Ja
Thema:
3 spezifische Zeilen suchen und kopieren

Hallo! Bin mir nicht sicher, was du genau einfügen willst. Bin mal davon ausgegangen, dass es 3 mal das selbe sein soll. Müsste mit folgendem COde gehen. VG

 

Sub NeueZeile4()

Dim Zeile As Long
Dim i As Long
Zeile = Range("D:D").Find(what:="Row4").Row - 1
'1 Zeilen über Row4
For i = 1 To 3

Rows(Zeile + i).Insert
'Zeile einfügen
Rows(Zeile).Copy Cells(Zeile + i, 1) 'Zeile kopieren
Rows(Zeile).EntireRow.Hidden = False

Next i

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
24.05.2016 10:42:28 Max
Solved
Blau 3 spezifische Zeilen suchen und kopieren
 24.05.2016 21:24:01 Gast133
NotSolved
24.05.2016 22:13:01 Max
NotSolved
24.05.2016 22:15:58 Max
NotSolved
24.05.2016 22:48:27 Gast3338
NotSolved
25.05.2016 08:43:42 Max
NotSolved
25.05.2016 08:52:58 Max
Solved