mehrere spalten kopieren
09.11.2003 23:02:18
helge
mit folgendem Code kann ich mir eine Spalte mit anfangszelle "erste" kopieren:
suche = "erste"
Cells.Find(What:=suche, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Range(Cells(ActiveCell.Row, ActiveCell.Column), _
Cells(ActiveCell.End(xlDown).Row, ActiveCell.Column)).Copy
nun möchte ich aber auch gleich noch eine andere spalte mit anfangszelle "zweite" kopieren oder sogar noch mehr spalten(bis zu ca 20)
gibt es da sowas wie ein
suche = "erste"
suche2 = "zweite"
Cells.Find(What:=suche & suche2....
problem ist ich möchte nicht sooooo viel quellcode haben und suche deshalb nach einer eleganten lösung des problems
danke schonmal
helge