Beispiel für ein Excel Marko zur Aufbereitung von Text
Dieses Beispiel zeigt Ihnen, wie so etwas aussehen könnte.
Sub Text_komplett()
‚Erstmal werden alle Aktualisierungen ausgeschaltet
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
‚Der Text muss vor dem Start des Makros kopiert werden
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range(„A1“).Select
‚Der Text wird jetzt mit der Links-Funktion selektiert
ActiveCell.FormulaR1C1 = „=+LEFT(RC[-1],FIND(„“ „“,RC[-1])-1)“
ActiveCell.Offset(1, 0).Range(„A1“).Select
‚Der Text wird hier mit der Rechts-Funktion selektiert
ActiveCell.FormulaR1C1 = _
„=+RIGHT(R[-1]C[-1],LEN(R[-1]C[-1])-FIND(„“(„“,R[-1]C[-1]))“
ActiveCell.Offset(-1, 0).Range(„A1:A2“).Select
ActiveCell.Activate
‚Die selektierten Texte werden kopiert und als Wert wieder eingefügt
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
‚Jetzt werden die Texte selektiert
ActiveCell.Select
Application.CutCopyMode = False
ActiveCell.Offset(1, 0).Range(„A1“).Select
‚Die Texte werden kopiert
Selection.Copy
ActiveCell.Offset(-1, -1).Range(„A1“).Select
‚Die Texte werden an einer neuen Stelle eingefügt
ActiveSheet.Paste
ActiveCell.Offset(1, 1).Range(„A1“).Select
‚Die alten Texte werden gelöscht
Selection.ClearContents
ActiveCell.Offset(-1, 2).Range(„A1“).Select
‚Zum Schluß werden alle Aktualisierungen eingeschaltet
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub
Dieser Makro muss übrigens nicht aufwendig programmiert werden, sondern kann ganz einfach aufgezeichnet werden. Wichtig ist nur, damit das Makro flexibel bleibt, dass mit der relativen Aufzeichnung gearbeitet wird.
Bildnachweis: blanche / stock.adobe.com