folgendes nagt an mir:
In einer Exceldatei möchte ich, dass in Spalte A und B
nur diese Zellen verbunden werden, wenn in Spalte A der Begriff
"Buchabschnitts-Nr.:" steht.
Der Rest in Spalte A und B soll nicht verändert werden.
Gruss
Günter
Sub verbinden()
For i = 1 To 2000 'bis Zeile 2000
If Cells(i, 1).Value Like "Buchabschnitts-Nr*" Then
Range(Cells(i, 1), Cells(i, 2)).MergeCells = True
End If
Next i
End Sub
Sub zusammen()
If Range("a2") = "Buchabschnitts-Nr" Then
Range("A2:B2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
End If
Range("A2").Select
End Sub
Sub Verbinden()
Dim LR%, I%
LR = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte A
For I = 1 To LR
If Cells(I, 1).Value = "Buchabschnitts-Nr.:" Then
Range(Cells(I, 1), Cells(I, 2)).MergeCells = True
Else
Range(Cells(I, 1), Cells(I, 2)).MergeCells = False
End If
Next I
End Sub
Sub Verbinden()
Dim LR%, I%
LR = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte A
For I = 1 To LR
If Cells(I, 1).Value = "Buchabschnitts-Nr.:" Then
Cells(I, 1).Value = Cells(I, 1).Value & " " & Cells(I, 2).Value
Cells(I, 2).ClearContents
End If
Next I
End Sub