Mit VB Suchen,Hyperlinks einfügen

Erst mal freu ich mich das es so ein Forum gibt und das sich Leutz dafür Zeit nehmen.
Danke.
Ich habe drei Probleme
1.-2. Ich habe mir eine Userform erstellt und ein button für die Allgemeine Suche im Dokument.
Such-Ausgabe soll in einem Neuen Fenster oder Tabelle erscheinen.
Zusätzlich habe ich noch 3 Felder in denen ich gerne über verknüpfte Autofilter eine Und-Suche machen,die Suche soll dann in einem Neuen Fenster oder Tabelle angezeigt werden. Bei beiden Suchen soll beim schließen der Fenster oder Tabelle,das Fenster und die Tabelle gelöscht werden.
3.Ich möchte gerne über einen durchsuche button im Userform einen Hyperlink (einen Ordner) auswählen können,dann müsste diese Adresse in einem Textfeld im Userform erscheinenwerden.
Danke!
As

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo AS,
hier eine Antwort zu 3.) : Ordnerauswahl per VBA :


Function GetDirectory(Optional Msg As String) As String
Dim bInfo As BROWSEINFO
Dim Path As String
Dim r As Long, x As Long, pos As Integer
'bInfo.pidlRoot = 0&
bInfo.pidlRoot = Pfad
If IsMissing(Msg) Then
bInfo.lpszTitle = "Wählen Sie bitte einen Ordner aus."
Else
bInfo.lpszTitle = Msg
End If
bInfo.ulFlags = &H1
x = SHBrowseForFolder(bInfo)
Path = Space$(512)
r = SHGetPathFromIDList(ByVal x, ByVal Path)
If r Then
pos = InStr(Path, Chr$(0))
GetDirectory = Left(Path, pos - 1)
Else
GetDirectory = ""
End If
End Function
Private Sub CommandButton1_Click()
If Val(Application.Version)  "" Then
ChDrive Left(TextBox1, 2)
ChDir TextBox1
End If
'Funktioniert erst ab Excel 2002/XP :
'Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show = True Then 'Es wurde ein Ordner ausgewählt
TextBox1 = fd.SelectedItems(1)
End If
ChDrive AktLW
ChDir AktPfad
End If
End Sub

Den FileDialog gibt es erst seit Excel XP, daher habe ich beide Versionen (also auch für Versionen VOR Excel2002) dargestellt !
Gruß, NoNet

Private Sub cmdDurchsuchen_Click() Static nZeile As Long Tabelle13.Activate If nZeile = 0 Then nZeile = 2 Do Until Cells(nZeile, 2).Value = Empty nZeile = nZeile + 1 Loop Else nZeile = nZeile + 1 End If Cells(nZeile, 14).Select Application.Dialogs(xlDialogInsertHyperlink).Show End Sub

Beliebteste Forumthreads (12 Monate)

Mit VB Suchen,Hyperlinks einfügen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mit VB Suchen,Hyperlinks einfügen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread