Hallo!
Ich habe eine kleine Prozedur geschrieben, mit deren Hilfe ich drei Spalten meiner Excel-Tabelle formatieren möchte. Sie funktioniert, ist aber sicher nicht elegant.
Die Funktion „ausgaben_tabelle_aus(x,y)“ liest die Werte aus den Tebellenzellen.
„nr_zeile_tabellenanfang“ u.ä. sind globale Variablen.
Wie kann ich die Wiederholung dieser Quellcode-Zeilen vermeiden?
Vielen Dank, Martin.
Sub formatieren()
Dim i As Integer
i = 1
While ausgaben_tabelle_aus(nr_spalte_kostenpunkte, i) Empty
ThisWorkbook.Worksheets(name_tabellenblatt).Cells(i + nr_zeile_tabellenanfang, nr_spalte_rechnungssumme).Select
With Selection
.HorizontalAlignment = xlRight
.NumberFormat = „0.00“
End With
ThisWorkbook.Worksheets(name_tabellenblatt).Cells(i + nr_zeile_tabellenanfang, nr_spalte_summepromonat).Select
With Selection
.HorizontalAlignment = xlRight
.NumberFormat = „0.00“
End With
ThisWorkbook.Worksheets(name_tabellenblatt).Cells(i + nr_zeile_tabellenanfang, nr_spalte_kostenpunkte).Select
With Selection
.Font.Bold = True
End With
i = i + 1
Wend
End Sub