Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Rename ( Dos )

Forumthread: Rename ( Dos )

Rename ( Dos )
04.08.2015 11:38:20
Markus
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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Rename ( Dos )
04.08.2015 11:45:33
ede
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

AW: Rename ( Dos )
04.08.2015 16:33:29
Nepumuk
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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige