Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1096to1100
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
1096to1100
1096to1100
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blatt automatisch aktualsisieren

Blatt automatisch aktualsisieren
tobias
Hallo zusammen,
habe ein Problem, bei dem ein Blatt mit einem anderen in der selben Arbeitsmappe verlinkt ist. Diese Verlinkungen auf das andere Blatt sollen sich automatisch ändern.
Wer Lust hat, sich an einem Sonntag damit auseinander zu setzen, dem danke ich vielmals.
Ausführliche Beschreibung des Problems und die Quelldatei gibt es hier:
https://www.herber.de/bbs/user/64004.xls
Vielen Dank und schönen Sonntag!
Tobias

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Blatt automatisch aktualsisieren
23.08.2009 17:35:32
Daniel
Hi
der folgende Beispielcode verschiebt alle im selektierten Bereich alle Zellbezüge auf das Datenblatt "Pull with History" um die in der Konstanten "Delta" angegebenen Anzahl von Spalten.
Zellbezüge auf andere Blätter werden nicht verändert.
Relative und Absolute bezüge werden angepasst.
Das Makro funktioniert nur für Einzelzellen, Bezüge auf Zellbereiche werden nicht korrekt angepasst, hiier wird nur die 1. spaltenangabe verändert, aber nicht die 2. 
Sub Zellbezüge_Verschieben()
Const Delta = 1
Dim strFormel As String
Dim Pos As Long, Pos2 As Long
Dim Zelle As Range
Dim Spalte As Long, strSpalte As String
Dim VZ As Long
For Each Zelle In Selection.SpecialCells(xlCellTypeFormulas)
strFormel = Zelle.FormulaR1C1
Pos = 0
Pos2 = 0
Do
'Zellbezug auf anderes Blatt finden
Pos = InStr(Pos + 1, strFormel, "'Pull with History data'!")
If Pos = 0 Then Exit Do
'Spaltenbezug finden
Pos = InStr(Pos, strFormel, "!")
Pos2 = InStr(Pos, strFormel, "C")
If Pos2 > 0 And Pos2 - Pos  Zelle.FormulaR1C1 Then Zelle.FormulaR1C1 = strFormel
Next
End Sub
Gruß, Daniel
Anzeige
AW: Blatt automatisch aktualsisieren
24.08.2009 08:01:25
tobias
Super Daniel,
Vielen Dank werde das dann gleich mal ausprobieren....
AW: Blatt automatisch aktualsisieren
23.08.2009 18:40:38
fcs
Hallo Tobias,
wenn du in dem History-Blatt in einer Zeile alle Spalten eindeutig kennzeichnen würdest z.B
Budget2009Q1, Budget2009Q2 usw,
und in einer Spalte alle Zeilen, z,B,
TotalRevenueGruppe1A, TotalRevenueGruppe1B, usw,
Dann könntest du im Scoreblatt die Funktion INDEX in Verbindung mit VERGLEICH verwenden, um die Daten aus dem Historyblatt auszulesen. Die Suchkriterien in der VERGLEICH-Funktion muss du dann per Formel erzeugen, so dass das korrekte Jahr und Quartal gefunden wird.
Wenn du das sauber konfigurierst, dann benötigst du keine Formelaktualisierungen. Du muss beim einfügen von neuen Jahresdaten im History-Blatt "nur" dafür sorgen, dass die Bereiche für die INDEX und VERGLEICH-Funktion automatisch korrekt angepasst werden.
Gruß
Franz
Anzeige
AW: INDEX-VERGLEICH - Deine Datei mit Formeln
23.08.2009 20:44:44
fcs
Hallo Tobias,
da die Formel ziemlich komplex sind, hier noch deine Datei mit Formeln.
https://www.herber.de/bbs/user/64010.xls
Damit die Formel korrekt funktionieren und die Eingabe der notwendigen Daten einfach bleibt musste ich die Spalten/Zeilen-Titel ein wenig anpassen.
Gruß
Franz
AW: INDEX-VERGLEICH - Deine Datei mit Formeln
24.08.2009 08:11:38
tobias
Wow Franz, das ist ja echt klasse, sogar ohne Makro:)
Werde mich dann mal ans Basteln machen, Vielen Dank!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige