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

Wert aus Tab1 mit Formel und VBA in Tab2

Wert aus Tab1 mit Formel und VBA in Tab2
10.10.2005 17:00:11
Rainer
Hallo zusammen,
ich möchte per VBA eine Formel in Tab2 eingeben, die sich auf eine Zelle in Tab1 bezieht. Die Formel sollt wie folgt aussehen: ='Tab1'!W22.
Für einen möglichen Lösungsweg bedanke ich mich im Voraus
Gruß Rainer

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert aus Tab1 mit Formel und VBA in Tab2
10.10.2005 17:12:04
tombo
Hallo Rainer,
so:

Sub Formel()
Dim strFormula As String
strFormula = "='[" & "Quelle.xls" & "]" & "Tabelle1" & "'!" & "W22"
ActiveCell.Formula = strFormula
End Sub

Gruß
tombo
AW: Wert aus Tab1 mit Formel und VBA in Tab2
10.10.2005 17:18:11
tombo
Rehi,
wenn sich alles in einer Mappe abspielt, brauchst du keine Quelle.xls-Angabe, also reicht dann:
strFormula = "=Tabelle1" & "!" & "W22"
AW: Wert aus Tab1 mit Formel und VBA in Tab2
10.10.2005 19:28:53
Rainer
Danke tombo,
der Anschub war genau der richtige.
Habe es so gelöst:

Sub Formel()
Dim strFormula As String
Dim Name As String
Set anzahl = Worksheets("Stammdaten").Range("i8")
Set Mitglieder = Worksheets("Mitglieder").Range("a18")
For a = 2 To anzahl Step 1
Name = Worksheets(a - 1).Range("C2")
strFormula = "='[" & "Kegelbuch.xls" & "]" & Name & "'!" & "W22"
Worksheets(a).Select
Range("W17").Select
ActiveCell.Formula = strFormula
Worksheets(a - 1).Select
For b = 1 To Mitglieder Step 1
Name = Worksheets(a - 1).Range("C2")
Zelle = "u" & b + 3
Zelle1 = "D" & b + 3
strFormula = "='[" & "Kegelbuch.xls" & "]" & Name & "'!" & Zelle
Worksheets(a).Select
Range(Zelle1).Select
ActiveCell.Formula = strFormula
Next b
Next a
End Sub

Gruß
Rainer
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige