Übergabe Parameter
09.09.2015 16:00:49
Pit
ich habe ein Problem mit der richtigen Übergabe eines Parameters. Beim unten stehenden Beispiel übergebe ich die Spaltenbreite, was auch klappt, aber bei der Ausrichtung der Spalte ist scheinbar ein Übergabefehler.
Sub aufrufen()
' Spaltenbreite anpassen / ausrichten
Call Spaltenformatierung(50, "xlCenter")
End Sub
Sub Spaltenformatierung(Spaltenbreite As Integer, Ausrichtung As String)
Columns(ActiveCell.Column).ColumnWidth = Spaltenbreite
Columns(ActiveCell.Column).HorizontalAlignment = Ausrichtung
End Sub
Danke
Pit