Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1544to1548
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
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

verweis / hyperlink auf eine anderes Blatt

verweis / hyperlink auf eine anderes Blatt
06.03.2017 10:23:26
Georg
Liebe Mitlgieder
In folgendem Code wird der Wert auf dem Blatt "BPxName" geholt:
...
'Aktiviert ist das Blatt "Übersicht"
Cells(8, 6).End(xlDown).Offset(1, 0).Select
Selection.Value = Worksheets(BPxName).Range("c46").Value
Der Wert in C46 kann sich aber durch Bearbeitung ändern, d. h. ich möchte einen dynamischen Bezug herstellen, der mir den Wert dann im Blatt "Übersicht" aktualisiert.
Danke.

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: verweis / hyperlink auf eine anderes Blatt
06.03.2017 10:34:11
Herbert
Hallo Georg,
dann solltest Du in die Zelle (8, 6) keinen Wert (Value) eintragen, sondern eine Formel, die dann auf die externe AM zugreift.
Servus
AW: verweis / hyperlink auf eine anderes Blatt
06.03.2017 10:38:06
Georg
Hallo,
vielen Dank, aber leider weiß ich nicht WIE? bin VBA Anfänger.
In der Zelle C46 steht eine Summe.
AW: verweis / hyperlink auf eine anderes Blatt
06.03.2017 10:51:19
Werner
Hallo Georg,
nur diese eine Codezeile: 
Cells(8, 6).End(xlDown).Offset(1, 0).FormulaLocal = "=BPxName!C46"
Oder so, dann wäre es auch egal, wenn das Blatt "Übersicht" nicht aktiv ist: 
Sheets("Übersicht").Cells(8, 6).End(xlDown).Offset(1, 0).FormulaLocal = "=BPxName!C46"
Gruß Werner
Anzeige
AW: Genau so!!! owt
06.03.2017 10:52:22
Herbert
,,
AW: verweis / hyperlink auf eine anderes Blatt
06.03.2017 11:09:54
Georg
Hallo Werner
in beiden Fällen öffnet sich ein Fenster "Werte aktualisieren "
vielleicht habe ich mich nicht klar ausgedrückt (oder stell mich zu blöd an): es handelt sich um EINE Datei mit den verschiedenen Worksheets.
Letztendlich erzeugt der Code ein neues Blatt und in der Übersicht wird dann ein neuer Eintrag erzeugt:
Sheets(1).Select
Sheets(1).Copy after:=Sheets(1)
Sheets(2).Activate
BPxName = Application.InputBox("Praxisname eingeben", "BPx")
Range("c15").Value = BPxName
ActiveSheet.Name = BPxName
ActiveWorkbook.Sheets(2).Buttons.Delete
DPMuster = Application.InputBox("Dienstplanmuster eingeben", "DPMuster")
Range("c18").Activate
Range("c18").Value = DPMuster
BPxRegion = Application.InputBox("Region eingeben", "BPxRegion")
'Personaldatenübernahme
Sheets("BPxÜbersicht").Activate
Cells(8, 2).End(xlDown).Offset(1, 0).Select
Selection.Value = BPxRegion
Cells(8, 3).End(xlDown).Offset(1, 0).Select
Selection.Value = BPxName
'hier euer Vorschlag
Cells(8, 6).End(xlDown).Offset(1, 0).FormulaLocal = "=BPxName!C46"
Ev. noch eine Idee? Besten Dank!!
Anzeige
AW: verweis / hyperlink auf eine anderes Blatt
06.03.2017 12:33:13
Werner
Hallo Georg,
lade doch mal eine Musterdatei hier hoch. Mir ist da noch so einiges unklar.
-wieviele Blätter hast du in der Mappe?
-weshalb sprichst du das Blatt über Sheets(1) an und nicht über den Namen?
-weshalb benutzt du .End(xlDown) stehen da weiter unten noch Daten?
Also am besten mal eine Beispielmappe hochladen, deren Aufbau deinem Original entspricht.
Gruß Werner
AW: verweis / hyperlink auf eine anderes Blatt
06.03.2017 12:59:14
Georg
Hallo Werner:
Die Weshalb-Fragen: weil ich es nicht besser weiß.
Du kannst es mit der Schaltfläche "Kalender erzeugen" durchspielen,
lediglich bei der Abfrage nach dem Dienstplanmuster entweder Muster1, Muster2 oder Muster3 eingeben.
Der Rest ist beliebig.
Datei:
https://www.herber.de/bbs/user/111971.xlsm
Anzeige
AW: verweis / hyperlink auf eine anderes Blatt
06.03.2017 14:04:35
Werner
Hallo Georg,
teste mal:
Sheets("Musterpraxis").Copy after:=Sheets("Musterpraxis")
BPxName = Application.InputBox("Praxisname eingeben", "BPx")
Range("C15").Value = BPxName
ActiveSheet.Name = BPxName
ActiveSheet.Buttons.Delete
DPMuster = Application.InputBox("Dienstplanmuster eingeben", "DPMuster")
BPxRegion = Application.InputBox("Region eingeben", "BPxRegion")
ActiveSheet.Range("C18").Value = DPMuster
'Personaldatenübernahme
Sheets("BPxÜbersicht").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = BPxRegion
Sheets("BPxÜbersicht").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = BPxName
Sheets("BPxÜbersicht").Cells(Rows.Count, 6).End(xlUp).Offset(1, 0).FormulaLocal = _
"='" & BPxName & "'!C46"
MsgBox Personalplanung & BPxName, vbOKOnly
Gruß Werner
Anzeige
AW: verweis / hyperlink auf eine anderes Blatt
06.03.2017 15:22:29
georg
Hallo Werner,
ich trau mich kaum noch was zu schreiben: es funktioniert beim ersten Durchlauf. In der Übersicht steht dann ein Wert drin, alles prima.
Es sollen aber immer wieder Blätter hinzukommen, deswegen der Code.
Laß ich den Code ein zweites Mal durchlaufen (BPxName wird immer als Städtenamen vergeben) steht in der Übersicht folgendes:
Schwaben(in B24) - Füssen(in C24) und dann in F24 quasi als Text: ='Füssen'!C46
Liegt es daran, dass ich den Wert BPxName immer wieder verwende?
AW: verweis / hyperlink auf eine anderes Blatt
06.03.2017 16:10:13
Werner
Hallo Georg,
die Zelle in deiner Musterdatei ist im Format Text formatiert, formatier mal die komplette Spalte im Format Standard oder im Format Zahl.
Wenn du bei deiner ersten InputBox (Jahr) nichts eingibst und Ok klickst oder auf Abbrechen klicks, dann wird der Code trotzdem ausgeführt - das sollte ja wohl nicht sein. Ich habe noch eine entsprechende Abfrage eingebaut.
https://www.herber.de/bbs/user/111981.xlsm
Gruß Werner
Anzeige
AW: verweis / hyperlink auf eine anderes Blatt
07.03.2017 11:20:22
georg
Hallo Werner,
kleine Ursache, große Wirkung. Hätte ich auch selber drauf kommen können....
Vielen Dank nochmals. das mit den " und ' Zeichen ist für mich immer sehr verwirrend, wann was wo.. Bin aber eben Anfänger.
Die Datei muss ich mir noch anschauen, aber eine Abfrage ist immer sinnvoll, auch dafür vielen Dank.
Grüße Georg
Gerne u. Danke für die Rückmeldung. o.w.T.
07.03.2017 12:41:00
Werner

327 Forumthreads zu ähnlichen Themen

Gültigkeitsprüfung in Bezug auf andere Zelle
Erwin

Geschätztes Forum!
Ich möchte in Zelle A1 eine Gültigkeitsprüfung einfügen.
Die Gültigkeit soll mir dort Eingaben bis zur Höchstzahl der in A2 vorhandenen Zahl erlauben.
zB. Wenn in A2 die Zahl 5 steht, soll die Eingabe in A1 bis höchstens bis zur Zahl 5 (also 1,2,3,4,5) erlaubt sei...
14.08.2008 14:06:00
Thread-ID: 1001854
5 Beiträge
Anzeige
Cursor auf anderes Blatt springen lassen
KlausF

Schönen Freitag-Morgen Leute!
In einer Datei kontrolliere ich in Tabelle 20 errechnete Werte. Entsprechen diese nicht meinen Vorstellungen, so muß ich in Tabelle 1 in der korrespondierenden Zelle (d.h. die mit der gleichen Adresse wie die aktuelle Zelle in Tab.20) Korrekturwerte eingeben.
26.09.2008 08:02:06
Thread-ID: 1012475
3 Beiträge
Übertrag auf anderes Blatt
Sankt

Hallo ,
erstmal vielen Dank für Eue Hilfen.
Ich würde gerne bei folgendem Blatt von der jeweiligen unteren Zelle einen Übertrag auf die Obere Zelle machen. Wie es normal geht weiß ich.
Meine Frage ist nun kann ich den Wert übernehmen wenn ich das Blatt kopiere.
https://www.herb...
02.10.2008 14:42:14
Thread-ID: 1013889
3 Beiträge
Anzeige
Übertrag auf anderes Blatt
Sankt

