03.10.2018, 22:36
Hallo,
möchte per VBA einen Zellbereich auswählen.
Anfangs Zelle B4 steht fest bis Zelle H... (Die Zeilennummer hierfür wird per Formel in der Zelle J1 ermittelt.)
Mein Code schaut bisher so aus:
Sub Formatierung()
'
' Formatierung Makro
'
'
Dim strX As String
strX = Range("j1").Value
ActiveSheet.Range("B4:H" & strX).Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(6, 7), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub
Jedoch erscheint dann immer Laufzeitfehler 1004.
Wo liegt der Fehler?
LG.
Peggy
möchte per VBA einen Zellbereich auswählen.
Anfangs Zelle B4 steht fest bis Zelle H... (Die Zeilennummer hierfür wird per Formel in der Zelle J1 ermittelt.)
Mein Code schaut bisher so aus:
Sub Formatierung()
'
' Formatierung Makro
'
'
Dim strX As String
strX = Range("j1").Value
ActiveSheet.Range("B4:H" & strX).Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(6, 7), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub
Jedoch erscheint dann immer Laufzeitfehler 1004.
Wo liegt der Fehler?
LG.
Peggy