Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1440to1444
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige