Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1316to1320
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
Inhaltsverzeichnis

Formel in nichtaktive Tabelle eintragen

Formel in nichtaktive Tabelle eintragen
13.06.2013 07:28:20
Andre´
Hallo alle zusammen,
Ausgangssituation: Sheet("1") ist aktiv
Ergebnis: in Sheet("2") soll in den Bereich D2:E6 eine Formel eingetragen werden.
mit folgenden Makro funktioniert es nur, wenn Sheet("2") aktiv ist.
Sub Formel()
With Worksheets("2").Range(Cells(2, 4), Cells(6, 5))
.FormulaR1C1 = "=1+1"
End With
End Sub
Wie müsste das Makro lauten, wenn Sheet("2") nicht aktiv ist?
Vielen Dank im Voraus!
MFG Andre

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel in nichtaktive Tabelle eintragen
13.06.2013 07:30:09
Hajo_Zi
Hallo Andre,
With Worksheets("2")
.Range(.Cells(2, 4), .Cells(6, 5)).FormulaR1C1 = "=1+1"
Gruß Hajo

AW: Formel in nichtaktive Tabelle eintragen
13.06.2013 08:02:54
Andre´
Hallo Hajo,
vielen Dank für die Antwort.
Eine Frage habe ich noch.
Wie kann ich die Formelwerte in dem Bereich durch Werte ersetzen.
Nachfolgend funktioniert wenn Sheet("2") aktiv ist:
With Worksheets("2").Range(Cells(2, 4), Cells(6, 5))
.FormulaR1C1 = "=1+1"
.Value = .Value
End With
Habe versucht das in Dein Makro einzubauen:
With Worksheets("2")
.Range(.Cells(2, 4), .Cells(6, 5)).FormulaR1C1 = "=1+1"
.Range(.Cells(2, 4), .Cells(6, 5)).Value = .Value
End With
so funktioniert es aber nicht.
Kannst Du mir bitte nocheinmal helfen.
Vielen Dank!
MFG Andre

Anzeige
AW: Formel in nichtaktive Tabelle eintragen
13.06.2013 08:09:14
Hajo_Zi
Hallo Andre,
warum nicht gleich
.Range(.Cells(2, 4), .Cells(6, 5)) = 2
Columns("B:C").Copy
Columns("B:C").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False 'Zwischenspeicher löschen
Gruß Hajo

AW: Formel in nichtaktive Tabelle eintragen
13.06.2013 08:17:37
Andre´
Hallo Hajo,
vielen Dank, ich konnte es einbauen.
warum nicht gleich
.Range(.Cells(2, 4), .Cells(6, 5)) = 2

weil das nur eine Bsp. Formel ist.
MFG Andre

.value = .value ... Du brauchst noch ein With
13.06.2013 08:18:28
Matthias
Hallo
With Worksheets("2")
.Range(.Cells(2, 4), .Cells(6, 5)).FormulaR1C1 = "=1+1"
With .Range(.Cells(2, 4), .Cells(6, 5))
.Value = .Value
End With
End With
Gruß Matthias

Anzeige
AW: .value = .value ... Du brauchst noch ein With
13.06.2013 08:53:16
Andre´
Hallo Matthias,
pefekt, vielen Dank auch für Deinen Beitrag!
MFG Andre

Danke für Deine Rückmeldung ... kwT
13.06.2013 08:56:23
Matthias

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige