Excel VBA Makro Gedankenstützen

Ich habe immer wieder die Aufgabe Tätigkeiten in Excel zu automatisieren, aber eben nur alle ewigen Zeiten. Manche Makros benötige ich öfters, wobei zwischen zwei Malen auch wieder einige Zeit vergeht.

Generell ist jeder Code-Schnipsel vor seiner Nutzung auf den jeweiligen Anwendungsfall anzupassen, z.B. columns, range, etc.

Diesen Blog-Eintrag werde ich von Zeit zu Zeit mit weiteren Code-Schnipseln ergänzen.

Last update: 2019-12-22

Verbundene Zellen auflösen

Sub VerbundeneZellenAufloesen()
Dim c As Range
For Each c In Intersect(Columns("A:B"), ActiveSheet.UsedRange)
    If c.MergeCells Then
       With c.MergeArea
          .UnMerge
          .Value = c.Value
       End With
    End If
 Next c
 End Sub

Checkboxen in Zellen hinzufügen

Sub AddCheckbox()
     Dim i
     For i = 18 To 200 'cells from 18 to 200
     ActiveSheet.CheckBoxes.Add(Cells(i, "I").Left, Cells(i, "I").Top, 72, 17.25).Select
     With Selection
         .Caption = ""
         .Value = xlOff '
         .LinkedCell = "J" & i
         .Display3DShading = False
     End With
     Next
 End Sub