Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
972to976
972to976
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA - Hilfe bei Makro: Zellen in Schleife mergen

VBA - Hilfe bei Makro: Zellen in Schleife mergen
08.05.2008 09:59:00
vux
Hi,
ich will in einem Bereich bestimmte Zellen mergen.
a) Anfangszeile ist immer die selbe
b) End Zeile ist markiert (durch einen Eintrag in einer Zelle)
c) Alle Zellen von Spalte K bis S mergen (Zeile dynamisch)
Weiß leider nicht wie die Syntax für c) ist.
Kann mir jemand helfen?

Sub MergeCells()
Row As Integer
a) Row = 36
b) Do While ActiveWorksheet.Cells(StartRow, 3).Value  "insert new lines just above"
c) Range(K ROW:S ROW).Select With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Row = Row + 1
Loop
End Sub


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
hat sich erledigt
08.05.2008 10:46:51
vux

Private Sub InsertRow_Click()
Dim Row As Integer
Row = 36
'restrict edit area below line 37
If Selection.Row  "insert new lines just above"
ActiveSheet.Range(Cells(Row, 11), Cells(Row, 19)).Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
'select next row
Row = Row + 1
Loop
ActiveSheet.Protect Password:="password"
End If
'goto upper left cell of workplan
Range("C36").Select
End Sub


Anzeige

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige