Live-Forum - Die aktuellen Beiträge
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
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Verzicht auf Select(ion)

Verzicht auf Select(ion)
08.12.2003 12:02:21
Stefan
Hi Leute bin dabei mich ein wenig mit VBA zu beschäftigen hab nur leider keinen den ich fragen kann!
Nachfolgender Quelltext hab ich mit dem MA recorder aufgenommen und würde ihn gerne ohne Select schreiben. Leider fehlen mir die Kenntnisse über die Eigenschaften der Befehle.
Mann kann ja leider nicht schreiben.


Windows(Zname).Sheets("Quelle").Range("A1").Paste


=======================================================
Workbooks.Open Filename:=quelledatei
Cells.Copy
Windows(Zname).Activate
Sheets("Quelle").Select
Range("A1").Select
ActiveSheet.Paste
Rows("1:1").Select
Selection.Delete Shift:=xlUp
========================================================

Vielen Dank schon mal für eure hilfe:
mfg Stefan

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

Betreff
Datum
Anwender
Anzeige
AW: Verzicht auf Select(ion)
08.12.2003 12:37:57
Martin Beck
Hallo Stefan,

löblich, löblich ;-)

Versuche mal folgendes (ungetestet und unter der Annahme, daß Zname eine Exceldatei referenziert):

Workbooks.Open Filename:=quelledatei
Cells.Copy Destination:= Workbooks(Zname).Sheets("Quelle").Range("A1")
Workbooks(Zname).Sheets("Quelle").Rows("1:1").Delete Shift:=xlUp

Gruß
Martin Beck
AW: Verzicht auf Select(ion)
08.12.2003 14:06:37
Stefan
Hi Martin besten Dank funktioniert bestens

gruß stefan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige