Hallo,
auf einem sheet suche ich die Zeile in der in spate A das Wort Gesamtsumme steht.
Dann möchte ich in dieser Zeile die Spalten A und B verbinden und darin soll das Wort Gesamtsumme stehen. Leider funtzt die Zeile im code mit range nicht.
Wie geht das noch richtig?
Dim i As Variant
For i = 1 To 500
If Not Cells(i, 1).Value = "Gesamtsumme" Then GoTo nextI Else
Range("A" & i & ":B" & i & ").Select.Select 'geht nicht
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
nextI:
Next i
Viele Grüße aus Hamburg
Ray