ActiveCell ist A1 und ich möchte den Bereich A1 bis E1 markieren. Wie mache ich das über VBA?
Vielen Dank.
Gruß
Torsten
Private Sub cmb_BeArb_Click()
Application.ScreenUpdating = False
ActiveCell.Copy
With ActiveCell
.Offset(0, 1).PasteSpecial Paste:=xlFormulas, Operation:=xlNone
.Offset(0, 2).PasteSpecial Paste:=xlFormulas, Operation:=xlNone
.Offset(0, 6).PasteSpecial Paste:=xlFormulas, Operation:=xlNone
.Offset(0, 7).PasteSpecial Paste:=xlFormulas, Operation:=xlNone
.Offset(0, 8).PasteSpecial Paste:=xlFormulas, Operation:=xlNone
End With
Application.CutCopyMode = False
ActiveCell.Offset(0, -8).Activate
Selection.Resize(0, 8).Select
'in dem Bereich soll der relative Bezug durch fixierten Bezug ersetzt werden
'Code von Eule
Dim c As Range
Dim X As String, x1 As String, x2 As String
Dim dlz As Byte
For Each c In Selection
If c.HasFormula = True Then
dlz = dlz + 1
X = c.Formula
If IsNumeric(Mid(X, 3, 1)) And Not IsNumeric(Mid(X, 2, 1)) Then
x1 = Mid(X, 2, 1)
x2 = Right(X, Len(X) - 2)
c.Formula = "=$" & x1 & "$" & x2
End If
If IsNumeric(Mid(X, 4, 1)) And Not IsNumeric(Mid(X, 3, 1)) Then
x1 = Mid(X, 2, 2)
x2 = Right(X, Len(X) - 3)
c.Formula = "=$" & x1 & "$" & x2
End If
End If
Next c
Application.ScreenUpdating = True
End Sub
Selection.Resize(0, 8).Select
macht keinen Sinn. Die beiden Parameter in der Klammer beziehen sich auf die absolute Anzahl der Zeilen/Spalten, auf die die Markierung erweitert bzw. reduziert werden soll, ausgehend von der Zelle oben links der bisherigen Markierung. 0 Zeilen geht natürlich nicht.