ich habe ein Problem?! Ich möchte eine Datei aus einem Teams Kanal öffnen, was auch wunderbar über ThisWorkbook.FollowHyperlink "datei" funktioniert.
Allerdings läuft dann das Makro weiter und findet die Datei nicht (die Datei öffnet im Hintergrund), weil ich in diese per Makro noch Daten übertragen möchte.
Die Versuche mit einer Schleife oder mit wait die Zeit des Öffnens zu überbrücken, schlagen immer fehl.
Sub test_teams()
Const strPfad As String = "teamslink" 'Teams Test
Dim strDatei As String
Dim strname As String
Dim name As String
Dim currentWorkbookDir
Dim wkb As Workbook
Const DatGl As String = "Testdatei.xlsx" 'Name der Datei in Teams
strname = ThisWorkbook.name
If Datei_offen(DatGl ) = True Then
name = DatGl
GoTo offen:
End If
ActiveWorkbook.FollowHyperlink strPfad
'Wartezeit wegen Öffnen aus Teams
offen:
For I = 1 To 500
On Error Resume Next
Workbooks(DatGl ).Activate
If Datei_offen(DatGl) = True Then Exit For
Next I
Workbooks(DatGl).Activate
currentWorkbookDir = Workbooks(DatGl ).Path
Set wkb = Workbooks(DatGl)
rownr = wkb.Sheets(1).Cells(Rows.Count, 6).End(xlUp).Row 'hier wird nichts gefunden, weil noch nicht offen
colnr = wkb.Sheets(1).Cells(3, Columns.Count).End(xlToLeft).Column 'hier wird nichts gefunden, weil noch nicht offen
End Sub
Was mache ich falsch oder gibt es eine bessere Lösung? Wenn ich mit F8/F5 durch den Code springe, läuft alles. Nur wenn ich das Makro aufrufe....werden die weiteren Schritte erst abgearbeitet und dann erst öffnet die Datei aus Teams (in Excel).
Für Hilfe wäre ich echt dankbar.
Viele Grüße
Thomas