Hallo
ich habe da ein kleines Problem.
Ich benutze folgende Formel
=INDIREKT(""&WAHL(MONAT(A1)-1;"Januar";"Februar";"März";"April";"Mai";"Juni";"Juli";"August"; "September";"Oktober";"November";"Dezember")&"!D9")
die funktioniert auch so weit ganz gut.
Nun habe ich...
03.11.2008 16:50:00
Thread-ID: 1021376
7 Beiträge
Summenprodukt auf anderes Blatt beziehen
Reinhard

Hallo Wissende, diese Formel in einer bedingten Formatierung in Tabelle1 fuktioniert: =SUMMENPRODUKT(($C$1:$C$100=$A3)*($D$1:$D$100=$B3))>0 Vegebe ich aber z.B. für Tabelle2!$A:$A den Namen TabA Tabelle2!$B:$B den Namen TabB so tut sich nichts bei der bedingten Formatierung in Tabelle1 bei...
27.11.2008 11:02:50
Thread-ID: 1028275
3 Beiträge
Gültigkeit Liste mit Bezug auf eine andere Datei
Rafi

Hallo Zusammen,
ich habe ein Problem mit einer Gültigkeitsprüfung auf eine Liste die in einer anderen Datei steht.
Bislang hat das immer funktioniert, wenn ich die Liste der Externen Datei unter Namen definiert und bei der Gültigkeit/Liste mit Quelle="Name" angegeben habe. Geht aber nic...
16.12.2008 11:28:00
Thread-ID: 1033235
4 Beiträge
Referenzieren auf Tabellenblatt???
Maris

Hallo,
komische Frage! Ich habe eine Datei A in die täglich Daten eingegeben werden, an jedem Tag wird ein neues Tabellenblatt erstellt der Name des Tabellenblatts ist immer das Datum des Tages im Format: tt.mm.yy.
In einer anderen Datei B möchte ich auf die Daten der Tabelle zugreifen...
29.01.2009 15:46:09
Thread-ID: 1045053
20 Beiträge
Zugriff auf Zellen in anderer Tabelle mit Indirekt
Florian

Hallo,
ich hab mal wieder ein Problem, bei dem ich nicht weiterkomme.
Ich möchte, dass man in die Tabelle die Adresse einer Zelle eingibt, und dann der Wert dieser Zelle übernommen wird.
Die Zelle, deren Wert übernommen werden soll, liegt aber in einer anderen Tabelle (gleiche Mappe...
06.03.2009 21:27:57
Thread-ID: 1057475
3 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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
4
2
2
2
6
6
2
3
19
2
8
3
5
1
2
4
6
8
8
3
4
2
4
2
6