Anzeige
Archiv - Navigation
460to464
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
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

old thread!

old thread!
26.07.2004 20:03:29
Peter
Hallo Leute,
habe mal ne Frage wo kann ich in diesem Code die Range festlegen? So funkzt es nur in der Spalte A...
Gruss Peter
Quote from Rainer:
Hallo
eine andere Variante

Sub Vertical_Transponder()
Dim i As Integer, back As Integer
Dim VertArr As Variant
ReDim VertArr(200)
For i = 1 To 200
VertArr(i ) = Cells(i, 1)
Next i
back = 1
For i = 200 To 1 Step -1
Cells(i, 1) = VertArr(back)
back = back + 1
Next i
End Sub

Gruss Rainer

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Die 1 in der Klammer
Holger
Hallo Rainer
Die 1 in (i, 1)
Dadurch bleibt er immer in Spalte A 2 wäre B , 3 C und so weiter
Gruß Holger
AW: Die 1 in der Klammer
26.07.2004 20:43:23
Peter
Oki,
jetzt habe ich noch eio problemchen:
Kann ich in diesem code irgedwo das Sheet festlegen, in welchem dieser Code ausgefuehrt wird? oder kurz vorher ein sheet aktivieren?
Gruss Peter
AW: Die 1 in der Klammer
26.07.2004 20:45:52
Nepumuk
Hallo Peter,
einfach so:
VertArr(i) = Worksheets("Tabelle1").Cells(i, 1)
Gruß
Nepumuk
Geschlossen
26.07.2004 21:31:30
Peter
Besten dank..
Gruss Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige