zelle verbunden mit VB
27.04.2006 09:29:18
Weilu
Ich habe die VB-Sprache gerade angefangen.
Jetzt möcht ich ein Programm erstellen. Ich will jeder zwei Zellen verbunden, z.B.A1:A2,A3:A4.......
Könnten sie mir einmal gucken, warum kann mein Programm nicht ausfüllen?
Sub ZellenverbundErstellen()
Dim Zelle As Range
Dim Bereich As Range
Dim i As Integer
Sheets("Tabelle1").Activate
For i = 1 To 20 Step 2
Set Bereich = Range(Cells("A", "i"), Cells("A", "i+1"))
Bereich.MergeCells = False
Bereich.Merge
Next i
End Sub
Vielen Dank
Weilu Gruß
Anzeige