Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellbezug aus Zellformel (Zellverweis) herstellen

Forumthread: Zellbezug aus Zellformel (Zellverweis) herstellen

Zellbezug aus Zellformel (Zellverweis) herstellen
17.03.2008 13:51:00
Arthur
Hallo.
Im Moment versuche ich einen Zellbezug über eine Zellformel zu erstellen, was irgendwo hakt. Mit den Zellen auf die dadurch verwiesen wird möchte ich arbeiten.
Beispiel:
In einer Zelle verweise ich auf eine andere Zelle in der Excel-Datei (=Tabelle2!D3). Nun möchte ich das dort genannte Ziel als Startbereich nehmen und mittels VBA auswerten. Dazu müsste ich das Zielworksheet, Zeile und Spalte ermitteln können.
Da es sich auch um einen benannnten Bereich handeln kann, gestaltet sich herauszufinden wo das Ziel ist allerdings schwieriger.
Gibt es einen Befehl der mir sagen kann, wo mein Ziel liegt? Quasi ein Befehl, der mir den Nachfolger, also die Adresse des Nachfolgers nennt? Etwas wie Selection.Sucessor?
Oder wie könnte ich den Nachfolger auswählen? Mit Range("Tabelle!D3").Select funktioniert das nicht.
Besten Dank für eine Lösung.
-Arthur

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellbezug aus Zellformel (Zellverweis) herstel
17.03.2008 14:12:44
Mag
Hi,
Formel in Sheets(1), Zelle A1:

Option Explicit
Sub ttt()
MsgBox Sheets(1).Range("A1").Formula
End Sub


so?
Gruss

Ganz so leicht ist es nicht ...
17.03.2008 14:36:00
Arthur
Hallo MAg.
Ganz so leicht ist die Lösung nicht:
- weder weiss ich, welches Sheet sich hinter einem benannten Range befindet
- noch kann ich eine Adresse per Namen einfach ansprechen
Denn:
- "A1" kann in meinem Beispiel "Tabelle!A1" oder "NameXYZ" sein.
Gruß
Arthur

Anzeige
AW: Zellbezug aus Zellformel (Zellverweis) herstellen
17.03.2008 14:47:04
Tino
Hallo,
meinst du es so?

'ActiveCell.Formula = die Zelle die diese Formel enthält.
Sub test()
Dim Zelle As String
Zelle = Replace(ActiveCell.Formula, "=", "")
MsgBox Range(Zelle)
End Sub


Gruß
Tino

Wäre zu schön
17.03.2008 14:52:00
Arthur
Hallo Tino.
Das wäre zu schön, aber dann gäbe es keine Unterscheidung zwischen der Zelle "A1" und einem Namen. Ausserdem würde dieses selbst bei unbenannten Referenzen nur auf dem aktuellen Tabellenblatt funktionieren. Das Ansprechen eines Bereichs per: Range("Tabelle2!A1").Select funktioniert nicht, wenn das Blatt nicht aktiv ist.
Leider...
Gruß
Arthur

Anzeige
AW: Wäre zu schön
17.03.2008 14:58:00
Tino
Hallo,
mit select so.

Sub test()
Dim Zelle As String
Zelle = Replace$(ActiveCell.Formula, "=", "")
If InStr(Zelle, "!") > 0 Then
Sheets(Left$(Zelle, InStr(Zelle, "!") - 1)).Select
Range(Right$(Zelle, Len(Zelle) - InStr(Zelle, "!"))).Select
Else
Range(Zelle).Select
End If
End Sub


Gruß
Tino

Anzeige
AW: Zellbezug aus Zellformel (Zellverweis) herstel
17.03.2008 14:50:55
Rudi
Hallo,
so?

Sub tt()
Dim rTest As Range, vntTest
Set rTest = ActiveCell
vntTest = Split(rTest.FormulaLocal, "!")
If UBound(vntTest) = 0 Then
vntTest = Split(ThisWorkbook.Names(Replace(rTest.FormulaLocal, "=", "")) _
.RefersToLocal, "!")
End If
Sheets(Replace(vntTest(0), "=", "")).Activate
Range(vntTest(1)).Select
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Zellbezug aus Zellformel (Zellverweis) herstel
17.03.2008 15:19:37
Rudi
Hallo,
Verbesserung:

Sub tt()
Dim rngTest As Range
Set rngTest = RangeFromFormula(ActiveCell.FormulaLocal)
'   MsgBox rngTest.Parent.Name
'   MsgBox rngTest.Address
rngTest.Parent.Activate
rngTest.Select
End Sub




Function RangeFromFormula(strFormula As String) As Range
Dim vntTest, nTest As Name
Dim strSheet As String, strRange As String
On Error Resume Next
Set nTest = ThisWorkbook.Names(Replace(strFormula, "=", ""))
On Error GoTo 0
If nTest Is Nothing Then
vntTest = Split(strFormula, "!")
If UBound(vntTest) = 0 Then
strSheet = ActiveSheet.Name
strRange = Replace(vntTest(0), "=", "")
Else
strSheet = Replace(vntTest(0), "=", "")
strRange = vntTest(1)
End If
Else
vntTest = Split(nTest.RefersToLocal, "!")
strSheet = Replace(vntTest(0), "=", "")
strRange = vntTest(1)
End If
Set RangeFromFormula = Sheets(strSheet).Range(strRange)
End Function


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
;0) sieht gut aus
17.03.2008 15:39:04
Arthur
Hallo Rudi.
Das sieht gut aus. Die Hoffnung per einfacher Zeile eine Lösung zu haben zeichnet sich ja nicht ab. Aber so geht's.
Danke.
Cheerio
-Arthur
;

Forumthreads zu verwandten Themen

Hyperlink Funktion mit VBA auswerten
zapultin

Hallo!
Ich habe die Hyperlinkfunktion in einem Excel Blatt verwendet. Nun will ich per VBA ermitteln, ob der Hyperlink funktioniert.
Komischerweise gibt der Zugriff RANGE.HYPERLINKS auf die Zelle wo ich die Hyperlinkfunktion verwendet keinen Hyperlink!
Nur wenn ich in der Zelle per...
16.08.2008 11:17:00
Thread-ID: 1002331
2 Beiträge
Anzeige
Liniendiagramm aus meheren Log-Dateien erstellen
michikimmig

Hallo zusammen,
ich habe 5 Log-Dateien, die in mehreren Reiten meiner Excel-Tabelle stehen.
Jeweils in Spalte A steht der Zeitstempel, in Spalte B die Antwortzeit.
Ich kann pro Reiter ein Liniendiagramm erstellen.
Ziel ist aber, alle 5 Linien in ein Diagramm zu bekommen.
Wie...
17.04.2009 10:56:05
Thread-ID: 1069265
13 Beiträge
Anzeige
Diagramm durch Auswahl erstellen
Mischa

Hallo,
ich habe keine Ahnung ob Ihr mir weiter helfen könnt. Bin schon am verzweifeln.
Ergänzend zu meiner Fragestellung, habe ich unter folgendem Link ein Screenshot aufgeführt:
http://www.gilb24.de/unbenannt.jpg
Oben ist eine Tabelle die nach und nach gepflegt wird. Unten...
10.08.2009 11:58:52
Thread-ID: 1094682
3 Beiträge
Anzeige
Drill-Down-Funktion in Excel-Diagrammen
question2

Hallo,
ich bin auf der Suche nach einer sogenannten Drill-Down-Funktion in Diagrammen.
Folgendes Beispiel soll die Fragestellung verdeutlichen.
Ein Kreisdiagramm setzt sich aus
100 EUR Erlös,
75 EUR Materialaufwand und
80 EUR sonstiger Aufwand
zusammen.
Nac...
14.08.2009 03:08:53
Thread-ID: 1095774
5 Beiträge
Formel in Zelle einfügen
Alexander

Hallo zusammen,
Sub test() Dim str As String str = "=WENN(Daten!$F$1='Tabelle1'!" & Cells(11, 5).Address & ";JAHR('Tabelle1'!" & Cells(18, 4) _ .Address & ")" End Sub wie kann ich die Formel in der Varialben str in eine Zelle einfügen? Oder kann ich die Formel auch direkt o...
13.10.2009 09:45:55
Thread-ID: 1109248
6 Beiträge
VBA: diagramm nach Checkbox-Auswahl erstellen
Jonathan

Hallo liebe Experten,
ich stehe vor folgenden Problem:
In einem Excel-Sheet werden ca. 100 Arbeitsplätze verwaltet.
Jeder Arbeitsplatz hat in diesem Sheet eine Tabelle mit mit 8 Zeilen und 18 Spalten. Die Tabellen sind untereinander angeordnet.
Jede Tabelle (bzw. jeder Arbeitsp...
21.12.2009 15:47:14
Thread-ID: 1125372
4 Beiträge
Dynamisches Diagramm mit Formeln in Datenauswahl
ML

Hallo Excel-Profis,
ich habe jetzt schon durch googeln grundsätzlich herausgefunden, wie das mit den dynamischen Diagrammen funktionieren soll.
Habe auch versucht, das in der beiliegenden Datei mal umzusetzen.
Im Tabellenblatt "Amortisation" möchte ich oben ein paar Eingaben machen....
15.05.2010 06:49:26
Thread-ID: 1157112
3 Beiträge
Diagramm mit Adresse aus Zellle erstellen
Michael

Guten Abend,
wie kann ich ein Diagramm aus einer in einer Zelle hinterlegten Adresse erstellen? (Kann auch ein Bereichsname sein). Ich kriege das einfach nicht hin...:-((
Vielen Dank
Michael
06.06.2010 21:34:25
Thread-ID: 1160566
4 Beiträge
Anzeige
Datenreihen automatisch in Diagramm einfügen
volkimaus

Hallo zusammen,
ich komme mal wieder mit einem Problem. Ich habe ein große Excel-Datei mit ca. 100 Arbeitsblättern. Nun möchte ich aus bestimmten Arbeitsblättern, die ich vorher markiere, jeweils eine separate Datenreihe mit immer den gleichen X-Werten ($C$8:$C$508) und Y-Werten ($AK$8:$AK$...
17.06.2010 11:46:11
Thread-ID: 1162427
3 Beiträge
Formel automatisch in jeden Blatt einfügen
Nibio

Hallo Profis,
Ich wollte wissen ob es möglich wäre, daß beim einfügen eines neuen Tabellenblatt, automatisch auch die Formel aus Tabellenblattt "Vorlage" kopiert werden können.
Beispiel:
Ich habe in das Tabellenblatt "Vorlage" im Bereich BA1:BW100 verschiedene Formeln.
Ein ext...
19.08.2010 21:59:13
Thread-ID: 1173239
5 Beiträge
Formel via VBA in best. (viele) Zellen einfügen
Klaus

Hallihallo zusammen,
und zwar mache ich u.a. einen Vergleich von 2 Tabellen mit mehreren Spalten und vielen Zeilen (meist um die 2500). [Vergleichscode ursprünglich von Hajo-Excel.de... vielen Dank an der Stelle!!]
Ich habs so hinprogrammiert und es hat im Kleinen auch gut funktioniert....
15.09.2010 16:53:30
Thread-ID: 1177873
5 Beiträge
dyn. Diagramme mit herausragenden Werteangaben
Werner

Hallo allerseits,
ich habe eine dynamische Diagramm- Auswertung erstellt.
Eigentlich läuft auch alles wunderbar bis auf einen kleinen Schönheitsfehler.
Die Skalierung des Diagramms passt nicht, wenn ich die Werte der Balken außerhalb dieser platzieren möchte.
Innerhalb geht leid...
12.04.2011 23:07:18
Thread-ID: 1210041
2 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