Ich bin immer noch dabei, die 'selects' zu eliminieren.
Folgender Code funktioniert nur, wenn das Tabellenblatt 'Overview' auch selektiert ist, was ich natürlich vermeiden möchte:-)
Sub Spalten_Formatieren()
Dim i As Long
Dim rng, outRng As Range
If Blatt.Name = "Overview" Then
For i = 2 To 20 Step 2
Set rng = Sheets("Overview").Range(Cells(3, i), Cells(LZEI, i))
If outRng Is Nothing Then
Set outRng = rng
Else
Set outRng = Application.Union(outRng, rng)
End If
Next
Die erste Schleifenzeile liefert 'Range Methode fehlerhaft', wenn rng gesetzt werden soll. Dim Blatt as worksheet steht unter Option Explicit.
Wie bekomme ich in OutRng das Tabellenblatt mit rein?
Gruß und Danke,
Jens