übergeordneter Ordner in Tabelle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub umbenennen() Dim Alt$, Neu$, Verz$, Kompl$ With Sheets("Tabelle1") Alt = .Range("AN2") Verz = .Range("AN5") Neu = .Range("AM4") Kompl = Replace(Alt, Verz, "") & Neu End With End Sub

Sub umbenennen() Dim Alt$, Neu$, Pos%, Kompl$ With Sheets("Tabelle1") Alt = .Range("AN2") Neu = .Range("AM4") Pos = InStrRev(Alt, "\") 'letze \finden Kompl = Left(Alt, Pos) & Neu End With End Sub

Sub umbenennen() Dim Alt$, Neu$, Pos%, Kompl$ With Sheets("Tabelle1") Alt = .Range("A2") If Alt = "" Or Dir(Alt, vbDirectory) = "" Then MsgBox Alt & " existiert nicht!" Exit Sub End If Neu = .Range("A6") Pos = InStrRev(Alt, "\") 'letze \finden Kompl = Left(Alt, Pos) & Neu If Dir(Kompl, vbDirectory) <> "" Then MsgBox Kompl & " existiert bereits!" Exit Sub End If Name Alt As Kompl End With End Sub

Sub RenameDir() Dim errMsg As String, dirName As String On Error GoTo error_exit errMsg = "Das aktive Blatt ist keine Tabelle!" errMsg = "Es existiert kein Ordner mit Namen [" & Range("AN2") & "]" dirName = Dir(Range("AN2"), vbDirectory) If dirName "" Then errMsg = "[" & Range("AM4") & "] ist kein gültiger Ordnernamen!" Name Range("AN2") As Replace(Range("AN2"), dirName, Range("AM4")) errMsg = "" End If error_exit: If errMsg "" Then MsgBox errMsg, vbCritical End Sub

Hallo Hansueli,
mittels nachstehender Makros liste ich folgende Daten in Tabelle1 auf:
'ermittelt aktuellen Pfad

Sub workbook_pfad()
Worksheets("Tabelle1").Range("A2").Value = ThisWorkbook.Path
End Sub

'ermittelt aus Pfad den bisherigen Ordner-Namen

Sub Test_übergeordneterOrdner2()
pfad = ThisWorkbook.Path
'Debug.Print pfad
ChDrive (Left(pfad, 3))
ChDir (pfad)
ChDir ("..")
pfad1 = CurDir(Left(pfad, 3))
'Debug.Print pfad1
Worksheets("Tabelle1").Range("A8") = pfad1 & "\"
End Sub

Sub namen1()
'Alt = "C:\chris\test"
Alt = Worksheets("Tabelle1").Range("A2")
'Debug.Print Alt
'Neu = "C:\chris\geil"
Neu = Worksheets("Tabelle1").Range("A8") & Range("A6")
'Debug.Print Neu
Name Alt As Neu     'bereitet Probleme
End Sub

Zelle A2 = akueller Pfad der Datei mit Ordner:
C:\Users\Peter\Desktop\Neuer Ordner (2)
Zelle A4 = Teilname aktueller Ordner:
Neuer Ordner (2)
Zelle A6 = neuer Ordnername:
TestFörder
Zelle A8 = Pfad ohne Ordnername:
C:\Users\Peter\Desktop\
Es werden somit alle relevanten Daten aufgeführt. Mein einziges Problem ist in Makro "


Sub namen1() die Zeile Name Alt As Neu hier sollte eigentlich der geöffnete Ordner umbenannt  _
werden. Geht aber nicht.
Kannst Du mir bitte helfen.
Gruss Peter

Beliebteste Forumthreads (12 Monate)

übergeordneter Ordner in Tabelle

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread