Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
452to456
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
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spalte mit bestimmten Namen kopieren

Spalte mit bestimmten Namen kopieren
13.07.2004 14:21:59
Dmikha
Hallo,
ich will eine Spalte mit bestimmten Namen aus einer Datei in eine andere kopieren.
verwende volgendes Makro:

Sub Suchen_und_kopieren()
Such = "Summe"
Columns.Find(What:=Such, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Select    'wahrscheinlich habe ich Fehler?
Selection.Copy
Windows("Mappe2.xls").Activate
Sheets("Summe").Activate
Columns("A:A").Select
ActiveSheet.Paste
End 

Sub
als Ergebnis kriege aber nur Wort "Summe" in jede Zeile der Spalte A:A und nicht die Zahlen, die dort stehen sollen
kann mir jemand Tipp geben, wo ich mich geirrt habe?
Danke im Voraus

		

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

Betreff
Datum
Anwender
Anzeige
AW: Spalte mit bestimmten Namen kopieren
Ulf
Mal abgesehen davon, dass das select nicht nötig ist:

Sub Suchen_und_kopieren()
Such = "Summe"
Columns.Find(What:=Such, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).entirecolumn.Select
Selection.Copy
Windows("Mappe2.xls").Activate
Sheets("Summe").Activate
Columns("A:A").Select
ActiveSheet.Paste
End 

Sub
Ulf

AW: Spalte mit bestimmten Namen kopieren
13.07.2004 14:30:51
Dmikha
Merci Ulf,
jetzt funkt es prima :)
MfG
Dmikha
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige