umbennen

Forumthread: umbennen
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: umbennen

umbennen

15.07.2003 11:21:57

Manu

Hallo zusammen,
ich hab eine kleine Frage die mir das Leben sehr erleichtern würde.
Habe einige Filenamen in der spalte A und andere auf Spalte B so ungefähr 110
Wie kann ich es anstellen das ich nicht andauernd Name Range("A1").Value As Range("B1").Value usw. schreiben muss
Danke euch Manu

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Schleife

15.07.2003 11:34:08

Nike
AW: Schleife

15.07.2003 11:40:32

manu
AW: siehe Lösung von Stefan

15.07.2003 11:48:27

Nike
AW: Schleife

15.07.2003 11:36:27

Stephan

AW: Schleife

15.07.2003 11:34:08

Nike

Hi,
ich würde es mit ner Schleife versuchen, z.B. so:


Sub Schleife()
for I = 1 to 110
cells(i,1)=cells(i,2)
next
End Sub

Bye
Nike

AW: Schleife

15.07.2003 11:40:32

manu

Cool geht,
bloss wenn ich jetzt weniger als 110 hab springt er immer in den Debumodus kann man das irgenwie ändern
Danke Manu

AW: siehe Lösung von Stefan

15.07.2003 11:48:27

Nike

Hi,
Mein Ansatz war ja auch nur so ein Vorschlag ;-)
Alternativ, check this:
http://xlforum.herber.de/messages/281092.html
Bye
Nike

AW: Schleife

15.07.2003 11:36:27

Stephan


Private Sub umbenennen()
Dim i As Integer
i = 1
Do While i < 111 And Cells(i, 1).Value <> ""
Cells(i, 1).Value = Cells(i, 2).Value
i = i + 1
Loop
End Sub