Hallo;
ich habe ein Problem mit einem Code,
Fehlermeldung: Die methode Range ist für das Objekt Global fehlgeschlagen.
Das Makro soll nen text markieren und verschieben.
Hier mal der Code.
Hoffe ihr könnt mir helfen=)
Sub Forward()
Dim first1 As String
Dim first2 As String
Dim all1 As String
Dim all2 As String
first1 = "F"
first2 = Range("AI" + "7395").Value
first2 = CInt(first2)
'first2 = first2 + 4
first2 = CStr(first2)
all1 = first1 + first2
'
first2 = CInt(first2)
first2 = first2 + 6
first2 = CStr(first2)
all2 = first1 + first2
Range("all1:all2").Select
first2 = Range("AI" + "7395").Value
first2 = CInt(first2)
first2 = first2 + 5
first2 = CStr(first2)
all1 = first1 + first2
first2 = CInt(first2)
first2 = first2 + 6
first2 = CStr(first2)
all2 = first1 + first2
Selection.Cut Destination:=Range("all1:all2")
ActiveSheet.Shapes("Button 36").Select
Selection.ShapeRange.IncrementTop 12.6
Range("I7404").Select
ActiveSheet.Shapes("Button 37").Select
Selection.ShapeRange.IncrementTop 12.6
Range("J7405").Select
ActiveSheet.Shapes("Button 38").Select
Selection.ShapeRange.IncrementTop 12.6
Range("J7406").Select
all1 = Range("AI" + "7395").Value
all1 = CInt(all1)
all1 = all1 + 1
all1 = CStr(all1)
Range("AI" + "7395").Value = all1
End Sub
LG und Danke im Vorraus,
Morlon
|