Probleme beim abspielen von Makros

Hallo und guten Morgen zusammen
ich arbeite gerade an einer umfangreichen Kalkulation mit verschiedenen, untereinander verknüpften Dateien.
In der einen Datei erfasse ich Rezepte in je einem separaten Register.
Die Register-Namen schicke ich auf eine Übersichtsdatei.
Hier die Formel, die mir die Register-Namen in der Tabelle erscheinen lässt:
=WENN(ZEILE(A5)>ANZAHL2(x);"";HYPERLINK("#'"&INDEX(x;ZEILE(A5))&"'!A1";TEIL(INDEX(x;ZEILE(A5)); FINDEN("]";INDEX(x;ZEILE(A5)))+1;31))) ~f~
Die "x" ist in der Tabelle folgendermassen definiert:
~f~=ARBEITSMAPPE.ZUORDNEN(1+0*JETZT())
Nun das eigentliche Problem: Wenn ich in einer anderen Datei, nennen wir sie Hauptdatei, ein einfaches, aufgezeichnetes Makro laufen lasse (welches nur die Zahlen in der einen Spalte kopiert und dann die Werte in die nächste Spalte einfügt), "arbeitet" es in meiner Übersichtstabelle ebenfalls. Die Bezeichnungen der Register der Rezept-Tabelle verschwinden, stattdessen erscheinen die Register-Namen der Hauptdatei. Die Hyperlinks zu den Rezept-Registern sind noch da, die Bezeichnungen nicht.
Frage: Muss ich "x" allenfalls umdefinieren oder wie komme ich aus diesem Schlamassel raus?
Ich freue mich auf Tipps und Tricks und danke euch schon mal im Voraus
Mit freundlichem Gruss
Dani

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
erstmal die SELECT und ACTIVATE rauswerfen! Autofill habe ich durch Copy ersetzt, weil ich mir einbilde dass das schneller geht.

ActiveSheet.Unprotect
with Range("D9")
.FormulaR1C1 = _
"=IF(ROW(R[-6]C[-3])>COUNTA(x),"""",HYPERLINK(""#'""&INDEX(x,ROW(R[-6]C[-3]))&""'!A1"",MID( _
INDEX(x,ROW(R[-6]C[-3])),FIND(""]"",INDEX(x,ROW(R[-6]C[-3])))+1,31)))"
'.AutoFill Destination:=Range("D9:D199")
.copy
range("D10:D99").pastespecial
end with
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

das so entstandene Makro funktioniert, ja? Du kannst in "ThisWorkbook" eine Sub namens Private Sub Workbook_Open() anlegen, alles was da drinnen steht wird automatisch ausgeführt wenn die Datei geöffnet wird. Aufpassen: du referenzierst in deinem Rekordercode nicht genügend, das könnte ins Auge gehen. Aufpassen2: Zwar kann man Workbook_Open mit Code zumüllen, das ist aber schlechter Stil. Lieber den Code in ein Modul und aus Workbook_Open nur "call" darauf. Das könnte dann so aussehen:
in "ThisWorkbook"

Private Sub Workbook_Open()
Call neueRegister   'Das CALL ist nicht unbedingt notwendig
End Sub

in "Modul1":

Sub neueRegister()
With Sheets("Tabelle1") ' TABELLENNAME ANPASSEN!
.Unprotect
With .Range("D9")
.FormulaR1C1 = "=IF(ROW(R[-6]C[-3])>COUNTA(x),"""",HYPERLINK(""#'""&INDEX(x,ROW(R[-6]C[- _
3]))&""'!A1"",MID(INDEX(x,ROW(R[-6]C[-3])),FIND(""]"",INDEX(x,ROW(R[-6]C[-3])))+1,31)))"
'.AutoFill Destination:=Range("D9:D199")
.Copy
End With
.Range("D10:D99").PasteSpecial
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Probleme beim abspielen von Makros

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread