Laufzeitfehler 1004
08.04.2026 15:15:53
nde
ich versuche via range und cell auf einen Bereich zuzugreifen und bekommen einen Laufzeitfehler und verstehe nicht warum.
Sub merge()
Dim S1 As Variant
Dim S2 As Variant
Dim WsName(2) As Variant
WsName(1) = "T134"
WsName(2) = "001_Materialarten"
S1 = "2"
S2 = "3"
'Range(Sheets(WsName(2)).Cells(4, 2), Sheets(WsName(2)).Cells(4, 3)).Select
Range(Sheets(WsName(2)).Cells(4, S1), Sheets(WsName(2)).Cells(4, S2)).Select
Selection.merge
End Sub
das auskommentierte Statement funktioniert
kann mir jemand helfen?
Grüße und Danke NDe
Anzeige