gleiche Werte "über Auswahl zentrieren"
17.09.2021 09:40:06
maylmz
ich stehe wieder einmal vor einem Problem wobei ich eure Unterstützung brauche :/
In meiner Datei habe ich in der Zeile J2:AY2 Kalenderwochen stehen. Gleiche Werte sollen hier per VBA verschwinden und die Zellen verbunden bzw. ausgerichtet werden.
Folgende VBA im Netz zum verbinden und zentrieren habe ich bereits gefunden. Dies funktioniert auch genau wie ich mir das vorstelle, allerdings dauert es gefühlt 10 sek. bis diese Zellen verbunden werden. Einen ähnlichen Code für .HorizontalAlignment = xlCenter um die Zeit zu verkürzen habe ich leider nicht gefunden.
Sub verbbindeZellen()
Dim Spalte As Integer
Dim Startspalte As Integer
Dim Endspalte As Integer
Dim Wert As Variant
Dim X As Integer
Const Maxspalte As Integer = 100
Dim Arbeitsblatt As Worksheet
Startspalte = 1
Set Arbeitsblatt = ThisWorkbook.ActiveSheet
With Arbeitsblatt
For Spalte = 1 To Maxspalte
If Cells(2, Spalte) Wert Then
Endspalte = Spalte - 1
If Startspalte Grüüüüße, maylmz