Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
248to252
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
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formel kopieren per Makro

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
Anzeige
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



Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige