Thema Datum  Von Nutzer Rating
Antwort
01.07.2019 10:56:23 vukadonis
NotSolved
Blau Zeile in bestimmte Zeile reinkopieren
 01.07.2019 11:25:25 Werner
*****
NotSolved
01.07.2019 13:20:14 Gast9275
NotSolved
02.07.2019 08:56:38 vukadonis
NotSolved
02.07.2019 09:56:59 Werner
NotSolved
01.07.2019 21:06:23 vukadonis
NotSolved
01.07.2019 21:24:46 Werner
*****
NotSolved
02.07.2019 09:52:18 Gast97527
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
01.07.2019 11:25:25		 Views:
469		 Rating:
     
Antwort:
  Ja
Thema:
Zeile in bestimmte Zeile reinkopieren

Hallo,

so:

Public Sub Kopieren()
Dim loLetzte As Long, raFund As Range

With Worksheets("Tabelle1")
    loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
    Set raFund = .Range("A21:A" & loLetzte).Find(what:="Bereich", LookIn:=xlValues, lookat:=xlWhole)
    If Not raFund Is Nothing Then
        .Range("A21:K21").Copy
        Rows(raFund.Row).Insert
        Application.CutCopyMode = False
    End If
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
01.07.2019 10:56:23 vukadonis
NotSolved
Blau Zeile in bestimmte Zeile reinkopieren
 01.07.2019 11:25:25 Werner
*****
NotSolved
01.07.2019 13:20:14 Gast9275
NotSolved
02.07.2019 08:56:38 vukadonis
NotSolved
02.07.2019 09:56:59 Werner
NotSolved
01.07.2019 21:06:23 vukadonis
NotSolved
01.07.2019 21:24:46 Werner
*****
NotSolved
02.07.2019 09:52:18 Gast97527
NotSolved