Zeile kopieren und wieder einfügen
07.08.2014 15:07:17
Markus
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)