Zelle abhängig von Blattname #Bezug!
25.08.2003 17:54:56
Catrin
ich nutze gerade die Sommerpause, um diverse Dateien zu verbessern. Nun habe ich ein Blatt in dessen Spalten Monatszahlen stehen. Diese Zahlen werden sich mittels einer Formel aus einem zuvor importierten Blatt gezogen. Die importierten Blätter bekommen die Namen 1 - 12 - je nach Monat. Der Monat wird über Inputbox abgefragt.
Nun möchte ich aber gerne in allen Spalten schon die Formel für das Holen der Daten hinterlegen. Sie lautet für den Monat August (08)
=WENN(ISTNV(INDEX('08'!$C$1:$C$999;VERGLEICH(C9&D9;'08'!$A$1:$A$999&'08'!$B$1:$B$999;0))*-1);0;(INDEX('08'!$C$1:$C$999;VERGLEICH(C9&D9;'08'!$A$1:$A$999&'08'!$B$1:$B$999;0))*-1))
Diese Formel wird für die einzelnen Monate angepasst. Aus 08 wird für September 09. ABER: das Blatt 09 existiert erst nachdem ein Makro mit der Inputbox läuft, so dass ich in der Spalte September - Dezember #Bezug! stehen habe.
Wie kann ich das Makro so erweitern, dass es in der Spalte September #Bezug! durch 09! (eingabe der Inputbox) ersetzt und im nächsten Monat das gleiche in der Spalte Oktober, dann aber durch 10! ersetzt? Bisher sieht mein Import-Makro so aus:
Sub Import_Mon()
Workbooks.OpenText Filename:="X:\JURISTEN\STEUER\SAP\BANK10.", Origin _
:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, _
FieldInfo:=Array(Array(1, 9), Array(2, 9), Array(3, 1), Array(4, 1), Array _
(5, 1), Array(6, 9), Array(7, 9))
ChDir "X:\JURISTEN\STEUER\SAP"
Cells.Select
Monat = InputBox("Bitte geben Sie den Monat zweistellig ein", "Monatseingabe")
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range _
("B1"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
Sheets("BANK10").Select
Sheets("BANK10").Move Before:=Workbooks("UST2003.XLS").Sheets(5)
Sheets("BANK10").Select
Sheets("BANK10").Name = Monat
End Sub
Mir fehlt eine zündende Idee, könnt Ihr mir helfen??
Viele Grüße
Catrin