Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1444to1448
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Hilfe ! Suche-Finde-Aktualisiere

Hilfe ! Suche-Finde-Aktualisiere
09.09.2015 12:11:45
Franky
Hey Leute,
komme irgendwie nicht weiter.
habe bisher folgenden Code(ausschnitt):

Workbooks.Open Filename:="F:\Datei1.xls"
Worksheets("1").Activate
ActiveSheet.Unprotect ("#")
zeile = Cells(Rows.Count, 1).End(xlUp).Row
For x = 2 To zeile
If Cells(x, 24) = "P" Then
Range(Cells(x, 1), Cells(x, 9)).Copy
Workbooks("Datei2.xls").Worksheets("1").Activate
z = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Range(Cells(z, 1), Cells(z, 9)).PasteSpecial Paste:=xlPasteValues
End If
Next x

Ich will eigentlich, das in Datei1 in Spalte 24 geschaut wird ob da ein "P" steht, wenn ja soll Spalte 1 bis 9 aus der Zeile kopiert werden.
Das ganze soll dann in Datei2 auch in Spalte 1 bis 9 eingefügt werden.
Jedoch nur einmal, ich so zusagen das der Inhalt nur aktualisiert wird.
Aber derzeigt funktioniert nicht ein mal die schleife richtig, diese wird nur einmal durchlaufen und ich verstehe nicht warum.
Kann mir jemand helfen.
Daaannnkkeee..

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
doppelt owT
09.09.2015 12:51:44
Rudi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige