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

Schleife zum kopieren von einer XLS in die andere

Schleife zum kopieren von einer XLS in die andere
22.04.2013 13:02:49
einer
Hallo Zusammen,
wollte eine kleine Schleife Programmieren, die
den Inhalt von Alt in neu reinkompiert.
Einzige Voraussetzung ist, dass in Spalte N = FREMD1 stehen soll.
For i = 2 To wbAlt.Cells(Rows.Count, 1).End(xlUp).Row
If wbAlt.Worksheets("VORRAT").Range("N" & i).Value = "FREMD1" Then wbAlt.Worksheets("VORRAT").Range("A" & i & ":U" & i).Copy Destination:=wbNeu.Worksheets("RW-Daten A").Range("A" & i & ":U" & i)
Next i
Irgendwie ignoriert er das IF.
Es werden alle Daten aus Alt in Neu reinkopiert.
Wenn ich vor dem next i ein else und end if setzen möchte,
dann bringt er mir die Fehlermeldung, dass kein IF vorhanden ist ?
Wer kann mir da behilflich sein ?
Danke
:-)
Stefan

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

Betreff
Datum
Anwender
Anzeige
AW: Schleife zum kopieren von einer XLS in die andere
22.04.2013 13:13:18
einer
Hallo,
Wenn ich vor dem next i ein else und end if setzen möchte,
dann bringt er mir die Fehlermeldung, dass kein IF vorhanden ist ?

du muss hinter Then einen Zeilenumbruch einfügen
If Bedingung Then
'mach dies
Else
'mach das
End If
  With wbAlt.Worksheets("VORRAT")
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(i, 14) = "FREMD1" Then
.Range(.Cells(i, 1), .Cells(i, 21)).Copy _
Destination:=wbNeu.Worksheets("RW-Daten A").Cells(i, 1)
End If
Next i
End With
Gruß
Rudi

AW: Schleife zum kopieren von einer XLS in die andere
22.04.2013 13:51:33
einer
DANKESCHÖN
Kaum macht mans richtig schon funktionierts auch
:-)
Danke Nochmal
Anzeige

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige