Rename ( Dos )

Bild

Betrifft: Rename ( Dos )
von: Markus
Geschrieben am: 04.08.2015 11:38:20

Hallo
im Archiv fand ich folgendes:

Sub namen()
dim Alt, Neu as string
Alt = "C:\chris\test"
Neu = "C:\chris\geil"
Name Alt As Neu
End Sub
das Funktioniert bestens, bloss ....
ich habe die Namen in einer Excel-Tabelle.
A1:A195 stehen die alten Namen
B1:B195 stehen die neuen Namen
Wie kriege ich hin, dass er alle 195 Zeilen abarbeitet?
Für eine Hilfe danke ich jetzt schon.
Markus

Bild

Betrifft: AW: Rename ( Dos )
von: ede
Geschrieben am: 04.08.2015 11:45:33
Hallo Marcus,
indem du eine Schleife laufen lässt

for zeile = 1 to 195
  alt=Tabelle1.cells(zeile,1)
  neu=Tabelle1.cells(zeile,2)
  Name Alt As Neu
next zeile

Gruss

Bild

Betrifft: AW: Rename ( Dos )
von: Nepumuk
Geschrieben am: 04.08.2015 16:33:29
Hallo,
den Umweg über die Variablen kannst du dir sparen:

Public Sub Rename()
    Dim lngRow As Long
    For lngRow = 1 To 195
        Name Tabelle1.Cells(lngRow, 1).Text As _
            Tabelle1.Cells(lngRow, 2).Text
    Next
End Sub

Gruß
Nepumuk

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Probleme beim Kopieren von TB"