bestimmets Tabellenblatt in externer XLSX-Datei suchen
05.06.2024 12:47:42
Michael
ich könnte mal wieder Hilfe benötigen.
Auf einer UserForm befindet sich ein CommandButton. Mit dem CommandButton öffne ich den Dateimanager und suche dann nach einer XLSX-Datei. Beim Öffnen dieser gesuchten XLSX-Datei soll dann nach einem bestimmten Tabellenblatt gesucht werden. Gibt es das Tabellenblatt nicht, soll der Code mit einem Hinweis, dass das gesuchte Tabellenblatt nicht vorhanden ist, beendet werden.
Im Internet habe ich dazu den folgenden Code gefunden:
Function TabEx(strTab As String) As Boolean
Dim Blatt As Worksheet
TabEx = False
For Each Blatt In ActiveWorkbook.Worksheets
If Blatt.name = strTab Then
TabEx = True
Exit Function
End If
Next Blatt
End Function
Im Code selber rufe ich das so auf:
If TabEx("hier steht der gesuchte Wert") = True Then
'code
Else
MsgBox "Das gesuchte Tabellenblatt existiert nicht.", vbMsgBoxSetForeground + vbExclamation, "Hinweis"
End If
Wie muss ich den Code anpassen, dass dieser die externe XLSX-Datei durchsucht und nicht die Datei, in welcher die User-Form programmiert ist?
Vielen Dank für eure Hilfe
Grüße Michael
PS: das ist der Code, mit dem ich die XLSX-Datei dann öffne.
Dim objExcel As New Excel.Application
objExcel.Workbooks.Open DateiNameExcel, ReadOnly:=True
Anzeige