Hallo...
Mir hat jemand aus dem Excelforum diesen Makro erstellt. Kann mir bitte jemand diesen Makro so ändern, dass er nur dann funktioniert, wenn beide selektierten Zellen sich in den Spalten B, E, H, K oder N befinden und die Zellen sich in ungeraden Zeilen befinden (z.B. B3 und E5)?
Sub Stundenplan_Wechseln()
Dim varW, varL, varC As Integer
With Selection
If .Areas.Count = 2 And .Count = 2 Then
varC = .Areas(1).Interior.Colorindex
varW = .Areas(1).Resize(2, 2)
varL = .Areas(1).Offset(1, -1)
.Areas(1).Offset(, -1).Resize(2, 3).Interior.Colorindex = _
.Areas(2).Interior.Colorindex
.Areas(1).Resize(2, 2) = .Areas(2).Resize(2, 2).Value
.Areas(1).Offset(1, -1) = .Areas(2).Offset(1, -1).Value
.Areas(2).Offset(, -1).Resize(2, 3).Interior.Colorindex = varC
.Areas(2).Resize(2, 2) = varW
.Areas(2).Offset(1, -1) = varL
End If
End With
End Sub
Besten Dank.
Gruß
Karsten