Verknüpfung

Hallo,
durch die Beiträge in dem Forum konnte ich als Laie ein VBA Projekt erfolgreich anpassen. Nun fehlt mir noch eine Lösung für ein ggf einfaches Problem.
Ich habe 8 VBA Unterrichtsprotokolle die im Tabellenblatt "Daten" die Anwesenheiten der Auszubildenden speichert. Die 8 Protokolle sind mit den jeweiligen Tabellenblättern
mit einer Arbeitsmappe in einem Tabellenblatt "Gesamtanwesenheiten" verknüpft. Alle sind in einem Ordner. Nun stimmen in einzelnen Protokollen bei einzelnen Auszubildenden die Anwesenheiten nicht immer und müssen geändert werden. Damit der Mitarbeiter nicht extra in eines der Unterrichtsprotokolle rein muss und den Eintrag dort ändern muss, möchte ich, dass man den Eintrag in "Gesamtanwesenheiten" in der jeweiligen Zelle einfach abändert und der geänderte Eintrag einfach in dem jeweiligen Unterrichtsprotokoll geändert wird.
Quasi müsste aus der bisherigen Quellmappe eine Zielmappe werden. Ist dies ggf einfach zu bewerkstelligen?
Vielen Dank im Voraus
Hans-Jörg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Verknüpfung

17.06.2021 20:15:34

Yal

AW: Verknüpfung

17.06.2021 21:17:02

Metter

AW: Verknüpfung

17.06.2021 22:39:06

Yal

AW: Verknüpfung

18.06.2021 13:15:29

Hans-Jörg

AW: Verknüpfung

18.06.2021 14:58:15

Yal

AW: Verknüpfung

19.06.2021 13:19:47

Metter

Noch im Grübeln, kennt jemand vielleicht eine "nette" VBA Lösung wie ich den Verknüpfungslink meiner Verknüpfung aufsplitten kann?
Beispiel einer Zelle/Pfad: ='N:\Nuernberg\JUGEND_N\Digitaler Stützunterricht\digitale Protokolle Metter\[TN Baier.xlsm]Daten'!AB8
Splitten in: Nuernberg\JUGEND_N\Digitaler Stützunterricht\digitale Protokolle Metter\ dann : TN Baier.xlsm und noch: AB8
Dann könnte ich den VBA Code für das Übertragen in geschl. Arbeitsblatt verwenden:


Private Sub schreiben()
Dim sPfad         As String     ' der Ordner-Pfad der Excel-Mappen
Dim sDatei        As String     ' die zu beschreibende Datei
Dim WkSh_Q        As Worksheet  ' das Quell-Tabellenblatt - die Herkunft
Dim WkSh_Z        As Worksheet  ' das Ziel-Tabellenblatt - das Ergebnis
sPfad = "N:\Nuernberg\JUGEND_N\BaE 12-19\05 Unterrichtspläne\Protokoll automatisch\Simulation\"
sDatei = "Quellmappe.xlsx"
Application.ScreenUpdating = False
If Dir(sPfad & sDatei)  "" Then
Workbooks.Open (sPfad & sDatei)
ThisWorkbook.Activate
'Application.ActiveWindow.Visible = False
Else
MsgBox "Den angegebenen Ordner """ & sPfad & """" & Chr(10) & _
"und/oder die gesuchte Datei """ & sDatei & """ gibt es nicht!", _
16, "   Hinweis für " & Application.UserName
Exit Sub
End If
Set WkSh_Q = ThisWorkbook.Worksheets("Tabelle1")
Set WkSh_Z = Workbooks(sDatei).Worksheets("Tabelle1")
WkSh_Q.Cells.Range("B12").Copy Destination:=WkSh_Z.Range("G15")
Workbooks(sDatei).Close SaveChanges:=True
Application.ScreenUpdating = True
MsgBox "Die Daten wurden erfolgreich übergeben.", _
64, "   Information für " & Application.UserName
End Sub

Vielleicht hat da ja jemand die Lösung?
VIele Grüße und schonmal vorab Danke ;-)

Public Function SplitAdresse(ByVal Adresse As String) Adresse = Replace(Adresse, "[", ";") Adresse = Replace(Adresse, "]", ";") Adresse = Replace(Adresse, "!", ";") Adresse = Replace(Adresse, "'", "") SplitAdresse = Split(Adresse, ";") End Function Sub test() Dim T Const s = "'N:\Nuernberg\JUGEND_N\Digitaler Stützunterricht\digitale Protokolle Metter\[TN Baier.xlsm]Daten'!AB8" For Each T In SplitAdresse(s) Debug.Print T Next End Sub

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread