Microsoft Excel

Herbers Excel/VBA-Archiv

Zeile kopieren und wieder einfügen

Betrifft: Zeile kopieren und wieder einfügen von: Markus
Geschrieben am: 07.08.2014 15:07:17

Hallo Excel VBA Forum!

Im untenstehenden Code wird eine Datei geöffnet. Datei kommt jeden Monat neu mit anderem Namen. Es wird ein neues Tabellenblatt erzeugt in das die Ergebnisse der Schleife kopiert werden sollen. Die Schleife soll in Spalte A Zelle für Zelle prüfen
ob der Wert kleiner gleich Null ist und dann soll diese Zeile in das erzeugte Blatt kopiert werden. Dies solange bis in Spalte B kein Wert mehr steht.

Aber, eine Fehlermeldung gibt es immer hier: .Rows(i).Copy Destination:=Worksheets("Überfällige" & Format(Now, "_YYYY_MM_DD")).Cells(Rows.Count, 1).End(xlUp).Row + 1

Was mach ich falsch?

Gruß
Markus

Sub DatenHolen()
Dim strPfad As String
Dim i As String
Dim j As String

i = 4 'Zeile 4
j = 1 'Spalte A

strPfad = Application.GetOpenFilename("Excel Files (*.XLSX), *.XLSM")
'prüfe ob abbrechen gedrückt
If strPfad <> CStr(False) Then
    Workbooks.Open (strPfad)
    Worksheets.Add.Name = "Überfällige" & Format(Now, "_YYYY_MM_DD")
    ActiveSheet.Move after:=Worksheets(Worksheets.Count)


 
 With Worksheets("Sichtprüfung Hebevorrichtungen")
    .Select
    .AutoFilterMode = False
        Do Until .Cells(i, j + 1) = ""
              If .Cells(i, j) <= 0 Then
               .Rows(i).Copy Destination:=Worksheets("Überfällige" & Format(Now, "_YYYY_MM_DD")) _
.Cells(Rows.Count, 1).End(xlUp).Row + 1
            Else
            
        End If
        i = i + 1
        Loop
        End With

End If
End Sub

  

Betrifft: AW: Zeile kopieren und wieder einfügen von: Rudi Maintaire
Geschrieben am: 07.08.2014 15:19:22

Hallo,
.Rows(i).Copy Destination:=Worksheets("Überfällige" & Format(Now, "_YYYY_MM_DD")) _
.Cells(Rows.Count, 1).End(xlUp).OffSet(1)

Gruß
Rudi


 

Beiträge aus den Excel-Beispielen zum Thema "Zeile kopieren und wieder einfügen"