Formel kopieren per Makro

Forumthread: Formel kopieren per Makro

23.04.2003 14:35:31

Jutta

Hallo,

ich verbinde per Makro einige Zellen und will anschließend die Formel nach unten kopieren. Klappt auch. Nur steht nach dem Kopieren in der ersten (kopierten) Zelle "Wahr".
Was ist denn da falsch in meinem Makro.

Sub kopieren()
Range("E1").Select
ActiveCell.FormulaR1C1 = "=RC[-4]&RC[-3]&RC[-2]&RC[-1]"
Selection.Copy
Range("E2:E1900").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("e1").Select
End sub

Gruß
Jutta

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Formel kopieren per Makro

23.04.2003 14:53:13

moe
Re: Formel kopieren per Makro

23.04.2003 14:58:01

Jutta
lösung

23.04.2003 15:03:47

moe
Re: lösung

23.04.2003 15:06:22

Jutta

Re: Formel kopieren per Makro

23.04.2003 14:53:13

moe

hallo jutta

Ich habe das mal bei mir getestet alles einwandfrei hast du noch mehr code oder nur denn ??

gruss

moe

Re: Formel kopieren per Makro

23.04.2003 14:58:01

Jutta

Hallo Moe,

stimmt.Ich ich habe es im kleinen in einer anderen Datei probiert.
Der ganze Code ist so:

Sub FBEZ_aufbereiten()
Application.ScreenUpdating = False
'Spalten einfügen
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight

'Text in Spalten
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="0", FieldInfo:=Array(1, 1)
Range("E1").Select

'getrennte FBEZ verbinden
ActiveCell.FormulaR1C1 = "=RC[-4]&RC[-3]&RC[-2]&RC[-1]"
Range("E1").Select

'Formel kopieren
Selection.Copy
Range("E2:E1900").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("E1").Select
Application.Selection = True
End Sub

Gruß
Jutta

lösung

23.04.2003 15:03:47

moe

ich habe deinen Fehler gefunden

Das muss weg
Application.Selection = True

statt dessen
Application.ScreenUpdating = true

Gruss

Moe

Re: lösung

23.04.2003 15:06:22

Jutta

Hallo Moe,

Danke ! Da habe ich aber Tomaten auf den Augen gehabt !!

Gruß

Jutta

Beliebteste Forumthreads (12 Monate)

Forumthread: Formel kopieren per Makro

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread