Ausrichten von Zellen beim Importieren aus CSV (Microsoft Excel)
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: