Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
240to244
240to244
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Syntax für Select Case + Workbooks.Open

Forumthread: Syntax für Select Case + Workbooks.Open

Syntax für Select Case + Workbooks.Open
08.04.2003 10:34:13
Martin
Guten Morgen alle zusammen,

hab mal wieder eine Pischi-Frage für Euch, die meine Kenntnisse aber um Längen übersteigt.

Folgendes Problem.

1) 3 input dateien, die alle identisch aufgebaut sind
2) 1 ergebnis datei, die werte aus den inputdateien berechnet (allerdings immer nur einer gleichzeitig!)
3) ich möchte jetzt in zelle a1 die Werte 1, 2 oder 3 (für Datei 1, 2 oder 2) eingeben und excel soll dann die verknüpfungen automatisch an diese input-datei anpassen.

Ich weiß, dass ich eigentlich nur den Befehl "celect case" mit "workbooks.open" verknüpfen muss. allerdings ist mir der syntax völlig fremd.

Wäre super, wenn mir jemand eine auskunft geben könnte.

Danke!

Gruß
Martin

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Syntax für Select Case + Workbooks.Open
08.04.2003 10:39:33
richard

hi martin

select case worksheets("Tabelle1").Range("A1")
case is = 1
Workbooks.Open FileName:= "xxxx"
case is = 2
.
.
.
.
mfg richi


Re: Syntax für Select Case + Workbooks.Open
08.04.2003 10:44:54
Martin

Hallo Richi,

vielen Dank. Nur leider sind die Verknüpfungen (also die entsprechenden Formeln) ja nicht automatisch auf die neue Quelle angepaßt. Jetzt öffnet sich ja nur die Datei. Wie kann man evtl. auch die Datei zulassen, aber die Verknüpfungen entsprechend anpassen?

Gruß
Martin

Anzeige
Re: Syntax für Select Case + Workbooks.Open
08.04.2003 10:56:57
richard

wenn du die formeln in den zellen abhängig von dem eintrag in zelle a1 haben willst, mußt du eine schleife bauen die dir in abhängigkeit von dem eintrag die entsprechenden formeln einträgt

select case A1
case is = 1
range("A2").formula = "=irgendwas"
range("A3").formula = "=irgendwas"
.
.
.
.

schlau wäre es, wenn du in abhängigkeit eine variable benennst, die den dateiname generiert (case is = 1, variable = "Name 1. Datei".....)
dann genügt es einmal den zellen eine formel mit dieser variblen zu erzeugen

Range("a2").formula "='" & variable & "'!R7C3"

oder so ähnlich..

probieren probieren

mfg richi

für mehr hilfe brauche ich auf jeden fall genauere infos

mfg richi

ps: du kannst aber auch vba losgelöst deine formeln in der zelle über ne wenn-funktion so gestalten, dass sie sich je nach eintrag in a1 ändern.


Anzeige
Re: Syntax für Select Case + Workbooks.Open
08.04.2003 11:08:05
Martin

Meine Frage war natürlich aggregiert auf ein simples Beispiel. Meine gesamte Datei ist 20MB groß und die Werte werden für Grafiken und Auswertungen usw. genutzt.

Weil ich aber nicht immer manuell die Verknüpfungen ändern möchte, habe ich ein Steuerlement eingefügt, durch welches ich die verschiedenen Datei einzeln ansprechen kann. Nun muss ich also "nur noch" die entsprechend ausgegebenen Werte des Steuerelements (1,2,3 usw.) den einzelnen Dateien zuordnen, so dass dann in abhängigkeit zur angeklickten datei die verknüpfungen auf diese angepaßt werden.

einigermaßen verständlich??

P.S. die formeln mit wenn automatisch anpssen geht leider nicht, weil ich ca. 20 input-dateien habe. dann explodiern die formenl :-)

Anzeige
;

Forumthreads zu verwandten Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
VBA Warnhinweis Ignorieren
Asits

Hallo,
ich möchte per Macro Spalte A, in der Vor-und Nachname durch ein Komma getrennt sind
automatisch trennen.
Das mache ich mit:
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Range("B1").Select
ActiveCell.FormulaR1C1 = "Vorname"
Columns("A:A").Sele...
17.09.2008 20:12:04
Thread-ID: 1010513
3 Beiträge
Per VBA ohne select sortieren
Steffen


Hallo
gibt es eine Möglichkeit ala :
Rows("2:500").Sort Key1:=Range("A3"), Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom (Dies lößt ein VBA Fehler aus)
eine Tabelle zu sortieren ich konnte das sortieren bisher immer n...
29.10.2008 12:16:00
Thread-ID: 1020228
4 Beiträge
Datum/Autor für Eingabe mit "Historie" (vba)
Lukas

Hallo liebe Forumnutzer,
in meiner Unwissenheit wurde ich gebeten, folgendes umzusetzen:
In A5 wird ein Wert eingegeben, in A7 und A8 sollen einmal Autor und einmal Datum der Änderung notiert werden. Jetzt wird in A5 ein neuer Wert eingetragen, der alte Wert aus A5 soll inklusive Autor...
18.11.2008 17:52:05
Thread-ID: 1025721
4 Beiträge
Anzeige
Vba für Verweis auf Formelergebnis
sven

Hallo,
ich habe eine Tabelle, in der ich anhand von einer Gültigkeitsliste (Dropdown in Zelle D11) zwischen diversen Werten auswählen kann. Im selben Tabellenblatt 1 habe ich nun auch umfangreiche Formeln, die mit dem jeweils ausgewählten Wert der Gültigkeitsliste ein Ergebnis in Zelle D15...
25.11.2008 14:18:00
Thread-ID: 1027723
2 Beiträge
vba und iserror?
MBorn

Guten Abend,
ich möchte eine worksheetfunction.match( integer-Variable, Range("A1:A1000")
durch eine worksheetfunction.iserror abfangen und dann die integer-Variable um 1 erhöhen.
Das klappt irgendwie nicht. Weiß jemand wie man sowas macht?
also, so ähnlich wie
m = worksheet...
04.03.2009 19:04:02
Thread-ID: 1056547
3 Beiträge
Code nach "ThisWorkbook" automatisch per VBA
Wicki

Hallo,
ich möchte ausschließlich automatisch Code per VBA nach "ThisWorkbook" einer anderen Mappe übertragen. Der Code liegt als Export-Datei (name.cls) vor. Wenn ich den importiere wird er als Klassenmodul "DieseArbeitsmappe1" angelegt und nützt mir damit nichts.
Hat jemand eine Idee ?...
12.03.2009 23:16:35
Thread-ID: 1059712
5 Beiträge
VBA - Case bringt alles durcheinander
Günther

Hallo,
anhand der Beispielmappe können Fachleute sicherlich nachvollziehen, welches Problem ansteht.
Ich war bis zum Einbau der SELECT CASE Geschichte bei Comboboxen sehr zufrieden. Allerdings war mein Gedanke die Anwendung so bedienerfreundlich als möglich zu erstellen. Dazu wollte ic...
12.11.2009 20:26:26
Thread-ID: 1116669
21 Beiträge
Anzeige
Formel Sverweis in VBA
Marko Albrecht

Hallo,
ich hoffe mir kann bei meinem, nachfolgend beschriebenen, Problem geholfen werden.Das Problem ist , daß in der nachstehenen Formel(Wenn, Istfehler, Sverweis) VBA ein Hochkomma in die Formel schreibt und die Formel dadurch nicht Ihre Funktion erfüllt.Die Bezugszelle der Formel Sverweis...
11.04.2002 14:27:49
Thread-ID: 112467
10 Beiträge
priorisieren einer Spalte über VBA
stefan

Hallo Zusammen,
habe ein Problem mit einer Arbeitsliste mit der ich einfach nicht weiterkomme...
In den Zeilen 100 bis 5000 stehen meine offenen Arbeiten die ich erledigen muß.
Habe eine Spalte A (A100 bisA5000) in der ich eine Zahl (Prio) eingeben möchte.
z.B. A200 Wert 5
...
19.07.2010 23:00:18
Thread-ID: 1167796
3 Beiträge
priorisieren einer Spalte über VBA Teil2
Stefan


Hallo Zusammen, hallo Franz,
hab deinen super Code getestet. Funktioniert genau so wie ich ihn haben wollte
Leider hat sich in der Zwischenzeit die Spalte mit dem Datum (E) auf Spalte N geändert.
Ich bring es einfach nicht auf die Reihe diese simple Anpassung in deinem Code zu...
20.07.2010 20:55:40
Thread-ID: 1167906
2 Beiträge
VBA: deutsche OK - englische Version: Error 13
Dominik

Folgeproblem:In einem Arbeitsblatt, erstellt in Excel 2000, kann in einer Zelle die Zeit ohne ":" eingegeben werden. Der ":" wird durch folgendes Makro ersetzt:Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row 20 Or Target.Column 9 Then Exit Sub
FormatTime (Target....
03.05.2002 12:58:38
Thread-ID: 118198
4 Beiträge

Beliebteste Forumthreads (12 Monate)

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