Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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

Anzeige

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

Anzeige
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

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige