Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatsich Tabelle in Formel zeigen

Automatsich Tabelle in Formel zeigen
Lutz
Hallo Excel-Profis,
ich habe mal wieder ein Problem für Spezialisten:
In meiner Tabelle habe ich in vielen Zellen Werte aus anderen Tabellen stehen (insges. rund 100 Tabellen).
Wenn ich jetzt den Wert in einer Zelle sehe, möchte ich per Doppellick in die Tabelle (und möglichst die Zieladresse) springen die in der Zelle ausgewertet wird.
Beispiel: In Tabelle1 Zelle A5 steht +Tabelle10!A10 - wenn ich dann einen Doppelkick auf Tabelle1 Zelle A5 mache sollte sich Tabelle10 mit Zelle A10 öffnen.
Toll wäre es natürlich, wenn die Funktion/Makro auch für andere Dateien gehen würde.
Geht das bzw. hat jemand eine Idee wie mal so etwas realisieren kann?
Vielen Dank und viele Grüße Lutz
AW: Automatsich Tabelle in Formel zeigen
20.08.2012 16:51:00
Josef

Hallo Lutz,
nur für einfache Verknüpfungen ala "Tabelle10!A10" oder soll das auch in Funktionen funktionieren?

« Gruß Sepp »

AW: Automatsich Tabelle in Formel zeigen
20.08.2012 17:16:53
Lutz
Hallo Sepp,
in diesem Fall sind es wirklich nur einfache Verknüpfungen.
Funktionen wäre natürlich Klasse aber das ist sicher ungleich schwieriger?!
Viele Grüße Lutz
Anzeige
AW: Automatsich Tabelle in Formel zeigen
20.08.2012 17:25:16
Josef

Hallo Lutz,
für einfache Verknüpfungen genügt das.
' **********************************************************************
' Modul: DieseArbeitsmappe  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  Dim strRef As String, objPre As Object
  
  Cancel = True
  
  On Error GoTo ErrExit
  
  If Target.HasFormula Then
    strRef = Replace(Replace(Replace(Target.Formula, "=", ""), "+", ""), "-", "")
    Application.Goto Range(strRef)
  End If
  
  Exit Sub
  
  ErrExit:
  MsgBox "Kein Verknüpfungsziel gefunden!", vbInformation, "Hinweis"
End Sub


Für Funktionen würde ich auf die eingebauten Mechanismen zurückgreifen.
Spur zum Vorgänger/Nachfolger und auf den Pfeil klicken, dann kann man das Ziel auswählen.

« Gruß Sepp »

Anzeige
AW: Automatsich Tabelle in Formel zeigen
20.08.2012 17:45:17
Lutz
Hallo Sepp - geht wie verrückt wenn man es in das Modul der Mappe kopiert.
Noch mal eine Frage; was wäre der Unterschied wenn man das auch zu externen Dateien so machen möchte? (Der Code öffnet das in der gleichen Mappe wunderbar).
Und wie Du weißt ist das Leben ja immer unfreundlich - in einigen Zellen habe ich zwar nur eine einfache Zellreferenz stehen aber am Ende dann noch /1000; bekommt man das auch hin? Wahrscheinlich noch replace /1000 durch nichts aber geht das noch in der Codezeile?
In jedem Fall aber schon mal vielen lieben Dank.
Viele Grüße Lutz
AW: Automatsich Tabelle in Formel zeigen
20.08.2012 18:11:32
Josef

Hallo Lutz,
dann so.
' **********************************************************************
' Modul: DieseArbeitsmappe  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  Dim strRef As String, strFile As String, objWB As Workbook
  
  Cancel = True
  
  On Error GoTo ErrExit
  
  If Target.HasFormula Then
    strRef = Split(Replace(Replace(Replace(Target.Formula, "=", ""), "+", ""), "-", ""), "/")(0)
    If InStr(1, strRef, "]") Then
      strFile = Replace(Replace(Split(strRef, "]")(0), "[", ""), "'", "")
      strRef = Replace(Split(strRef, "]")(1), "'", "")
      Set objWB = Workbooks.Open(strFile)
      Application.Goto objWB.Sheets(Split(strRef, "!")(0)).Range(Split(strRef, "!")(1))
    Else
      Application.Goto Range(strRef)
    End If
  End If
  
  Exit Sub
  
  ErrExit:
  MsgBox "Kein Verknüpfungsziel gefunden!", vbInformation, "Hinweis"
End Sub



« Gruß Sepp »

Anzeige
AW: Automatsich Tabelle in Formel zeigen
21.08.2012 09:30:04
Lutz
Hallo Sepp,
sorry bin jetzt erst wieder am Arbeitsplatz...
Vielen Tausend Dank - ich bin schwer beeindruckt - es geht mit /1000 und auch auf eine andere Mappe!
Er öffnet sogar die Mappe wenn die geschlossen ist!!
Echt Wahnsinn, noch mal vielen Dank - die Funktion sollte Excel mal im Standard einbauen!
Liebe Grüße und noch einen schönen Tag für Dich - Lutz
AW: Automatsich Tabelle in Formel zeigen
21.08.2012 09:30:05
Lutz
Hallo Sepp,
sorry bin jetzt erst wieder am Arbeitsplatz...
Vielen Tausend Dank - ich bin schwer beeindruckt - es geht mit /1000 und auch auf eine andere Mappe!
Er öffnet sogar die Mappe wenn die geschlossen ist!!
Echt Wahnsinn, noch mal vielen Dank - die Funktion sollte Excel mal im Standard einbauen!
Liebe Grüße und noch einen schönen Tag für Dich - Lutz
Anzeige
AW: Automatsich Tabelle in Formel zeigen
21.08.2012 11:55:26
Lutz
Hallo Sepp (oder alle anderen Spezialisten);
mit 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel  _
As Boolean)
Dim strRef As String, strFile As String, objWB As Workbook
Cancel = True
On Error GoTo ErrExit
If Target.HasFormula Then
strRef = Split(Replace(Replace(Replace(Target.Formula, "=", ""), "+", ""), "-", ""), "/")(0) _
If InStr(1, strRef, "]") Then
strFile = Replace(Replace(Split(strRef, "]")(0), "[", ""), "'", "")
strRef = Replace(Split(strRef, "]")(1), "'", "")
Set objWB = Workbooks.Open(strFile)
Application.Goto objWB.Sheets(Split(strRef, "!")(0)).Range(Split(strRef, "!")(1))
Else
Application.Goto Range(strRef)
End If
End If
Exit Sub
ErrExit:
MsgBox "Kein Verknüpfungsziel gefunden!", vbInformation, "Hinweis"
End Sub
Geht das ganz toll aber nur wenn die Datei in der sich der Bezug befindet noch nicht geöffnet ist. Wenn die Datei schon offen ist bricht er ab.
Kann man das irgendwie noch ergänzen dass es auch bei schon geöffneter Verknüpfungsdatei funktioniert?
Vielen Dank und viele Grüße Lutz
Anzeige
AW: Automatsich Tabelle in Formel zeigen
21.08.2012 12:26:03
Josef

Hallo Lutz,
ungetestet!
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  Dim strRef As String, strFile As String, objWB As Workbook, objOpen As Workbook
  
  
  Cancel = True
  
  On Error GoTo ErrExit
  
  If Target.HasFormula Then
    strRef = Split(Replace(Replace(Replace(Target.Formula, "=", ""), "+", ""), "-", ""), "/")(0)
    If InStr(1, strRef, "]") Then
      strFile = Replace(Replace(Split(strRef, "]")(0), "[", ""), "'", "")
      strRef = Replace(Split(strRef, "]")(1), "'", "")
      For Each objOpen In Application.Workbooks
        If objOpen.FullName = strFile Then Set objWB = objOpen: Exit For
      Next
      If objWB Is Nothing Then Set objWB = Workbooks.Open(strFile)
      Application.Goto objWB.Sheets(Split(strRef, "!")(0)).Range(Split(strRef, "!")(1))
    Else
      Application.Goto Range(strRef)
    End If
  End If
  
  Exit Sub
  
  ErrExit:
  MsgBox "Kein Verknüpfungsziel gefunden!", vbInformation, "Hinweis"
End Sub



« Gruß Sepp »

Anzeige
AW: Automatsich Tabelle in Formel zeigen
21.08.2012 12:42:53
Lutz
Hallo Sepp,
geht wunderbar - anscheindend brauchst Du nicht mal testen: Respekt!
Vielen Dank und viele Grüße Lutz

307 Forumthreads zu ähnlichen Themen

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
Anzeige
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
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
Anzeige
Fehler bei Formel per Makro in Zelle eintragen
Born

Hallo Forum,
ich habe folgendes Problem:
Ich schreibe per Makro in Zellen eine Formel. Als Ergebnis bekomme ich jedoch nur die Fehlermeldung #NAME?. Wenn ich dann mit F2 in den Bearbeiten-Modus gehe und Enter drücke, kommt das richtige Ergebnis. Meine Formel scheint also richtig zu sein...
23.10.2008 10:15:00
Thread-ID: 1018538
11 Beiträge
Formel in Zellen einfügen!
Andi

Hallo zusammen,
ich würde gerne mit Hilfe eines Makros eine Formel in die die Spalte "Q" einfügen.
Die Formel soll jedoch nur in de Zellen der Spalte "Q" eingetragen werden,
wo auch ein Wert in der jeweiligen Zeile der Spalte "L" vorhanden ist.
Ich hoffe es kann mir jemand bei...
30.10.2008 21:03:30
Thread-ID: 1020721
6 Beiträge
Formelwerte in bestimmte Zellen
Sebastian

Hallo zusammen,
ich möchte gerne mit Hilfe eines Makros oder ähnlichem die Formelwerte eines bestimmten Arrays in ein bestimmtes Array eintragen lassen, wenn man darauf klickt.
Ist dies möglich? Wenn ja, wie? ;)
Vielen Dank für eure Hilfe und falls Ihr noch etwas mehr Info braucht,...
17.11.2008 21:32:00
Thread-ID: 1025413
7 Beiträge
formel in zelle,mit makro
rolf

hallo
wie kann ich diese formel =DATEDIF(E2;$F$1;"Y") mit einem makro in tabelle1 zelle f2 eintragen.
mfg rolf
25.11.2008 23:12:13
Thread-ID: 1027900
3 Beiträge
Laufzeitfehler 1004 bei Formeleinfügen in Zelle
Werner

bei folgender Formel
ActiveCell.FormulaR1C1 = "=RC[-2]*100/RC[-1]"
erhalte ich Laufzeitfehler 1004. Woran kann es liegen?
Gruß Werner.
26.11.2008 14:31:29
Thread-ID: 1028037
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
13
2
4
3
5
10
5
6
2
6
2
8
5
1
5
8
3
4
4
1
3
5
10
4
3