Microsoft Excel

Herbers Excel/VBA-Archiv

kopieren in nächste freie Zeile | Herbers Excel-Forum


Betrifft: kopieren in nächste freie Zeile von: Gisela
Geschrieben am: 21.07.2012 17:25:50

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

  

Betrifft: AW: kopieren in nächste freie Zeile von: Hajo_Zi
Geschrieben am: 21.07.2012 17:30:58

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

GrußformelHomepage


  

Betrifft: Vielen Dank Hajo, funktioniert genau richtig von: Gisela
Geschrieben am: 21.07.2012 18:13:54

o.T


Beiträge aus den Excel-Beispielen zum Thema "kopieren in nächste freie Zeile"