Anzeige
Archiv - Navigation
1704to1708
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Excel Zeile unter Bedingung per Makro kopieren

Excel Zeile unter Bedingung per Makro kopieren
25.07.2019 23:58:56
Sebastian
Hallo,
ich habe folgendes Problem:
Es gibt 2 Tabellenblätter ("DPGroß"=Tabelle3 und "korrektur"=Tabelle15).
Letztlich sollen per Makro alle Zeilen aus DPGroß nach "Korrektur" kopiert werden, wenn in der ersten Spalte eine "1" steht. Sonst soll zur nächsten Zeile gesprungen werden. In der Zieltabelle soll mit Zeile 1 begonnen werden und dann immer weiter aufgefüllt werden.
Wichtig ist, dass in der Ursprungsdatei z.T. Formeln stehen, deren Ergebnisse aber mit der vollständigen Formatierung (Farbe, Größe) kopiert werden sollen.
Meine Idee, die aber immer in einen Laufzeitfehler läuft:

Sub Schaltfläche1_Klicken()
Dim Tab1, Tab2
Dim I As Integer
Dim k As Integer
Set Tab1 = Worksheets("Tabelle3")
Set Tab2 = Worksheets("Tabelle15")
I = Tab1.Rows.Count 'zählt die beschriebenen Zellen durch
For k = 1 To I Step 1
If Tab1.Cells(I, 1) = 1 Then
Tab1.Rows.Copy Destination:=Tab2.Rows
End If
Next
End Sub

Vorab schon ein herzliches Danke!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Zeile unter Bedingung per Makro kopieren
26.07.2019 05:51:44
Hajo_Zi
Tab1.Rows(I).Copy Tab2.Rows(I)
ich hätte den Code nicht bis Zeile 1.048.576 laufen lassen sonder nur für benutzten Bereich.
Zeile = Tab1.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Ich schaue nicht auf fremde Rechner, ich gehe davon aus das der internnee Name stimmt.
Du benutzt ja nicht den Namen der im Register steht.

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige