Befehl

Forumthread: Befehl
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Befehl

Befehl

30.11.2003 22:00:24

Frank

Wie ist der Befehl WENN Inhalt Zelle(1,i) DANN Kopiere Zeile i
Nach Endtabelle.xls (is andere Datei)
wie macht man das

gruß
frank

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Befehl

30.11.2003 22:29:46

PeterW
AW: Befehl

01.12.2003 00:20:02

Frank
AW: Befehl

01.12.2003 00:45:47

GerdW
AW: Befehl

01.12.2003 00:49:20

Frank
AW: Befehl

01.12.2003 18:43:23

PeterW

AW: Befehl

30.11.2003 22:29:46

PeterW

Hallo Frank,

das läßt sich mit einem Befehl nicht machen. Möglich wäre das mit VBA, dann müsste man allerdings wissen, ob die Zieldatei geöffnet ist, um welches Blatt in der Quelldatei es sich handelt, ob du vielleicht Zelle(i,1) meinst....

Gruß
Peter

AW: Befehl

01.12.2003 00:20:02

Frank

Jo ich meinte das eigentlich mit vba,

die Zieldatei ist nicht geöffnet,
das Blatt der Quelldatei heißt "Sheet1"

nein mit zelle (1,i) meinte ich das ein index dann runter zählt und so alle zellen von Spalte A überprüft (den inhalt) bis ... was weiß ich .. 1000 vielleicht

könnte man da machen

AW: Befehl

01.12.2003 00:45:47

GerdW

In eine geschlossene Datei kannst du nichts kopieren.

Gerd

AW: Befehl

01.12.2003 00:49:20

Frank

Hmm ... dann öffnen wir sie einfach .. würde es dann gehen ??
bzw wie wäre der code

AW: Befehl

01.12.2003 18:43:23

PeterW

Hallo Frank,

wenn beide Dateien offen sind probier das mal so (die Namen der MAppen und Blätter musst du natürlich anpassen):


Sub kopieren()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim lgRow As Long
Dim lgRowZiel As Long
Set wksQ = Workbooks("Quelldatei").Sheets("Sheet1")
Set wksZ = Workbooks("Zieldatei").Sheets("SheetName")
lgRowZiel = wksZ.Cells("A65536").End(xlUp).Row
For lgRow = 1 To wksQ.Range("A65536").End(xlUp).Row
If Not IsEmpty(wksQ.Cells(lgRow, 1)) Then
lgRowZiel = lgRowZiel + 1
wksZ.Cells(lgRowZiel, 1) = wksQ.Cells(lgRow, 1)
End If
Next
End Sub

Gruß
Peter

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!