Spalten auslesen
23.04.2007 20:42:00
Andreas
das nachstehende Makro wurde mir in diesem Forum an die Hand gegeben. Es hat sich in der Praxis bisher sehr bewährt. Leider stoße ich bei folgender Fallgestaltung auf ein Problem. Ich möchte in einer Excel-Tabelle zwei Spalten auslesen lassen (die ersten vier bzw. fünf Zahlen). Das geht so lange gut, bis eine führende Null am Anfang der Zahl in der betreffenden Spalte steht.
Beispiel:
F G H I
123456789 12345 987654321 9876
012345678 1234 098765432 987
In der zweiten Zeile fehlt in der Spalte G und I jeweils die führende "0". Gerade auf diese kommt es an.
Hier das Makro:
Public Sub Hinzufuegen()
Dim lZeile As Long ' For/Next Zeile-Index
Application.ScreenUpdating = False ' Bildschirm-Update unterdrücken
Columns("G").Insert Shift:=xlToRight ' eine Spalte vor Spalte G einfügen
Columns("J").Insert Shift:=xlToRight ' eine Spalte vor Spalte J einfügen
Range("G1").Value = "Buchungsstelle" ' die Spalten-Überschrift einfügen
Range("I1").Value = "Ordnungskriterium" ' die Spalten-Überschrift einfügen
' im nachfolgenden Teil werden die Zeile 2 bis zur letzen belegten Zeile
' der Spalte A abgearbeitet.
' es werden aus der jeweiligen Zelle der Spalte F die ersten 4 Zeichen in
' die jeweilige Zelle der Spalte G übertragen
' es werden aus der jeweiligen Zelle der Spalte H die ersten 5 Zeichen in
' die jeweilige Zelle der Spalte I übertragen
For lZeile = 2 To Range("A65536").End(xlUp).Row
Range("G" & lZeile).Value = Left(Range("F" & lZeile).Value, 4)
Range("I" & lZeile).Value = Left(Range("H" & lZeile).Value, 5)
Range("I" & lZeile).Font.Size = 12
Next lZeile
Application.ScreenUpdating = True ' Bildschirm-Update wieder freigeben
End Sub
Kann mir jemand behilflich sein?
Vielen Dank.
Andreas
Anzeige