Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1336to1340
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

Alle Zellen einer Spalte direkt befüllen

Alle Zellen einer Spalte direkt befüllen
08.11.2013 11:40:47
Thomas
Moin,
ich hätte eine kurze Frage - gibt es einen schnelleren Weg um alle Zellen einer Spalte mit einem Teil einer Anderen zu befüllen?
In VBA!
Ich habe folgenden Code, aber das dauuuuuert ;) - da gibt es doch bestimmt einen Trick das schneller zu machen, oder?

Columns(6).Insert Shift:=xlToRight
h = 1
Do while Cells(h,1)  ""
h = h + 1
Cells(h, 6) = Left(Cells(h, 1), 6)
Loop
Das Problem, h geht bis ca. 250.000...
Tommi

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Zellen einer Spalte direkt befüllen
08.11.2013 11:43:29
Hajo_Zi
schreibe eine Formel in den Bereich ein.

AW: Alle Zellen einer Spalte direkt befüllen
08.11.2013 12:42:49
Rudi
Hallo,
Sub aaa()
Dim arr, i
Columns(6).Insert Shift:=xlToRight
arr = Range(Cells(1, 1), Cells(1, 1).End(xlDown))
For i = 1 To UBound(arr)
arr(i, 1) = Left(arr(i, 1), 6)
Next
Cells(1, 6).Resize(UBound(arr)) = arr
End Sub

Gruß
Rudi

AW: Alle Zellen einer Spalte direkt befüllen
08.11.2013 13:51:30
Thomas
Hm, komisch, ich habe es nun nach dem Mittag nochmal laufen lassen, um einen Testwert zu bekommen, wie lange es dauert, nun ging das in wenigen Sekunden durch?!?
Auch 2x weitere Kontrollläufe brachten das selbe Ergebnis, es geht plötzlich signifikant schneller.
Also erstmal danke für die Lösungen, aber irgendwas hat das System vorhin anscheinend ausgebremst (was auch immer). Eine Optimierung an der Stelle ist also gar nicht nötig.
LG,
Tommi
Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige