Office: (Office 2010) Makro auf markierte Zellen anwenden

TheCatatafish · 12. April 2015

Hallo zusammen

Ich verwende einen VBA-Code, um aus unserem Reporting-System exportierte Daten zu formatieren. Dabei geht es darum, alle verbundenen Zellen zu trennen und die "als Text gespeicherten Zahlen" in Werte umzuwandeln.

Eingerichtet habe ich es über den Makrorecorder und Hilfe aus dem Forum. *biggrin.gif*

Der Code funktioniert super, allerdings gibt es Optimierungspotential:
Kann man das Makro so einrichten, dass anstatt den Bereichen (Range("$A$1:$BZ$50000").Select und With Range("$A$1:$I$50000")) einfach die markierten Zellen (i.d.R. mehrere Spalten) angepasst werden?

Code:

Sub Rohdaten_Formatieren_()
Application.Calculation = xlCalculationManual
Call Zellen_trennen
Call Text_in_Zahlen_umwandeln
Application.Calculation = xlCalculationAutomatic
End Sub

Sub Zellen_trennen()
Application.ScreenUpdating = False
Range("$A$1:$BZ$50000").Select
Selection.UnMerge
Range("$A$1").Select
Application.ScreenUpdating = True
End Sub

Sub Text_in_Zahlen_umwandeln()
Application.ScreenUpdating = False
With Range("$A$1:$I$50000")
.NumberFormat = "General"
.Value = .Value
Range("$A$1").Select
End With
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank & Gruss aus der Schweiz

:)

Hajo_Zi · 14. April 2015

schreibe Selection.

TheCatatafish · 14. April 2015

Hallo Hajo

Danke für den Tipp.
Bei den verbundenen Zellen hat es funktioniert, bei den als Text gespeicherten Zahlen leider nicht. Habe ich das richtig verstanden?

Eine Fehlermeldung erhalte ich nicht.

Code:

Sub Rohdaten_Formatieren_1()
Application.Calculation = xlCalculationManual
Call Zellen_trennen1
Call Text_in_Zahlen_umwandeln1
Application.Calculation = xlCalculationAutomatic
End Sub

Sub Zellen_trennen1()
Application.ScreenUpdating = False
With Selection
Selection.UnMerge
End With
Range("$A$1").Select
Application.ScreenUpdating = True
End Sub

Sub Text_in_Zahlen_umwandeln1()
Application.ScreenUpdating = False
With Selection
.NumberFormat = "General"
.Value = .Value
End With
Range("$A$1").Select
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

RPP63 · 14. April 2015

Hallo!
Du darfst einer Prozedur ruhig ein Argument übergeben
Code:

Sub Zellen_Trennen(rng As Range)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und dann diese Prozedur mit dem Argument aufrufen:
Code:

Sub Machs
Call Zellen_Trennen(Selection)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Andererseits gibt es den UsedRange, der mit Intersect(UsedRange, Selection) auf den gewünschten Bereich eingeschränkt werden kann.

Rückfragen? Gerne!

Gruß Ralf

TheCatatafish · 14. April 2015

Hallo Ralf

Vielen Dank.

Ich bin leider ein absoluter VBA-Neuling auf dem Weg zur Besserung.
Deshalb ist deine Aussage für mich nicht verständlich (der Bahnhof ist zu laut. *biggrin.gif*)

Habe das mal versucht umzusetzen und komme auf folgendes:

Code:

Option Explicit

Sub Rohdaten_Formatieren_2()
Application.Calculation = xlCalculationManual
Call Zellen_trennen2(Selection)
Call Text_in_Zahlen_umwandeln2(Selection)
Application.Calculation = xlCalculationAutomatic
End Sub

Sub Zellen_trennen2(rng As Range)
Application.ScreenUpdating = False
With Selection
Selection.UnMerge
End With
Range("$A$1").Select
Application.ScreenUpdating = True
End Sub

Sub Text_in_Zahlen_umwandeln2(rng As Range)
Application.ScreenUpdating = False
With Selection
.NumberFormat = "General"
.Value = .Value
End With
Range("$A$1").Select
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das Ergebnis ist das gleiche: Die markierten, verbundenen Zellen werden wunderbar getrennt, die als Text gespeicherten Zahlen allerdings nicht umgewandelt.

Woran kann das liegen?

RPP63 · 14. April 2015

Hallo!
Vielleicht stellst Du mal eine Report-Datei zur Verfügung.
Du darfst gerne sensible Spalten löschen.
Dann können wir uns ein Bild (wir benötigen aber unbedingt eine Excel-Datei!) machen.

Gruß Ralf

TheCatatafish · 14. April 2015

Hallo Ralf

Ich lade eine Beispieldatei hoch.

Allerdings liegen die Daten (Artikelnummer etc.) oft in anderen Spalten, wenn wir andere Berichte ziehen.

Gruss

RPP63 · 14. April 2015

Hallo Schweizer!
Dies ist leider mal wieder ein Beispiel dafür, dass eine unerhebliche Überschrift aus kosmetischen Gründen "merged" wurde, obwohl man das Ganze problemlos mit der Formatierung des Rahmens hätte bewerkstelligen können (wär noch nicht mal "unhübscher" geworden).
Wenn der Blödsinn mittels Makro entfernt wurde, reicht:
- Spalte markieren
- Daten, Text in Spalten
- sofort "Fertigstellen"

(dafür lohnt es nicht, ein Makro zu schreiben)

Gruß Ralf

TheCatatafish · 16. April 2015

Hallo Ralf

Das mit den verbundenen Zellen ist bei uns eine Krankheit für sich. *Smilie
Ich mache es eher ungerne über "Text in Spalten", weil ich da zuerst die verbundenen Zellen trennen muss danach die jeweiligen Spalten einzeln markieren muss. Mit einem Makro mit Tastenkombination ist es für mich angenehmer.

Grundsätzlich funktioniert meines ja auch, ausser dass der Bereich fest ist.
Ist aber kein grosses Problem, die Daten werden dabei ja nicht zerstört.

Gruss
Marco

Office: (Office 2010) Makro auf markierte Zellen anwenden

Makro auf markierte Zellen anwenden

Makro auf markierte Zellen anwenden

Makro auf markierte Zellen anwenden

Makro auf markierte Zellen anwenden

Makro auf markierte Zellen anwenden - Similar Threads - Makro markierte Zellen

Makro Zip-Datei von Webseite runterladen, auspacken, kopieren

Makro für variable Anzahl von Datensätzen

Makro aus personal.xls starten

Markierte Zellen Sortieren Makro

Makro für alle markierten Tabellenblätter ausführen

Makro um in jede markierte Zelle einen Wert eintragen

Makro starten von der Zelle, wo Zelle markiert ist