VBA - Vlookup | HERBERS Excel Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Herbert,
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Der Befehl sieht erstmal ok aus.

Dim Mitarbeiter_Name As String Mitarbeiter_Name = WorksheetFunction.VLookup(TextBox_Name.Value, Sheets("Einstellungen").[ _ Tabelle9], 4, False) If CheckBox_auto_Ordner.Value = True Then If Dir("X:\8. Mitarbeiter\" & Mitarbeiter_Name & "\Achsbilder\Achsbild", vbDirectory) = "" Then MkDir ("X:\8. Mitarbeiter\" & Mitarbeiter_Name & "\Achsbilder\Achsbild") MsgBox "Ordner ''Achsbilder'' wurde angelegt!" Else MsgBox "Ordner ''Achsbilder'' ist vorhanden!" End If End If End Sub

Hallo,
hab es schon hinbekommen und nein...,
das eine ist das Tabellenblatt: "Einstellungen"
das andere eine Tabelle mit den Mitarbeiter Namen und deren Speicherpfade für das Tool: "Tabelle9"
Am anfang zieht sich das Tool den jeweils an dem Pc eingeloggten User und weiß das dieser an dem Tool ist, dann hat er aber nur z.B.: "Max Mustermann"
Und weil ich mich mit Excel nicht wie ein Profi auskenne, habe ich mit Formeln im Excelblatt in der letzten Spalte dann den Namen so definiert: "Mustermann, Max", weil bei uns die Mitarbeiterordner so gestaltet sind.
Ich weiß es gibt sogesehen einfachere Wege, aber die wären für mich glaube ich ein wenig zu komplex.
Bin zur Zeit mehr an Access VBA und dem Kram, als in Excel.
Hier aber nochmal der funktionierende Code:

Dim Mitarbeiter_Name As String
Mitarbeiter_Name = WorksheetFunction.VLookup(TextBox_Name.Value, Sheets("Einstellungen").[ _
Tabelle9], 4, False)
If CheckBox_auto_Ordner.Value = True Then
If Dir("X:\8. Mitarbeiter\" & Mitarbeiter_Name & "\Achsbilder", vbDirectory) = "" Then
MkDir ("X:\8. Mitarbeiter\" & Mitarbeiter_Name & "\Achsbilder")
MsgBox "Ordner ''Achsbilder'' wurde angelegt!"
Else
MsgBox "Ordner ''Achsbilder'' ist vorhanden!"
End If
End If
End Sub

trzd. Vielen Dank!
MfG Herbert!

Beliebteste Forumthreads (12 Monate)

VBA - Vlookup

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA - Vlookup

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread