Guten Morgen liebe Experten,
ich hoffe, mein Anliegen ist nicht zu einfältig und es gibt jemanden, der mir helfen mag!
Ich habe ein sehr umfangreiches Excel-Sheet (Auswertung einer Umfrage), in dem alle Zellen als „Prozent“ formatiert sind (sprich z.B. 58%). Jetzt ist es aber so, dass die Diagramme der PowerPoint-Vorlage, in die die Daten eingepflegt werden sollen, das „Standard“-Format verlangen (sprich 58).
Ich suche daher nach einer Möglichkeit, Zeit sparend (also mit einem Befehl) alle Zellen, die Prozentwerte aufweisen, auf das Standard-Format zu setzen und entsprechend mit 100 zu multiplizieren. Bisher habe ich rechts neben die „Prozent-Spalten“ die Spalten auf Standard gesetzt und z.B. „=SUMME(B1*100)“ etc. eingegeben und kopiert, was aber natürlich sehr müßig ist (bei bis zu 15 Spalten und 6500 Zeilen).
Ich arbeite mit Excel 2003 und meine VBA-Kenntnisse halten sich in Grenzen! 
Im Archiv habe ich keine Lösung gefunden, daher hoffe ich, dass Ihr mir helfen könnt.
Viele Grüße und einen guten Wochenstart
Susan
Guten Morgen, Susan!
Ich suche daher nach einer Möglichkeit, Zeit sparend (also mit
einem Befehl) alle Zellen, die Prozentwerte aufweisen, auf das
Standard-Format zu setzen und entsprechend mit 100 zu
multiplizieren. Bisher habe ich rechts neben die
„Prozent-Spalten“ die Spalten auf Standard gesetzt und z.B.
„=SUMME(B1*100)“ etc. eingegeben und kopiert, was aber
natürlich sehr müßig ist (bei bis zu 15 Spalten und 6500
Zeilen).
Ich arbeite mit Excel 2003 und meine VBA-Kenntnisse halten
sich in Grenzen!
Schreibe in eine leere Zelle (ggf. auch auf einem anderen Blatt/in einer anderen Datei) eine 100 rein, Strg+C zum Kopieren. Dann alle Spalten mit Prozentwerten komplett markieren (Klick auf den Spaltenkopf, Mehrfachauswahl wie gewohnt mit gedrückter Shift- und/oder Strg-Taste), dann Menübefehl „Bearbeiten“-„Inhalte einfügen“, im unteren Bereich „Multiplizieren“ auswählen, OK drücken.
Dann direkt auf „Format“-„Zellen“-„Standard“. Das sollte es gewesen sein.
Gruß, Manfred
Lösung erhalten!
Lieber Manfred,
vielen Dank an Euch!
Jetzt habe ich gleich zwei Lösungen, die mir sehr weiter helfen!
Klasse!
Euch einen schönen Tag
Susan
Ich suche daher nach einer Möglichkeit, Zeit sparend (also mit
einem Befehl) alle Zellen, die Prozentwerte aufweisen, auf das
Standard-Format zu setzen und entsprechend mit 100 zu
multiplizieren. Bisher habe ich rechts neben die
„Prozent-Spalten“ die Spalten auf Standard gesetzt und z.B.
„=SUMME(B1*100)“ etc. eingegeben und kopiert, was aber
natürlich sehr müßig ist (bei bis zu 15 Spalten und 6500
Zeilen).
Hi Susan,
wo issen die zweite Lösung hin?
probiere aus was dir am besten gefällt.
Alt+F11, Einfügen–Modul, darein den Code kopieren, Editor schließen.
Option Explicit
'
Sub Kontrazent()
Dim Zelle As Range
Application.ScreenUpdating = False
For Each Zelle In ActiveSheet.UsedRange
If Right(Zelle.NumberFormat, 1) = "%" Then
Zelle.NumberFormat = Application.WorksheetFunction.Substitute(Zelle.NumberFormat, "%", "")
Zelle = Zelle \* 100
End If
Next Zelle
Application.ScreenUpdating = True
End Sub
'
Sub Kontrazent2()
Dim Zelle As Range
Application.ScreenUpdating = False
For Each Zelle In ActiveSheet.UsedRange
If Right(Zelle.NumberFormat, 1) = "%" Then
Zelle.NumberFormat = Application.WorksheetFunction.Substitute(Zelle.NumberFormat, "%", " " & Chr(34) & "%" & Chr(34))
Zelle = Zelle \* 100
End If
Next Zelle
Application.ScreenUpdating = True
End Sub
'
Sub Kontrazent3()
Dim Zelle As Range
Application.ScreenUpdating = False
For Each Zelle In ActiveSheet.UsedRange
If Right(Zelle.NumberFormat, 1) = "%" Then
Zelle.NumberFormat = "General"
Zelle = Zelle \* 100
End If
Next Zelle
Application.ScreenUpdating = True
End Sub
Gruß
Reinhard
Hallo Susan
hier der Link zu meinem „gemailten“ Lösungsvorschlag.
http://www.uploadarea.de/files/i5j2wwxu2eoo9wrq2g1ry…
Inzwischen haben sich hier ja elegantere Lösungen aufgetan, wobei die zweite davon bei mir nicht funktioniert.
mfG
Hermes
GENIAL
Hi Reinhard,
Deine Lösung war absolut GENIAL!
1000 Sterne von mir - auch wenn ich nur einen vergeben darf!
Vielen Dank und einen schönen Tag
Susan
Inzwischen haben sich hier ja elegantere Lösungen aufgetan,
wobei die zweite davon bei mir nicht funktioniert.
Hi Hermes,
meine Codes habe ich auf Excel2000 kurz getestet, da liefen sie problemlos.
Gruß
Reinhard
meine Codes habe ich auf Excel2000 kurz getestet, da liefen
sie problemlos.
Gruß
Reinhard
Ja bei mir auch.
Probleme habe ich mit den Codes von Manfred Tessin.
Aber was solls…die Susan hat ja was sie wollte!
mfG
Hermes