Thema Datum  Von Nutzer Rating
Antwort
01.07.2019 10:56:23 vukadonis
NotSolved
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
Rot Zeile in bestimmte Zeile reinkopieren
 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 21:24:46		 Views:
474		 Rating:
     
Antwort:
  Ja
Thema:
Zeile in bestimmte Zeile reinkopieren

Hallo,

wenn du eine leere Zeile willst mit den Formaten aus Zeine 21 dann

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:="Werner", LookIn:=xlValues, lookat:=xlWhole)
    If Not raFund Is Nothing Then
        .Rows(raFund.Row).Insert
        .Range("A21:K21").Copy
        .Cells(raFund.Row, 1).Offset(-1).PasteSpecial Paste:=xlPasteFormats
        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
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
Rot Zeile in bestimmte Zeile reinkopieren
 01.07.2019 21:24:46 Werner
*****
NotSolved
02.07.2019 09:52:18 Gast97527
NotSolved