Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilen kopieren und einfügen
 25.05.2018 10:57:08 Gast64479
NotSolved

Ansicht des Beitrags:
Von:
Gast64479		 Datum:
25.05.2018 10:57:08		 Views:
1065		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen kopieren und einfügen
Hallo zusammen, ich habe bereits ein Makro dass in Tabelle1 20 mal die Zeile kopiert und einfügt wenn in der 20. Spalte ein neuer Name kommt. Public Sub Zeilen_einfügen() Dim i As Long, loLetzte As Long With Worksheets("Tabelle1") 'Battname anpassen loLetzte = .Cells(.Rows.Count, 20).End(xlUp).Row 'Zahl bezieht sich auf das eindeutige Merkmal, hier die Hilfsspalte For i = loLetzte To 6 Step -1 'Ab welcher Spalte soll die Logik des Makros greifen. Anpassen kann man die erste Zahl. bei der Zahl minus 1 beginnt das Makro If .Cells(i, 20) <> "" And .Cells(i - 1, 20) <> "" Then 'Hintere Zahl in Klammer gibt die Spalte des Bezugs an If .Cells(i, 20).Value <> .Cells(i - 1, 20).Value Then 'Hintere Zahl in Klammer gibt die Spalte des Bezugs an .Rows(i - 1).Copy .Rows(i).Resize(20).Insert 'Zahl in Klammer gibt die Anzahl der einzufügenden Zeilen an Application.CutCopyMode = False End If End If Next i End With End Sub Jetzt würde ich gerne (nachdem das erste Makro durchgelaufen ist und die 20 Zeilen kopiert hat) die Information aus dem Reiter(Tabelle2)A1:S21 kopieren und in Tabelle1 ab U5 einfügen. Der Bereich aus Tabelle2 soll so lange in Tabelle 1 eingefügt werden bis in Spalte 20 keine Eintragung mehr vorhanden ist. Kann das jemand nachvollziehen ^^ Beste Grüße Leo

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
Rot Zeilen kopieren und einfügen
 25.05.2018 10:57:08 Gast64479
NotSolved