folgender Quelltext durchsucht die Zelle B2 nach einem Wert und kopiert dann eine Datei in einen Ordner. Nun möchte ich diesen Quellcode gerne wie folgt anpassen:
1.)nicht die Zelle "B2" sondern die derzeit aktive Zelle soll nach einem Wert durchsucht werden.
2.) Die Datei soll in einen Ordner kopiert werden, der so heißt wie die beiden Zellen rechts von der derzeit aktiven Zelle (aktive Zelle B2, Inhalt von C2: 08, Inhalt von D2: 15, dann soll der Ordner 08_15 heißen.
Vielen Dank an wen auch immer
Mfg
Nico
Sub test()
Quelle = "Mappe1.xls"
wert = Sheets("Tabelle1").Range("B2").Value
Select Case wert
Case 1
FileCopy "C:\" & Quelle, "D:\Personen\Mueller\" & Quelle
Case 2
FileCopy "C:\" & Quelle, "D:\Personen\Meyer\" & Quelle
Case Else
MsgBox "fehler"
End Select
End Sub