Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
348to352
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Activated Cells kopieren

Activated Cells kopieren
09.12.2003 20:51:07
MarcelK.
Ist es korrekt, daß ich mit folgendem Code die letzte Zeile ermittle und aktiviere?

Worksheets("XXX").Activate
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate

Wenn ja, wie kopiere ich die in Worksheet ("YYY") ???

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Activated Cells kopieren
09.12.2003 21:15:57
MarcelK.
Ist das zu kompliziert oder warum antwortet niemand?

Noch eine kleine Korrektur ...

Ich möchte aus der aktivierten Zeile die Daten der einzelnen Spalten in unterschiedliche Zeilen des neuen Worksheets kopieren, z.b.

Letzte Wert der Zeile in Spalte A aus Worksheet X in Zeile 1, Spalte D, Worksheet Y ...

kann mir jetzt jemand helfen?
AW: Activated Cells kopieren
09.12.2003 21:22:50
PeterW
Hallo Marcel,

schau dir mal einige andere Beiträge an, dann erkennst du vielleicht, auf welchen Ton hier in der Regel reagiert wird.

Abgesehen davon ist es ca. 21:00 und alle sich hier tummelnden Zeitgenossen geben die Hilfen unentgeltlich in ihrer Freizeit. Es soll sogar ein Leben außerhalb von Excel geben. :-)

Activieren ist in VBA in der Regel nicht nötig. Vertsuch es mal so:
Dim lgLetzte As Long
lgLetzte = Sheets("Tabelle1").Range("A65536").End(xlUp).Row
Sheets("Y").Cells(1, 4) = Sheets("Tabelle1").Cells(lgletzte, 1)

Gruß
Peter
Anzeige
AW: Activated Cells kopieren
09.12.2003 21:25:31
MarcelK.
Dank dir Peter, sorry, aber ich komme gerade erst nach Hause und muss diese Arbeit bald fertig haben.

Werde mich was den "Ton" angeht mal drum kümmern ... ich weiß nicht wie ich es sonst erklären soll ...
AW: Activated Cells kopieren
09.12.2003 21:34:06
MarcelK.
Hab den Code mal kopiert, aber nun müsste ich es ja mit meinen Worksheets ersetzen.

also ist laut deinem Code "Tabelle1" das Tabellenblatt in dem die letzte Zeile gesucht wird und "Y" das Tabellenblatt in das eingefügt werden soll?

Und was heißt bei dir Cell(1,4) ???
AW: Activated Cells kopieren
09.12.2003 21:34:08
MarcelK.
Hab den Code mal kopiert, aber nun müsste ich es ja mit meinen Worksheets ersetzen.

also ist laut deinem Code "Tabelle1" das Tabellenblatt in dem die letzte Zeile gesucht wird und "Y" das Tabellenblatt in das eingefügt werden soll?

Und was heißt bei dir Cell(1,4) ???
Anzeige
AW: Activated Cells kopieren
09.12.2003 21:38:47
PeterW
Hallo Marcel, (dies nennt man Anrede...)

richtig, in Tabelle1 wird die letzte Zelle in Spalte A gesucht. Mit Cells lassen sich einzelne Zellen ansprechen: Cells(Zeile, Spalte), also ist Cells(1, 4) die Zelle D1. (... das war der Text ...)

Gruß
Peter
(... und dies der abschließende Gruß)
AW: Activated Cells kopieren
09.12.2003 21:50:18
MarcelK.
Hallo Peter,

ich muss mich wohl für meine schlechten Manieren (heute) entschuldigen und mich ganz dolle bei dir bedanken, daß es jetzt geklappt hat (zumindest mit Spalte A)

Nun werde ich es mit den anderen Spalten machen, es sind ca. 12 Einträge, die ich kopieren muss.

Gruß und einen schönen Abend!!!

Marcel
Anzeige
AW: Activated Cells kopieren
09.12.2003 22:01:08
MarcelK:
HI Peter, ich bin's nochmal,

So, mit deinem Code hat es funktioniert. Wenn ich jetzt aus Tabelle1 den letzten Wert aus der Spalte B kopieren will, muss ich dann

lgLetzte = Sheets("Tabelle1").Range("B65536").End(xlUp).Row
Sheets("Y").Cells(3, 4) = Sheets("Studenten").Cells(lgLetzte, 1)

eingeben, wenn er in D3 eingefügt werden soll? ...

Gruß
AW: Activated Cells kopieren
09.12.2003 22:10:29
MarcelK.
Schon okay, hab's schon :o))
AW: Activated Cells kopieren
09.12.2003 22:23:56
PeterW
Hallo Marcel,

lösen wir das fürs Archiv noch auf: wenn aus Blatt "Studenten" in Spalte B die Nummer der letzten Zelle ermittelt werden soll dann mit:

lgLetzte = Sheets("Studenten").Range("B65536").End(xlUp).Row

Und wenn der Wert dieser Zelle in Sheets("Y") stehen soll dann eher mit:

Sheets("Y").Cells(3, 4) = Sheets("Studenten").Cells(lgLetzte, 2)

Sofern es sich um Datensätze handelt und die letzte Zeile in allen Spalten die selbe ist reicht natzürlich eine einmlige Ermittlung deren Nummer.

Gruß
Peter
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige