Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2025 17:54:09
VERGLEICH in VBA bei Daten auslesen
17.05.2025 07:53:06
Excel 2 Spalten vergleichen
16.05.2025 20:26:36
Frage zur Darstellung von MIN und MAX aus Tabelle 2
16.05.2025 19:04:59
Summenprodukt / Zählenwenn, ausser bestimmter Zeichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel in VBA

Forumthread: Formel in VBA

Formel in VBA
06.10.2008 11:46:00
steffen
Hallo,
ich komme mal wieder nicht mit meiner Formel in VBA zurecht.
Activesheet.Range("A4").Formula = "=INDIRECT(""Tabelle1!B"" &" & x + 1 & ")"; Formel gehört zu einem anderen Tabellenblatt
Das Problem besteht im Namen "Tabelle1". Da dieser Blattname steht's anders lautet, benötige ich eine Möglichkeit, das die Formel unabhägig vom Blattnamen funzt.
Ich dachte mir, den Blattnamen von Tabelle1 auszulesen und diesen dann in die Formel zu integrieren.
Start=Tabelle1.Name
Aber wie passe ich nun Start in die Formel rein?
Viele Grüße
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Programmierung
Tags
#fehlerbehebung #indirekt #vba formel
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Formel in VBA
06.10.2008 11:53:00
Mac4
Hallo Steffen,
versuchs mal so:
"=INDIRECT('" & Start & "'!B" & x + 1 & ")"
Marc
noch nicht ganz...
06.10.2008 12:16:33
steffen
Hallo Marc,
so richtig funzt es noch nicht. Bekomme stehts #Bezug - Fehler angezeigt.
bei
Activesheet.Range("A4").Formula = "=INDIRECT(""Tabelle1!B"" &" & x + 1 & ")"
steht in A4 die Formel: =INDIREKT("Tabelle1!B" &309)
und der Text aus Tabelle1 B309 wird angezeigt
bei
Activesheet.Range("A4").Formula ="=INDIRECT('" & Start & "'!B" & x + 1 & ")"
steht in A4 die Formel: =INDIREKT(Startseite!B309)
es wird #Bezug - Fehler angezeigt
irgendwo hakt es noch.
Viele Grüße
Anzeige
AW: noch nicht ganz...
06.10.2008 12:27:00
Mac4
Hallo Steffen,
dann weise der Variabelen Start ihren Wert so zu:
Start=Sheets("Tabelle1").Name
Marc
AW: noch nicht ganz...
06.10.2008 12:32:27
Daniel
Hi
sorry, aber das ist Nonsense, Denk mal genauer drüber nach.
Gruß, Daniel
AW: Formel in VBA
06.10.2008 12:29:00
Daniel
Hi
so müsste es gehen:
"=INDIRECT(""" & Start & "!B"" &" & x + 1 & ")"
Gruß, Daniel
Anzeige
AW: Formel in VBA
06.10.2008 13:05:00
Tino
Hallo,
ohne jetzt den Grund für diesen Code zu hinterfragen, hier mal ein Beispiel.
Sub test()
Dim X As Long
Dim NameTabelle As String
  X = 1
NameTabelle = """" & Sheets(2).Name & "!B""&" & "" & X + 1
ActiveSheet.Range("A4").Formula = "=INDIRECT(" & NameTabelle & ")"
End Sub


Setze Deinen Wert für die Formel in eine Stringvariable, mit F8 gehst du den Code Zeilenweise durch. Beim überfahren der Variable mit der Maus, wird Dier der aktuelle Wert der Variable angezeigt, so kannst du besser erkennen wo noch Fehler enthalten sind.
Oder gibt dir den Wert mit Debug.Print NameTabelle im Direktfenster aus, da kannst du auch alles nachvollziehen.
Gruß Tino

Anzeige
Boah...
06.10.2008 13:35:57
steffen
bin mal wider schwer beeindruckt über die schnelle Hilfe und das geballte Wissen hier...
Konnte meine Formel nun so anpassen, dass es passt.
Dank an Euch.
Gruß Steffen
AW: Boah...
06.10.2008 14:22:11
Erich
Hallo Steffen,
da du die Formel mit VBA einträgst, brauchst du vielleicht gar kein "Indirect",
die viel einfachere Formel in Zeile 7 könnte schon ausreichen. Aber vielleicht ist auch die Formel in Zeile 5 geschickter.
Jedenfalls sollte der (ja variable) Blattname in einfache Hochkommata eingeschlossen werden,
damit Leerzeichen im Blattnamen keine Probleme machen.
 A
1xyz
2xyz
3xyz
4 
5xyz
6 
7xyz

Formeln der Tabelle
ZelleFormel
A1=INDIREKT("'Bla bla'!B"&2)
A2=INDIREKT("'Bla bla'!B"&2)
A3=INDIREKT("'Bla bla'!B"&2)
A5=INDIREKT("'Bla bla'!B2")
A7='Bla bla'!B2

Die Formeln wurden damit geschrieben: 

Option Explicit
Sub tst2()
Dim x As Long
Dim NameTabelle As String
x = 1
With ActiveSheet.Columns(1)
.Cells(1).Formula = "=INDIRECT(""'Bla bla'!B""&" & x + 1 & ")"
.Cells(2).Formula = "=INDIRECT(""'" & Sheets(2).Name & "'!B""&" & x + 1 & ")"
NameTabelle = """'" & Sheets(2).Name & "'!B""&" & x + 1
.Cells(3).Formula = "=INDIRECT(" & NameTabelle & ")"
.Cells(5).Formula = "=INDIRECT(""'" & Sheets(2).Name & "'!B" & x + 1 & """)"
.Cells(7).Formula = "='" & Sheets(2).Name & "'!B" & x + 1
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige

Forumthreads zu verwandten Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
VBA Formel finden
Baywatch

Hi,
ich brauche etwas hilfe, mit einer VBA programmierung, vielleicht hat jemand ein paar MInuten Zeit.
Ich habe eine Tabelle 1 in der eine eingabe passiert und eine TAbelle 2 sollen die Einträge aus TAbelle 1 hinkopiert werden und erst nach Spalte G dann nach B und dann nach A sortiert...
25.08.2008 08:47:34
Thread-ID: 1004371
7 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Anzeige
Makrostart wenn in Zelle was geschrieben wird
Bernd

Hallo,
wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
31.08.2008 11:09:00
Thread-ID: 1006152
2 Beiträge
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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