Marinos arbeitet viel mit CSV-Dateien. In seinem Fall werden die CSV-Dateien von einer benutzerdefinierten Anwendung erstellt, und er stellte fest, dass er sogar Formeln in sie aufnehmen kann. Wenn also eine Zeile der CSV-Datei „,,, Total :, = SUM (D5: D13) ,,,,“ enthält, wird die Formel ausgewertet und alles ist in Ordnung.

Marinos möchte jedoch in der CSV-Datei angeben, wie einzelne Zellen nach dem Import in Excel gerechtfertigt werden sollen.

Er scheint sich zu erinnern, dass er in Lotus 123 ein Präfixzeichen verwenden könnte, um die Ausrichtung der Zelle anzuzeigen (‚für links, ^ für Mitte und „

für rechts); er geht davon aus, dass dieselbe Fähigkeit großartig wäre Excel.

In Excel gibt es keine Möglichkeit, dies zu tun. Die Ausrichtung importierter Daten basiert auf Systemstandards, sodass der Text linksbündig und die Zahlen rechtsbündig sind. Eine Option: Es wäre jedoch, ein Präfixzeichen hinzuzufügen, das Sie später mit einem Makro „analysieren“ könnten, um die gewünschte Ausrichtung anzuwenden. Beispielsweise könnten Sie „<“ für links, „^“ für Mitte und „>“ für rechts verwenden Wenn Excel die CSV-Dateien importiert, werden die Felder als Text behandelt. Anschließend können Sie dieses Makro ausführen, um nach dem führenden Ausrichtungszeichen zu suchen und die gewünschte Aktion auszuführen:

Sub SetJustification()

Dim rCell As Range

For Each rCell In ActiveSheet.UsedRange         With rCell             Select Case Left(.Value, 1)

Case "<"

.Value = Mid(.Value, 2)

.HorizontalAlignment = xlHAlignLeft                 Case "^"

.Value = Mid(.Value, 2)

.HorizontalAlignment = xlHAlignCenter                 Case ">"

.Value = Mid(.Value, 2)

.HorizontalAlignment = xlHAlignRight             End Select         End With     Next     Set rCell = Nothing End Sub

Das Makro überprüft jede Zelle im Arbeitsblatt. Wenn die Zelle mit einem Ausrichtungszeichen beginnt, wird das Zeichen entfernt und die richtige Ausrichtung vorgenommen wird angewandt.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (8709) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tippes für die ältere Menüoberfläche von Excel finden Sie hier: