AW: SheetSelectionChange bei mergedCells
28.06.2015 20:49:07
Bernd
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim P1%, P2%, Var$
If Sh.Type = 3 Then End
If IsNumeric(Left(Sh.Name, 4)) = True And _
Right(Left(Sh.Name, 5), 1) = "(" And _
Right(Sh.Name, 1) = ")" And _
Worksheets(Sh.Name).Cells(28, 192).Interior.Pattern = xlGray25 Then
P1 = Application.Find("(", Sh.Name, 1) 'Pos vom ersten /
P2 = Application.Find(")", Sh.Name, P1 + 1) 'Pos vom zweiten /
Farbe = Mid(Sh.Name, P1 + 1, P2 - 1 - P1)
If AltRow = "" Then AltRow = GanzAltRow
If AltColumn = "" Then AltColumn = GanzAltColumn
AlterWert = ActiveSheet.Cells(Target.Row, Target.Column).Value
If (Target.Column = 1 And Not (AltColumn = 2 And AltRow > 28)) Or _
(Target.Column = 33 And Not (AltColumn = 32 Or AltColumn = 34)) Or _
(Target.Row 192 And Target.Row 192 And Target.Row > 22 Then
ActiveSheet.Cells(Target.Row, Target.Column - 1).Select
End
End If
If Target.Column = 1 And (Target.Row > 28 And Target.Row 22 Then
ActiveSheet.Cells(21, Target.Column).Select
End
End If
If (Target.Row = 22 Or Target.Row = 23) And AltRow 45 Then
ActiveSheet.Cells(45, Target.Column).Select
End
End If
If (Target.Row > 22 And Target.Row 22 And AltRow = 22 Then
ActiveSheet.Cells(21, Target.Column).Select
End
End If
If Not Farbe = "Normal" Then
If Target.Row = 14 And Not (AltRow > 12 And AltRow 36 And AltRow
Die verbundenen Zellen erstrecken sich von es sind insgesamt 12 verbundene Zellen:
A1:AF2
A25:AF26
AG1:BL2
AG25:AF26
BM1:CR2
BM25:CR26
CS1:DX2
CS25:DX26
DY1:FD2
DY25:FD26
FE1:GJ2
FE25:GJ26
Gruß,
Bernd