Zellen verbinden

10/11/2011 - 10:57 von hampe | Report spam
Ich brauche ein VBA zum Verbinden von Zellen in der Spalte A:
Spalte A Spalte B Spalte C
1 wert wert
leer wert wert
leer wert wert
leer wert wert
2 wert wert
leer wert wert
leer wert wert
leer wert wert

Resultat müsste sein:
Spalte A: Zeile 1 bis 4 werden verbunden; Spalte B und C: Werte
bleiben erhalten
Spalte A Zeile 4 bis 8 werden verbunden; Spalte B und C: Werte
bleiben erhalten

Merci für die Unterstützung
 

Lesen sie die antworten

#1 michlchen
17/11/2011 - 09:58 | Warnen spam
servus.

sollte so gehen.

Sub zellen_verbinden()
' wo soll verbunden werten? 1 ist A. 5 ist E.
Verbinden_Zeile = 1
' 1 Zeile mit werten nach der Überschrift
Anfangs_Zeile = 2
' Sicherheitshalber in besagter Spalte alle Verbindungen aufheben.
Cells(1, Verbinden_Zeile).EntireColumn.UnMerge
Test1 = Cells(Rows.Count, 2).End(xlUp).Row
Test2 = Cells(Rows.Count, 3).End(xlUp).Row
If Test1 > Test2 Then
End_Zeile = Test1
Else
End_Zeile = Test2
End If
Cells(End_Zeile, Verbinden_Zeile).Select
Do
Range(Selection, Selection.End(xlUp)).Select
Selection.Merge
' oben ausrichten. wie du halt magst.
Selection.VerticalAlignment = xlTop
ActiveCell.Offset(-1, 0).Select
' Ende erreicht bzw. in 1. Zeile.
If ActiveCell.Row < Anfangs_Zeile Or ActiveCell.Row = 1 Then Ende
= True
Loop Until Ende
End Sub


ich hab mal mit eingebaut, dass du in der den letzten zeilen auch lere
felder haben kannst. (test aufs ende.)
also in etwa so.

On 10 Nov., 10:57, hampe wrote:
Ich brauche ein VBA zum Verbinden von Zellen in der Spalte A:
Spalte A         Spalte B           Spalte C
1                     wert                 wert
leer                 wert                 wert
leer                 wert                 wert
leer                 wert                 wert
2                     wert                 wert
leer                 wert                 wert
leer                 leer                 wert
leer                 leer                 wert



dann würde er test 2, also das max aus spalte c nehmen.
ich arbeite gerne damit, mir vorher min, max und die jeweilige spalte
in variablen zu speichern. dann kannste das auch für andere spalten
anwenden und musst vorher nur per inputbox die spalte holen.

hoffe dat reicht.

Ähnliche fragen