Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

kopieren in nächste freie Zeile

kopieren in nächste freie Zeile
Gisela
Hallo,
ich möchte, dass jeweils auf dem TB "gesamt" in die nächste freie Zeile ab C11 (Spalten A und B können schon mal ohne Inhalt sein) kopiert wird.
Kann mir bitte jemand helfen? Was muss ich wie ändern?
Sub zeilenkopieren()
Application.ScreenUpdating = False
Dim a As Long, i As Long
a = 11
For i = 11 To 100
If Worksheets("Mrz").Cells(i, 7)  "" Then
Worksheets("Mrz").Rows(i).Copy Worksheets("gesamt").Cells(a, 1)
a = a + 1
End If
Next i
Application.ScreenUpdating = True
End Sub

Vielen Dank und Grüße
Gisela

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: kopieren in nächste freie Zeile
21.07.2012 17:30:58
Hajo_Zi
Hallo Gisela,
ich habe mich mal an das gehalten was im Beitrag Stand und nicht im Code
Option Explicit
Sub zeilenkopieren()
Application.ScreenUpdating = False
Dim Loletzte As Long
Dim a As Long, i As Long
a = 11
With Worksheets("gesamt")
For i = 11 To 100
If Worksheets("Mrz").Cells(i, 7)  "" Then
Loletzte = IIf(IsEmpty(.Cells(.Rows.Count, 3)), .Cells(.Rows.Count, 3).End(xlUp) _
.Row, .Rows.Count)+1
Worksheets("Mrz").Rows(i).Copy .Cells(Loletzte, 3)
a = a + 1
End If
Next i
End With
Application.ScreenUpdating = True
End Sub


Anzeige
Vielen Dank Hajo, funktioniert genau richtig
21.07.2012 18:13:54
Gisela
o.T

329 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige