CommandButton suchen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub zeige() Dim strName As String strName = Application.InputBox("Name eingeben", "Namenanzeige") 'Inputbox If SheetExist(strName) Then 'pruefe ob Name gibt Worksheets(strName).Select 'bei ja gehe zu Blatt Else MsgBox "Name nicht vorhanden", vbInformation, "Hinweis" End If End Sub Private Function SheetExist(ByVal sheetName As String, Optional Wb As Workbook) As Boolean Dim wks As Worksheet On Error GoTo ERRORHANDLER If Wb Is Nothing Then Set Wb = ThisWorkbook For Each wks In Wb.Worksheets If LCase(wks.Name) = LCase(sheetName) Then SheetExist = True: Exit Function Next ERRORHANDLER: SheetExist = False End Function

Option Explicit Private Sub CommandButton1_Click() Dim strName As String strName = Application.InputBox("Name eingeben", "Namenanzeige") 'Inputbox If SheetExist(strName) Then 'pruefe ob Name gibt Worksheets(strName).Select 'bei ja gehe zu Blatt Else MsgBox "Name nicht vorhanden", vbInformation, "Hinweis" End If End Sub Private Function SheetExist(ByVal sheetName As String, Optional Wb As Workbook) As Boolean Dim wks As Worksheet On Error GoTo ERRORHANDLER If Wb Is Nothing Then Set Wb = ThisWorkbook For Each wks In Wb.Worksheets If LCase(wks.Name) = LCase(sheetName) Then SheetExist = True: Exit Function Next ERRORHANDLER: SheetExist = False End Function

Hallo Hary,
vielen Dank für die schnellen Antworten.
ich gehe davon aus das du dann keine Lösung dafür hast.
Deshalb stelle ich hier nochmals die Frage:
Mein Tabellenblatt nennt sich: Namensübersicht
darauf befinden sich verschiedene CommandButton mit Namen versehen (Thomas, Michael usw.)
der Code der sich hinter den Button befindet lautet:

Sub Makro3()
ChDir "H:\Briefe"
Workbooks.Open Filename:="H:\Briefe\Thomas.xls"
End Sub

Kann man einen Button mit dem Namen Suche erstellen; wenn ich auf diesen klicke ein Fenster aufgeht, wo ich einen Namen eingeben kann (z.B. Thomas) und er mir, wenn er den passenden Namen gefunden hat auch gleich öffnet? Falls dieser Name nicht besteht, sollte das natürlich in einem Fenster anzeigt werden. Wie sollte der VBA Befehl aussehen?

Sub MappeOeffnen() Dim varSuche varSuche = Application.InputBox(prompt:="Bitte Namen eingeben", Type:=2) If varSuche False Then If Dir("D:\Test\" & varSuche & ".xls") "" Then Workbooks.Open Filename:="D:\Test\" & varSuche & ".xls" Else MsgBox "Datei nicht vorhanden" End If End If End Sub

hier sind mal die Codes

Sub Suche_Klicken()
Dim varSuche
varSuche = Application.InputBox(prompt:="Bitte Namen eingeben", Type:=2)
If varSuche  False Then
If Dir("C:\Users\Martin\Documents\Thomas" & varSuche & ".xls")  "" Then
Workbooks.Open Filename:="C:\Users\Martin\Documents\Thomas" & varSuche & ".xls"
Else
MsgBox "Datei nicht vorhanden"
End If
End If
End Sub

Sub Thomas_Klicken()
Workbooks.Open Filename:="C:\Users\Martin\Documents\Thomas.xlsx"
End Sub

Wenn ich auf den Button Thomas klicke macht es mir eine Datei auf die auf dem Laufwerk gespeichert ist. Das funktioniert. Ich möchte ja jetzt auf den Button "Suche" klicken, den Namen Thomas eingeben und wenn er den Namen findet, soll sich gleich die Datei öffnen.
Gruß Martin

Sub MappeOeffnen() Dim varSuche varSuche = Application.InputBox(prompt:="Bitte Namen eingeben", Type:=2) If varSuche False Then If Dir("D:\Test\" & varSuche & ".xl*") "" Then Workbooks.Open Filename:="D:\Test\" & varSuche Else MsgBox "Datei nicht vorhanden" End If End If End Sub

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

CommandButton suchen

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread