Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
980to984
980to984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

alle Zellen in Großbuchstaben umwandeln - zu lange

Forumthread: alle Zellen in Großbuchstaben umwandeln - zu lange

alle Zellen in Großbuchstaben umwandeln - zu lange
23.05.2008 15:38:23
mtremer
Hallo Excel-Freunde,
kann mir jemand sagen, warum folgender Code zum Umwandeln aller Buchstaben in Großbuchstaben so lange dauert?
Range("B2:D3000").Select
For Each z In Selection
z.Value = UCase(z.Value)
Next
Excel benötigt pro Zeile eine Sekunde. Bei 3 Spalten à 3000 Zeilen (=9000 Zeilen) sind das 50 Minuten!
Kennt jemand von Euch einen Code der schneller geht?
Danke.
Viele Grüße
Marco

Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alle Zellen in Großbuchstaben umwandeln - zu l
23.05.2008 15:51:00
Renee
Hi Marco,
Schau mal im Archiv unter GetMoreSpeed:

Sub marine()
Dim rC As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
For Each rC In Range("B2:D3000")
rC.Value = UCase(rC.Value)
Next
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub


GreetZ Renée

Anzeige
AW: alle Zellen in Großbuchstaben umwandeln - zu l
23.05.2008 16:02:06
mtremer
Hallo Renée,
das ging ja fix. Deine Antwort war fast so schnell, wie das Ergebnis des Codes!
Danke.
Viele Grüße
Marco

AW: alle Zellen in Großbuchstaben umwandeln - zu l
23.05.2008 15:51:27
Matthias
Hallo Marco,
vielleicht sind viele Formeln dabei, dann sollte man die autom. Berechnugn abschalten:

Sub tt()
Dim z As Range
Dim calcmode As XlCalculation
calcmode = Application.Calculation 'Modus merken
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each z In Range("B2:D3000")
z.Value = UCase(z.Value)
Next
Application.Calculation = calcmode
Application.ScreenUpdating = True
End Sub


Wenn du nur Konstanten ändern willst, kannst zu auch schreiben:


For Each z In Range("B2:D3000").SpecialCells(xlCellTypeConstants)


Gruß Matthias

Anzeige
AW: alle Zellen in Großbuchstaben umwandeln - zu l
23.05.2008 16:03:41
mtremer
Hallo Matthias,
danke für Deine schnelle Antwort.
Nun habe ich zwei Lösungen für das selbe Problem. Welche soll ich nur nehmen?
Da habe ich die Qual der Wahl ;-)
Danke.
Viele Grüße
Marco

AW: alle Zellen in Großbuchstaben umwandeln - zu l
23.05.2008 16:57:00
mtremer
Das klingt schon viel besser. Danke für den Hinweis.
So habe ich das dann umgesetzt, ging aber nicht. Was habe ich falsch gemacht?

Private Sub CommandButton1_Click()
Dim z As Range
Dim calcmode As XlCalculation
calcmode = Application.Calculation 'Modus merken
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each z In Range("B2:D3000").SpecialCells(xlCellTypeConstants)
z.Value = UCase(z.Value)
Next
Application.Calculation = calcmode
Application.ScreenUpdating = True
End Sub


Viele Grüße
Marco

Anzeige
AW: alle Zellen in Großbuchstaben umwandeln - zu l
23.05.2008 17:13:00
Matthias
Hallo Marko,
So habe ich das dann umgesetzt, ging aber nicht. Was habe ich falsch gemacht?
Ich liebe diese detaillierten Fehlerbeschreibungen... SEUFZ
Gruß Matthias

AW: alle Zellen in Großbuchstaben umwandeln - zu l
23.05.2008 17:18:00
mtremer
sorry. Ich glaube, ich weiß, wo ich zuerst Verbesserungen umsetzen muß: meine Ausdrucksweise.
Nachdem ich den Code so umgesetzthabe, ist nichts passiert ;-)
Keine Formel war weg (das fand ich gut), aber es kamen auch keine Großbuchstaben...
Was nun?
Viele Grüße (falls Du nach 17:30 nix mehr hörst, bin ich schon weg. Nicht böse sein, ich bin Montag wieder da...)
Marco

Anzeige
AW: alle Zellen in Großbuchstaben umwandeln - zu lange
23.05.2008 15:51:59
Andi
Hi,
50 Minuten? Bei mir dauert das ganze ca ne halbe Sekunde...
Probier trotzdem mal dies:
Application.ScreenUpdating = False
For Each z In Range("B2:D3000")
z.Value = UCase(z.Value)
Next
Application.ScreenUpdating = True
Schönen Gruß,
Andi

AW: alle Zellen in Großbuchstaben umwandeln - zu lange
23.05.2008 15:59:00
mtremer
Hallo Andi,
ich habe die Operation abgebrochen und Excel per Task Manager gekillt. Vorher konnte ich Excel noch dabei beobachten, wie er jede Zelle einzeln anfässt. Mein Auge sagte 1 Sekunde pro Zeile. Den Rest hat mir mein Taschenrechner gesagt ;-)
Deine Lösung brachte mich aber auch nicht weiter. Renee und Matthias hatten Vorschläge die sofort funktioniert haben.
Trotzdem danke für Deine Antwort.
Viele Grüße
Marco

Anzeige
AW: alle Zellen in Großbuchstaben umwandeln - zu l
23.05.2008 16:19:16
Matthias
Hallo Marco,
damit du auch verstehst was du da machst:
Du schaltest die autom. Berechnung ab, dadurch werden die Formeln nicht nach jeder Zelländerung neu berechnet. Erst am Ende (nach der Schleife) wird die autom. Berechnung wieder aktiviert.
Und wenn du mit .SpecialCells() arbeitest (siehe meine Antwort oben), geht's noch schneller, weil dann die Zellen, die Formeln beinhalten, nicht in Großbuchstaben gewandelt werden (falls das nicht nötig ist).
Gruß Matthias

Anzeige
AW: ne dritte Variante
23.05.2008 17:21:20
Daniel
Hi
da ich Freund der Schleifenfreien Programmierung bin und auch so hilfkniffs wie Bildschirmabschalten bei geschicker Programmierung für weitestgehend überflüssig halte,
möchte ich hier nochmal ne 3. Variante vorstellen und dem Geschwindigkeitsvergeleich stellen:
die Lösung orientiert sich daran, wie man das Problem ohne VBA lösen würde:

Sub InGrossbuchstaben()
Dim add As String, add1 As String
Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = ActiveSheet
Set sh2 = Sheets.add(after:=Sheets(ActiveWorkbook.Sheets.Count))
add = "B2:D3000"
add1 = "'" & sh1.Name & "'!" & Left(add, InStr(add, ":") - 1)
sh2.Range(add).FormulaLocal = "=Gross(" & add1 & ")"
sh1.Range(add).Value = sh2.Range(add).Value
Application.DisplayAlerts = False
sh2.Delete
Application.DisplayAlerts = True
sh1.Select
End Sub


Gruß, Daniel

Anzeige
AW: ne dritte Variante
24.05.2008 01:45:23
Matthias
Hallo Daniel,
eine interessante Variante.
Leider gehen hierbei aber die Formeln flöten. Das müsste man noch berücksichtigen.
Am schwierigsten ist wohl, wenn Formeln wie 

=wenn(a=1;"Hallo";"nicht Hallo")

enthalten sind...
diese Werte auch in Großbuchstaben zu wandeln ohne Schleife.
Gruß Matthias

Anzeige
AW: ne dritte Variante
24.05.2008 11:31:00
Daniel
Hi
nein, mit Formeln kann meine Lösung nicht umgehen, dafür ist sie aber nochmal um etwa den Faktor 10 schneller (auf meinem Rechner)
aber wenn eine Datentabelle dieser Grössenordnung mit Formeln durchsetzt ist, müsste man sich den grundlegenden Aufbau überlegen, weil sowas nur Ärger macht.
hier sollten die Spalten in sich sortenrein sein, dh. eine Spalte enthält entweder nur Texte, nur Zahlen oder nur Formeln (und wenn, dann jede Zelle in der Spalte die gleiche formel).
alles andere verkompliziert nur die Bearbeitung und Auswertung der Daten.
Gruß, Daniel

Anzeige
Dem kann ich nur zustimmen,... Gruß owT
24.05.2008 14:31:43
Luc:-?
:-?

Forumthreads zu verwandten Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Verschiedene Werte in bestimmte Zahlen umwandeln
Henning

Hallo, ich versuche grade bei einem Schichtplan die Verschiedenen Zelleninhalte z.B. Zelle A3 Inhalt "U1",Zelle A4 Inhalt"1/3" usw. in Werte umzuwandeln und diese dann als Stunden ausrechennen zu lassen.
Also so soll z.B. aus dem Inhalt von Zelle A3, dort steht "U1" soll dann 8 Stunden ents...
15.10.2008 18:37:00
Thread-ID: 1016648
4 Beiträge
Anzeige
In Zahlen umwandeln
fuxl

Ich hab ein AutoOpen Makro in dem ich die Funktion TextinSpalten verwende um den Zelleninhalt in eine Zahl umzuwandeln und die kleinen Dreiecke los zu werden. Das ganze geschieht mit folgender Zeile:
'Tabelle1.Range("H15:H$" & letzteZeile).TextToColumns Destination:=Tabelle1.Range("H15"...
19.11.2008 11:13:06
Thread-ID: 1025937
5 Beiträge
Buchstaben als Ergebnis einer Wenn- Funktion
Mario

Grüßt euch,
ich rätsel gerade, wie sich auch Buchstaben als Ergebnis einer Wenn-Funktion übernehmen lassen.
Meine Formel:
=WENN(Maße!B11=1;Maße!K6)+WENN(Maße!B11=2;Maße!K7)+WENN(Maße!B11=3;Maße!K8)+WENN(Maße!B11=4;Maße!K9) +WENN(Maße!B11=5;Maße!K10)
Stehen in K6, K7,...
21.11.2008 22:21:55
Thread-ID: 1026853
3 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Anzeige
Datum in Zahl umwandeln
P.Mackes

Hallo,
was ich machen möchte ist folgendes:
ich habe eine Zahl, die ein Datum darstellt, z.B. 20080507. Dabei handelt es sich NICHT um ein Datumsformat, sondern um eine richtige Zahl. Jetzt muss ich davon allerdings 90 Tage abziehen. Also wandle ich mit Date(left...mid...right) das gan...
27.11.2008 00:37:57
Thread-ID: 1028186
3 Beiträge
Anzeige
Zahlen suchen in zwei spalten
Timo

Hallo,
ich habe ein kleines, wahrscheinlich sehr einfaches Problem.
Ich habe sowohl eine Spalte A als auch Spalte B, wo immer sechsstellige Zahlen drin stehen. Jetzt würde ich gern in Spalte C überprüfen lassen, ob die jeweilige Zahl, die in Spalte B steht, auch irgendwo in Spalte A v...
17.12.2008 08:51:00
Thread-ID: 1033514
4 Beiträge
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge
VERKETTEN-String in Zahl umwandeln
Steffi

Hi,
bräuchte mal Hilfe:
Ich möchte eine Liste von Zahlen mit WENN-Formeln prüfen. Die Bedingungen mit den jeweiligen Operatoren stehen in anderen Zellen, z.B. "<=2". Ich hab es mit der VERKETTEN-Funktion versucht, aber anscheinend wird das Ergebnis als String interpretiert:
A1: 1...
29.01.2009 17:22:16
Thread-ID: 1045101
5 Beiträge
Anzeige
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige