Excel - Zelleninhalt suchen und mehrere Zellen verbinden und zentrieren

[Miniturtle]

Hallo zusammen,

ich habe ein Problem und bekomme es selber nicht gelöst:

ich möchte in Excel mittels einem Makro in der Spalte A nach einer Drei "3" (in mehreren Zeilen vorhanden) suchen und in diesen Zeilen dann die Zellen der Spalten F, G und H (Spalten 6, 7 und 8) verbinden und zentrieren.

Das mit der Drei suchen ist kein Problem nur wie verpacke ich den Befehl zum "Verbinden und zentrieren"???

Ich wäre für Eure Hilfe echt dankbar!


MfG Maik

 

[weer]

Hallo Maik
Bei mir klappt das mit folgendem Makro:

Sub ZellenVerbinden()
Set bereich = Range("A1:A20")
For Each zelle In bereich
    If zelle = 3 Then
        r = zelle.Row
        Cells(r, 6) = Cells(r, 6) & Cells(r, 7) & Cells(r, 8)
        Range(Cells(r, 7), Cells(r, 8)).ClearContents
        With Range(Cells(r, 6), Cells(r, 8))
            .HorizontalAlignment = xlCenter
            .MergeCells = True
        End With
    End If
Next zelle
End Sub

Die Variable "bereich" musst Du Deinen Daten entsprechend anpassen. Dazu gibt es verschiedene Möglichkeiten: Mit Range() wie hier, mit Selection, mit End(xlUp), mit SpecialCells(xlCellTypeLastCell) oder wie auch immer.

Die zwei Zeilen

Cells(r, 6) = Cells(r, 6) & Cells(r, 7) & Cells(r, 8)
Range(Cells(r, 7), Cells(r, 8)).ClearContents

sind nötig, wenn die Zellen F:H nicht leer sind und wenn deren Inhalt zusammengeführt werden soll. Wenn die drei Zellen leer sind, kann man diese zwei Zeilen auch aus dem Makro entfernen, muss aber nicht.

Viele Grüsse Niclaus