Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
02.12.2010 10:51:46 |
. |
|
|
|
02.12.2010 15:12:55 |
Severus |
|
|
|
03.12.2010 07:09:17 |
. |
|
|
|
03.12.2010 07:41:10 |
Severus |
|
|
|
03.12.2010 07:46:49 |
. |
|
|
Aw:Mit Doppelklick auf Zelle VBA-Code aktiviere |
03.12.2010 11:06:10 |
Severus |
|
|
|
03.12.2010 11:59:37 |
. |
|
|
Von:
Severus |
Datum:
03.12.2010 11:06:10 |
Views:
955 |
Rating:
|
Antwort:
|
Thema:
Aw:Mit Doppelklick auf Zelle VBA-Code aktiviere |
Nana! Nicht so schnbell die Flinte ins Korn werfen!
Ich hab ja nur gerade eben mal kmeine Zeit gehabt!
Also
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' Es muß ein Verweis auf das "Windows Script Host Objekt Model" gesetzt sein
' Es muß ein Verweis auf das "Microsoft scripting runtime" gesetzt sein
'Der Pfad muß den Computernamen oder die IP des Computers mit der Freigabe enthalten
'Const PFAD As String = "\\03-Data\Dokumente\"
Const PFAD As String = "\\homepc\lwg$\9500\"
Dim FS As New Scripting.FileSystemObject
Dim fldORDNER As Scripting.Folder
Dim fldSUBORDNER As Scripting.Folder
Dim strSUBORDNER As String
Dim WShell As New WshShell
Dim strORDNER As String
If Target.Column <> 5 Or UCase(Target.EntireRow.Columns("T")) <> "N" Then Exit Sub
strORDNER = Target.EntireRow.Columns("L")
strORDNER = Left(strORDNER, InStr(1, strORDNER, "-", vbBinaryCompare) - 1)
Set fldORDNER = FS.GetFolder(PFAD)
For Each fldSUBORDNER In fldORDNER.SubFolders
If InStr(1, fldSUBORDNER.Name, strORDNER, vbBinaryCompare) <> 0 Then
strORDNER = PFAD & fldSUBORDNER.Name
WShell.Run "%SystemRoot%\Explorer.exe /n,/e," & strORDNER
Exit For
End If
Next
Set fldORDNER = Nothing
Set WShell = Nothing
Cancel = True
End Sub
Wichtig: Solltest Du Kundennummern mit führenden Nullen verwenden, dann muß es
strORDNER = Target.EntireRow.Columns("L").Text
heißen.
Außerdem hast Du einmal Deine Kundennummern als
7001185-1000
und einmal als
7001185_1000
beschrieben. Je nachdem was Du wirklich verwendest mußt Du in der Zeile
strORDNER = Left(strORDNER, InStr(1, strORDNER, "-", vbBinaryCompare) - 1)
das Zeichen zwischen den Anführungszeichen anpassen.
Severus |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
02.12.2010 10:51:46 |
. |
|
|
|
02.12.2010 15:12:55 |
Severus |
|
|
|
03.12.2010 07:09:17 |
. |
|
|
|
03.12.2010 07:41:10 |
Severus |
|
|
|
03.12.2010 07:46:49 |
. |
|
|
Aw:Mit Doppelklick auf Zelle VBA-Code aktiviere |
03.12.2010 11:06:10 |
Severus |
|
|
|
03.12.2010 11:59:37 |
. |
|
|