Re: Na, wenn das so is :-)) m.T.
16.12.2002 12:20:14
Nike
Hi,
der Inhalt der Zwischenablage solte eigentlich
schon nach dem Application.CutCopyMode = False
leer sein...
Ansonsten würd ich an Deiner Stelle etwas mehr mit
Worksheetvariablen arbeiten, damit gehst du sicher,
das du auch in dem Blatt bist, das du willst...
Warum eigentlich dann die Funktion in die Zelle
schreiben, wenn du das Ergebnis auch per VBA bekommst?
Ansonsten, wenn du den Wert noch brauchst, tacker ihn doch
einfach in ne globale Variable, die steht dir (wenn du
Glück hast) auch noch nach dem Ende der Prozedur zur
Verfügung ;-)
Im Zweifel schreib das Ergebnis in eine unsichtbare Zelle
(ist immer noch die sicherste Variante)Anstelle von dem hier:
Range("E35:AL35").Select
ActiveCell.FormulaR1C1 = _
"=CLEAN(TRIM(CONCATENATE(Vorschau!R[-34]C[-4],Vorschau!R[-34]C[-3],Vorschau!R[-34]C[-2],Vorschau!R[-34]C[-1],Vorschau!R[-34]C,Vorschau!R[-34])))"
Könnte man auch das hier schreiben:
Range("E35").FormulaR1C1 = _
"=CLEAN(TRIM(CONCATENATE(Vorschau!R[-34]C[-4],Vorschau!R[-34]C[-3],Vorschau!R[-34]C[-2],Vorschau!R[-34]C[-1],Vorschau!R[-34]C,Vorschau!R[-34])))"
Ich weiss nicht, warum du da noch so rumselectierst,
nachdem du deine Copyaction durchgezogen hast...
Range("E35:AL35").Copy
Range("E35:AL35").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False - hier setzt du die
- Kopieraktion zurück
Selection.Copy - Kopierst dann einen Bereich
Range("E12:AL12").Select - und wählst hier nen neuen aus, warum?
Kleiner Tip noch um das Archiv zu durchstöbern,
ich nehme dafür immer Google und schreibe dann z.B.
Suchbegriff site:www.herber.de
Bringt eigentlich immer gute Ergebnisse ;-)
Bye
Nike