Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
02.12.2010 10:51:46 |
. |
|
|
|
02.12.2010 15:12:55 |
Severus |
|
|
Aw:Aw:Mit Doppelklick auf Zelle VBA-Code aktiviere |
03.12.2010 07:09:17 |
. |
|
|
|
03.12.2010 07:41:10 |
Severus |
|
|
|
03.12.2010 07:46:49 |
. |
|
|
|
03.12.2010 11:06:10 |
Severus |
|
|
|
03.12.2010 11:59:37 |
. |
|
|
Von:
. |
Datum:
03.12.2010 07:09:17 |
Views:
924 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Mit Doppelklick auf Zelle VBA-Code aktiviere |
Hoffe ich habe Dich richtig verstanden:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' Es muß ein Verweis auf das "Windoes Script Host Objekt Model" gesetzt sein
'Der Pfad muß den Computernamen oder die IP des Computers mit der Freigabe enthalten
Const PFAD As String = "\\03-Data\Dokumente\"
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)
strORDNER = strORDNER & "_" & Target
strORDNER = PFAD & strORDNER
WShell.Run "%SystemRoot%\Explorer.exe /n,/e," & strORDNER
Set WShell = Nothing
Cancel = True
End Sub
Severus
Funktioniert noch nicht ganz, da der Explorer immer sagt der Pfad wurde nicht gefunden.
Das liegt vielleicht daran, dass er auch nach dem Kundennamen sucht oder? Das habe ich nicht so explizit erwähnt, dass der Kundenname in Spalte 5 nicht exakt dem Namen entspricht der im Ordnernamen enthalten ist.
D.h. in Spalte 5 hab ich den Namen "Keks GmbH Hamburg"die dazugehörige Nummer in Spalte L lautet "7013458_4000". (Nach der "4000" darf nicht gesucht werden, da diese nie im Ordnernamen erscheint)
Der Ordner, der jetzt geöffnet werden soll lautet dann so: 7013458_KEKSE Hamburg
D.h. Es kann immer nur nach der 7-stelligen Nummer gesucht werden, da der Kundenname nicht mit dem aus Spalte 5 übereinstimmt. Kann man den Rest ab dem "_" nicht einfach weglassen zum Suchen?
Ich hoffe, ich konnte das Problem einigermaßen schildern?! |
- 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 |
|
|
Aw:Aw:Mit Doppelklick auf Zelle VBA-Code aktiviere |
03.12.2010 07:09:17 |
. |
|
|
|
03.12.2010 07:41:10 |
Severus |
|
|
|
03.12.2010 07:46:49 |
. |
|
|
|
03.12.2010 11:06:10 |
Severus |
|
|
|
03.12.2010 11:59:37 |
. |
|
|