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