VBA Code zum Öffnen eines Ordner durch Doppelklick auf beliebige Zelle

Hallo zusammen!

Ich habe eine Exceldatei mit über 5000 Zeilen. Es handelt sich um eine Übersicht aller Kunden mit Kundennummer.
In Spalte E befinden sich diverse Kundennamen.
In Spalte L befindet sich je Kundenname eine Auftragsnummer mit anschließender Positionsnummer. Das sieht so aus z.B. 7001185-1000.
In Spalte T befindet sich entweder der Buchstabe "N" oder "A", was für "Neu" bzw. "Alt" steht.

Ich möchte durch einen Doppelklick auf einen Kundennamen in Spalte E, dass anhand der zugehörigen Kundennummer in Spalte L, ein Ordner in einem anderen Verzeichnis geöffnet wird.
In dem Verzeichnis befinden sich alle Ordner nach Kundennummer sortiert. Benannt sind die Ordner jedoch so: "Kundennummer"_"Kundenname". (Der Kundenname unterscheidet sich von der Schreibweise jedoch von dem aus der Liste, deshalb nur Suchen nach der Nummer!)
Des Weiteren soll es nur die Kunden betreffen, die in Spalte T ein "N" besitzen. ("A" wird nicht berücksichtigt)

Zur Veranschaulichung:

Ich führe einen Doppelklick in Spalte E auf einen Kundennamen aus. In Spalte L befindet sich die dazugehörige Nummer, z.B. 7001185-1000 und es soll nur anhand des ersten Teils der Kundenummer, also die 7001185 der dazugehörige Ordner im Pfad \\03-Data\Dokumente geöffnet werden.

Kann mir jemand weiterhelfen?

DANKE

Guten morgen zusammen. Zunächst mal nachträglich noch frohe Weihnachten!

Hast du für dein Problem schon eine Lösung gefunden? Ich habe eine ganz ähnliche Aufgabenstellung in Access. Ich habe in Access eine 5-stellige Auftragsnummer. Auf dem Server liegen die ganzen zugehörigen Dokumente in einem Ordner. Dieser besteht allerdings auch zusammengesetzt aus der Auftragsnummer_Auftragsname.... der Auftragsname findet sich aber nirgendwo in meiner Datenbank... Also muss ich den Ordner öffnen indem nur die ersten 5 Stellen berücksichtige.... diese sind natürlich in jedem Fall eindeutig. Ich mache hier schon mehrere Wochen immer mal wieder dran herum... ich komme aber nicht zu Lösung.

Hat vielleicht jemand eine Idee?

Grüße vom Bodensee

Stefan

[Sascha Oliver Haak]

@Alle

Hallo,

habe mal etwas zusammengeschrieben was eventuell das ist was gesucht wird.
Bei Doppelklick in der Zeile mit dem Kunden öffnet sich der Explorer mit dem
Verzeichnis.

Folgenden Code in VBA kopieren.
1. Excel öffnen
2. Alt + F11 drücken (VBA öffnet sich)
3. links im Projektfenster "Diese Arbeitsmappe" doppelklicken
4. Den Code einfügen und anpassen
5. VBA schließen
6. Geschafft und ausprobieren

Public Function StringField(iStr As String, iTrenn As String, Feld As Integer)
    On Error Resume Next
    Dim MainData() As String, SplitData() As String
    MainData = Split(iStr, iTrenn)
    SplitData = Split(MainData(Feld - 1), iTrenn)
    StringField = SplitData(0)
End Function
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    irow = Target.Row               ' Zeile
    iWS = Sh.Name                   ' TabellenName
    aWS = "Tabelle1"                ' Tabelle in der die Procedure laufen soll
    aDir = "\\03-Data\Dokumente\"   ' Der Pfad in dem die Unterverzeichnisse zum öffnen sind
    iCol = 12                       ' Spalte hier L
    
    If iWS = aWS Then
            kunde = aDir + StringField(Cells(irow, iCol), "-", 1) + "\"
            Shell "Explorer.exe " + kunde, vbMaximizedFocus
    End If
    Range("A" + Trim(Str(irow))).Select
End Sub

Gruß
Sascha

PS.: Bei Aufruf nach 31.12.2010 wünsche guten Rutsch gehabt zu haben.