Mappenübergreifender Code

Hallo Norman,

Danke für deine Nachricht in unserem Support-Forum.

Ich würde dir meine Kollegen beim
MSDN Support empfehlen zu kontaktieren. Sie können dir besser helfen.

Bei anderen Anliegen helfe ich gerne weiter.

Grüße,

Federica

Dachte es gäbe vlt irgend einen Präfix oder Suffix, dass Excel in der eigentlichen Mappe schaut :/.

Den gibt es schon, aber um den anwenden zu können musst Du das Objekt Model verstehen. Und bis zu dem Punkt wollen die meisten Anwender dann nicht mehr.

Dafür gibt es dann Leute wie mich: Ich bin käuflich.

Aber wenn Du Dich einarbeiten willst, hier wäre ein Anfang:

http://www.online-excel.de/excel/grusel_vba.php?f=6

Andreas.

Ok schade;

dann belass' ich es mal so wies ist und hoffe dass ich in nächster Zeit nicht viel ändern muss.

Dachte es gäbe vlt irgend einen Präfix oder Suffix, dass Excel in der eigentlichen Mappe schaut :/.

Grüße,

Norman

Habe bislang nur (wenn überhaupt) etwas im Makrobereich gefunden, kenn' mich hierbei aber noch gar nicht aus.


Und mich nur für die Codezusammenlegung dort einzulesen fand ich etwas hochgeriffen.

--------------------------------------------------------------------------------

Tja, leider wirst Du Dich da noch viel mehr einlesen müssen wenn Du das wirklich realisieren willst, denn entweder schreibst Du ein AddIn was dann immer geladen wird, oder setzt referenzen auf Deine externe Makrodatei welche dann immer zur Verfügung stehen
muss und auch geöffnet wird.

Ich rate Dir: Lass es wie es ist. Wenn Du es unbedingt mal angehen willst, dann schau mal in dieses AddIn rein, dann hast Du eine Idee was Dich erwartet.

https://www.dropbox.com/s/eow60utqq4nf1gr/AK.zip?dl=1

Andreas.

Hallo Juli,

wenn du sonst keine Mappe offen hast, kannst du auch Excel Schließen.

Probiere es dann so:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim varOut() As Variant, varAdr As Variant, varBez As Variant

Dim i As Integer, n As Integer, iAnt As Integer

Dim strOut As StringConst strAdr = "D4,G4,K4,G13,G14"

Const strBez = "Bezeichnung Auftrag,Budget gesamt,Verantwortlich,Empfänger-KST,Empfänger-KST"varAdr = Split(strAdr, ",")

varBez = Split(strBez, ",")

With Sheets("Einzelauftrag")

   For i = LBound(varAdr) To UBound(varAdr)

      If Len(.Range(varAdr(i))) = 0 Then

         ReDim Preserve varOut(n)

         varOut(n) = varAdr(i) & ": " & varBez(i)

         n = n + 1

      End If

   Next

   If n > 0 Then

      strOut = Join(varOut, Chr(10))

      iAnt = MsgBox("Folgende Zellen sind noch auszufüllen:" & Chr(10) & Chr(10) & strOut _

      & Chr(10) & Chr(10) & "Wollen Sie diese jetzt ausfüllen?", vbYesNo, "Speichernabfrage")

      Cancel = True

   End If

   If n = 0 Or iAnt = vbNo Then

      Cancel = False

      ThisWorkbook.Save

      Application.Quit

   End If

End With

End Sub

Claus